X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Funix.lisp;h=a752549e111c3cdf6edb92f35b160b19e47cd288;hb=1e9966d5f24709d227e20911b4e1ddd27c87a00e;hp=9199ccb9daa06cf83d7e2eeafa22f64d749e3b47;hpb=f6c58711c58ee05502fefc6c176a2533b18021bb;p=sbcl.git

diff --git a/src/code/unix.lisp b/src/code/unix.lisp
index 9199ccb..a752549 100644
--- a/src/code/unix.lisp
+++ b/src/code/unix.lisp
@@ -556,14 +556,14 @@
 ;;; longer than 32 bits anyway, right?":-|
 (define-alien-type nil
   (struct wrapped_stat
-    (st-dev unsigned-long)              ; would be dev-t in a real stat
+    (st-dev unsigned-int)              ; would be dev-t in a real stat
     (st-ino ino-t)
     (st-mode mode-t)
     (st-nlink  nlink-t)
     (st-uid  uid-t)
     (st-gid  gid-t)
-    (st-rdev unsigned-long)             ; would be dev-t in a real stat
-    (st-size unsigned-long)		; would be off-t in a real stat
+    (st-rdev unsigned-int)             ; would be dev-t in a real stat
+    (st-size unsigned-int)		; would be off-t in a real stat
     (st-blksize unsigned-long)
     (st-blocks unsigned-long)
     (st-atime time-t)