|
[Sbcl-commits] CVS: sbcl/src/pcl fast-init.lisp,1.18,1.19
From: Christophe Rhodes <crhodes@us...> - 2002-04-26 20:55
|
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))
|
| Thread | Author | Date |
|---|---|---|
| [Sbcl-commits] CVS: sbcl/src/pcl fast-init.lisp,1.18,1.19 | Christophe Rhodes <crhodes@us...> |