From: Christophe Rhodes Date: Wed, 19 May 2004 14:20:13 +0000 (+0000) Subject: 0.8.10.37: X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=3a6dd21fba192e03f95ede4ed25941d95c3f8f6d;p=sbcl.git 0.8.10.37: Fix a couple of undefined type warnings while building ... this is cherry-picked from alpha_2_branch; soon, we shall see what 6 months of idleness does to 64-bit almost-support --- diff --git a/src/code/package.lisp b/src/code/package.lisp index bc7ca27..8e14a5e 100644 --- a/src/code/package.lisp +++ b/src/code/package.lisp @@ -30,12 +30,12 @@ ;;; the entry is unused. If it is one, then it is deleted. ;;; Double-hashing is used for collision resolution. -(sb!xc:deftype hash-vector () '(simple-array (unsigned-byte 8) (*))) +(def!type hash-vector () '(simple-array (unsigned-byte 8) (*))) -(sb!xc:defstruct (package-hashtable - (:constructor %make-package-hashtable - (table hash size &aux (free size))) - (:copier nil)) +(def!struct (package-hashtable + (:constructor %make-package-hashtable + (table hash size &aux (free size))) + (:copier nil)) ;; The g-vector of symbols. (table (missing-arg) :type simple-vector) ;; The i-vector of pname hash values. diff --git a/version.lisp-expr b/version.lisp-expr index 40ca123..21d66d1 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.8.10.36" +"0.8.10.37"