From: Christophe R. <cr...@us...> - 2004-05-19 14:20:33
|
Update of /cvsroot/sbcl/sbcl/src/code In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv15604/src/code Modified Files: package.lisp Log Message: 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 Index: package.lisp =================================================================== RCS file: /cvsroot/sbcl/sbcl/src/code/package.lisp,v retrieving revision 1.15 retrieving revision 1.16 diff -u -d -r1.15 -r1.16 --- package.lisp 26 Aug 2003 13:21:18 -0000 1.15 +++ package.lisp 19 May 2004 14:20:22 -0000 1.16 @@ -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. |