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.

diff --git a/src/pcl/braid.lisp b/src/pcl/braid.lisp
index 9aec60e..0c62370 100644 (file)
--- a/src/pcl/braid.lisp
+++ b/src/pcl/braid.lisp
@@ -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

diff --git a/version.lisp-expr b/version.lisp-expr
index e81dfd4..6993d25 100644 (file)
--- a/version.lisp-expr
+++ b/version.lisp-expr
@@ -17,4 +17,4 @@
 ;;; checkins which aren't released. (And occasionally for internal
 ;;; versions, especially for internal versions off the main CVS
 ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
-"0.8.12.12"
+"0.8.12.13"