Steel Bank Common Lisp

Update of /cvsroot/sbcl/sbcl/src/compiler
In directory sc8-pr-cvs1:/tmp/cvs-serv10966/src/compiler

Modified Files:
	fndb.lisp 
Log Message:
0.7.10.36:
	Clean up regressions, easy new bugs, etc.
	... fix one or two embarrassing bugs in ctor MAKE-INSTANCE optimization
		patch:
		* REINITIALIZE-INSTANCE now checks arguments again
		* defining methods on MAKE-INSTANCE (or its siblings) now
			invalidates the optimized methods for subclasses too
	... trivial ADJUST-ARRAY patch


Index: fndb.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/compiler/fndb.lisp,v
retrieving revision 1.49
retrieving revision 1.50
diff -u -d -r1.49 -r1.50
--- fndb.lisp	16 Dec 2002 16:23:20 -0000	1.49
+++ fndb.lisp	30 Dec 2002 00:42:27 -0000	1.50
@@ -822,7 +822,7 @@
 
 (defknown adjust-array
   (array (or index list) &key (:element-type type-specifier)
-	 (:initial-element t) (:initial-contents list)
+	 (:initial-element t) (:initial-contents t)
 	 (:fill-pointer t) (:displaced-to (or array null))
 	 (:displaced-index-offset index))
   array (unsafe))