From: Thiemo Seufer <ths@networkno.de>
Date: Wed, 5 Sep 2007 12:15:28 +0000 (+0000)
Subject: 1.0.9.31: Fix broken syntax.
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=c46717d68f9d5fed47bf3b19eb528cdd45d62edd;p=sbcl.git

1.0.9.31: Fix broken syntax.
---

diff --git a/src/code/unix.lisp b/src/code/unix.lisp
index d8473d1..a5e583f 100644
--- a/src/code/unix.lisp
+++ b/src/code/unix.lisp
@@ -660,7 +660,7 @@ SYSCALL-FORM. Repeat evaluation of SYSCALL-FORM if it is interrupted."
   (struct wrapped_stat
     (st-dev #!-(or mips largefile) unsigned-int
             #!+mips unsigned-long
-            #!+largefile #!-mips dev-t)
+            #!+(and largefile (not mips)) dev-t)
     (st-ino ino-t)
     (st-mode mode-t)
     (st-nlink nlink-t)
@@ -668,7 +668,7 @@ SYSCALL-FORM. Repeat evaluation of SYSCALL-FORM if it is interrupted."
     (st-gid gid-t)
     (st-rdev #!-(or mips largefile) unsigned-int
              #!+mips unsigned-long
-             #!+largefile #!-mips dev-t)
+             #!+(and largefile (not mips)) dev-t)
     (st-size #!-(or darwin mips largefile) unsigned-int
              #!+(or darwin mips largefile) off-t)
     #!+(and darwin)
diff --git a/version.lisp-expr b/version.lisp-expr
index 510933c..5c96092 100644
--- a/version.lisp-expr
+++ b/version.lisp-expr
@@ -17,4 +17,4 @@
 ;;; checkins which aren't released. (And occasionally for internal
 ;;; versions, especially for internal versions off the main CVS
 ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
-"1.0.9.30"
+"1.0.9.31"