From: Christophe Rhodes <csr21@cam.ac.uk>
Date: Fri, 29 Apr 2005 12:10:04 +0000 (+0000)
Subject: 0.9.0.5:
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=6bdbda6c4f87fc043602fa7951c4bdc8202a8fe8;p=sbcl.git

0.9.0.5:
	Fix 32->64 build
---

diff --git a/src/compiler/ctype.lisp b/src/compiler/ctype.lisp
index a67b43f..6d02818 100644
--- a/src/compiler/ctype.lisp
+++ b/src/compiler/ctype.lisp
@@ -323,8 +323,10 @@
 (defstruct (approximate-fun-type (:copier nil))
   ;; the smallest and largest numbers of arguments that this function
   ;; has been called with.
-  (min-args sb!xc:call-arguments-limit :type fixnum)
-  (max-args 0 :type fixnum)
+  (min-args sb!xc:call-arguments-limit
+	    :type (integer 0 #.sb!xc:call-arguments-limit))
+  (max-args 0
+	    :type (integer 0 #.sb!xc:call-arguments-limit))
   ;; a list of lists of the all the types that have been used in each
   ;; argument position
   (types () :type list)
@@ -341,7 +343,8 @@
   (name (missing-arg) :type keyword)
   ;; The position at which this keyword appeared. 0 if it appeared as the
   ;; first argument, etc.
-  (position (missing-arg) :type fixnum)
+  (position (missing-arg)
+	    :type (integer 0 #.sb!xc:call-arguments-limit))
   ;; a list of all the argument types that have been used with this keyword
   (types nil :type list)
   ;; true if this keyword has appeared only in calls with an obvious
diff --git a/version.lisp-expr b/version.lisp-expr
index df5e15b..aad2ff9 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".)
-"0.9.0.4"
+"0.9.0.5"