Update of /cvsroot/sbcl/sbcl/src/pcl
In directory vz-cvs-3.sog:/tmp/cvs-serv16035/src/pcl
Modified Files:
ctor.lisp
Log Message:
1.0.47.19: another MAKE-INSTANCE regression from 1.0.45.18
...which was masked by another regression till 1.0.46.15.
Inverted conditional: (SLOT-BOUNDP-USING-CLASS ...) where it should
have been (NOT (SLOT-BOUNDP-USING-CLASS ...)).
Reported by Pascal Costanza on sbcl-devel.
Index: ctor.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/pcl/ctor.lisp,v
retrieving revision 1.48
retrieving revision 1.49
diff -u -d -r1.48 -r1.49
--- ctor.lisp 4 Mar 2011 08:16:48 -0000 1.48
+++ ctor.lisp 10 Apr 2011 09:21:47 -0000 1.49
@@ -870,8 +870,8 @@
,value-form))))
(not-boundp-form ()
(if (member slotd sbuc-slots :test #'eq)
- `(slot-boundp-using-class
- ,class .instance. ,slotd)
+ `(not (slot-boundp-using-class
+ ,class .instance. ,slotd))
`(eq (clos-slots-ref .slots. ,i)
+slot-unbound+))))
(ecase kind
|