From: Christophe R. <cr...@us...> - 2004-06-30 20:43:17
|
Update of /cvsroot/sbcl/sbcl/src/pcl In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv17769/src/pcl Modified Files: braid.lisp Log Message: 0.8.12.13: Fix for MAKE-LOAD-FORM-SAVING-SLOTS on conditions ... it's not required to work, which is why we hadn't noticed that it was totally broken. However, since it can work with minimal extra effort, might as well get it right. Index: braid.lisp =================================================================== RCS file: /cvsroot/sbcl/sbcl/src/pcl/braid.lisp,v retrieving revision 1.43 retrieving revision 1.44 diff -u -d -r1.43 -r1.44 --- braid.lisp 29 Jun 2004 08:51:01 -0000 1.43 +++ braid.lisp 30 Jun 2004 20:43:08 -0000 1.44 @@ -578,8 +578,8 @@ `(:initfunction ,form-or-fun) `(:initform ,form-or-fun :initfunction ,(lambda () form-or-fun))))) - :allocation (condition-slot-allocation slot) - :documentation (condition-slot-documentation slot)))) + :allocation ,(condition-slot-allocation slot) + :documentation ,(condition-slot-documentation slot)))) (cond ((structure-type-p name) (ensure 'structure-class (mapcar #'slot-initargs-from-structure-slotd |