0.8.10.37:
authorChristophe Rhodes <csr21@cam.ac.uk>
Wed, 19 May 2004 14:20:13 +0000 (14:20 +0000)
committerChristophe Rhodes <csr21@cam.ac.uk>
Wed, 19 May 2004 14:20:13 +0000 (14:20 +0000)
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

src/code/package.lisp
version.lisp-expr

index bc7ca27..8e14a5e 100644 (file)
 ;;;   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.
index 40ca123..21d66d1 100644 (file)
@@ -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"