From 737abbab23f0426e93e2f05d1023b4c891696c5b Mon Sep 17 00:00:00 2001
From: cshapiro <cshapiro>
Date: Thu, 12 Jul 2007 06:56:44 +0000
Subject: [PATCH] Use the alien off-t type to represent struct stat members
 with an off_t type.

---
 code/unix.lisp | 8 +++-----
 1 file changed, 3 insertions(+), 5 deletions(-)

diff --git a/code/unix.lisp b/code/unix.lisp
index 4b8625a43..c0745afe5 100644
--- a/code/unix.lisp
+++ b/code/unix.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/unix.lisp,v 1.110 2007/07/06 08:04:39 cshapiro Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/unix.lisp,v 1.111 2007/07/12 06:56:44 cshapiro Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -502,10 +502,8 @@
     (st-atime (struct timespec-t))
     (st-mtime (struct timespec-t))
     (st-ctime (struct timespec-t))
-    (st-size    unsigned-long)		; really quad
-    (st-sizeh   unsigned-long)		;
-    (st-blocks  unsigned-long)		; really quad
-    (st-blocksh unsigned-long)
+    (st-size off-t)
+    (st-blocks off-t)
     (st-blksize unsigned-long)
     (st-flags   unsigned-long)
     (st-gen     unsigned-long)
-- 
GitLab