Steel Bank Common Lisp

Update of /cvsroot/sbcl/sbcl/src/pcl
In directory usw-pr-cvs1:/tmp/cvs-serv12991/src/pcl

Modified Files:
	fast-init.lisp 
Log Message:
0.7.3.5:
	Port fix to PCL due to Pierre Mai regarding MAKE-INSTANCES-OBSOLETE
		in the fast path
	New, slightly less bogus transforms for bitvector operations
	... now we can deal with bitvectors with lengths close to
		ARRAY-DIMENSION-LIMIT
	Also write tests for both of these (thanks again to Pierre Mai)


Index: fast-init.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/pcl/fast-init.lisp,v
retrieving revision 1.18
retrieving revision 1.19
diff -C2 -d -r1.18 -r1.19
*** fast-init.lisp	23 Jan 2002 23:13:14 -0000	1.18
--- fast-init.lisp	26 Apr 2002 20:54:58 -0000	1.19
***************
*** 492,496 ****
        (lambda (class1 initargs)
  	(if (not (eq wrapper (class-wrapper class)))
! 	    (let* ((info (initialize-info class1 initargs))
  		   (fn (initialize-info-make-instance-function info)))
  	      (declare (type function fn))
--- 492,496 ----
        (lambda (class1 initargs)
  	(if (not (eq wrapper (class-wrapper class)))
! 	    (let* ((info (initialize-info (coerce-to-class class1) initargs))
  		   (fn (initialize-info-make-instance-function info)))
  	      (declare (type function fn))
***************
*** 535,539 ****
        (lambda (class1 initargs)
  	(if (not (eq wrapper (class-wrapper class)))
! 	    (let* ((info (initialize-info class1 initargs))
  		   (fn (initialize-info-make-instance-function info)))
  	      (declare (type function fn))
--- 535,539 ----
        (lambda (class1 initargs)
  	(if (not (eq wrapper (class-wrapper class)))
! 	    (let* ((info (initialize-info (coerce-to-class class1) initargs))
  		   (fn (initialize-info-make-instance-function info)))
  	      (declare (type function fn))