From 6bdbda6c4f87fc043602fa7951c4bdc8202a8fe8 Mon Sep 17 00:00:00 2001 From: Christophe Rhodes Date: Fri, 29 Apr 2005 12:10:04 +0000 Subject: [PATCH] 0.9.0.5: Fix 32->64 build --- src/compiler/ctype.lisp | 9 ++++++--- version.lisp-expr | 2 +- 2 files changed, 7 insertions(+), 4 deletions(-) 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" -- 1.7.10.4