From e60e0a31062e74719c29bbe16c7f1dede0fbc73a Mon Sep 17 00:00:00 2001 From: Christophe Rhodes Date: Wed, 30 Jun 2004 20:43:08 +0000 Subject: [PATCH] 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. --- src/pcl/braid.lisp | 4 ++-- version.lisp-expr | 2 +- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/src/pcl/braid.lisp b/src/pcl/braid.lisp index 9aec60e..0c62370 100644 --- 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 --- 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" -- 1.7.10.4