Update of /cvsroot/sbcl/sbcl/src/pcl
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv9148/src/pcl
Modified Files:
ctor.lisp
Log Message:
0.9.9.10:
Fix a bug in ctor optimization reported by kpreid on #lisp
... quote the ctor-initarg keys in the fallback (unoptimized)
constructor too.
Index: ctor.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/pcl/ctor.lisp,v
retrieving revision 1.23
retrieving revision 1.24
diff -u -d -r1.23 -r1.24
--- ctor.lisp 9 Sep 2005 14:16:18 -0000 1.23
+++ ctor.lisp 29 Jan 2006 22:15:27 -0000 1.24
@@ -351,7 +351,8 @@
;; calling it with a class, as here, we inhibit the optimization,
;; so removing the possibility of endless recursion. -- CSR,
;; 2004-07-12
- (make-instance ,(ctor-class ctor) ,@(ctor-initargs ctor))))
+ (make-instance ,(ctor-class ctor)
+ ,@(quote-plist-keys (ctor-initargs ctor)))))
(defun optimizing-generator (ctor ii-methods si-methods)
(multiple-value-bind (locations names body before-method-p)
|