0.9.0.5:

	Fix 32->64 build

diff --git a/src/compiler/ctype.lisp b/src/compiler/ctype.lisp
index a67b43f..6d02818 100644 (file)
--- 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 (file)
--- 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"