0.6.12.26:

[sbcl.git] / src / code / unix.lisp

diff --git a/src/code/unix.lisp b/src/code/unix.lisp
index 83b6354..16efdaf 100644 (file)
--- a/src/code/unix.lisp
+++ b/src/code/unix.lisp
@@ -395,8 +395,8 @@
 #!-sb-fluid (declaim (inline unix-fast-getrusage))
 (defun unix-fast-getrusage (who)
   (declare (values (member t)
-                  (unsigned-byte 31) (mod 1000000)
-                  (unsigned-byte 31) (mod 1000000)))
+                  (unsigned-byte 31) (integer 0 1000000)
+                  (unsigned-byte 31) (integer 0 1000000)))
   (with-alien ((usage (struct rusage)))
     (syscall* ("getrusage" int (* (struct rusage)))
              (values t