DEFINE-CONDITION slot option :ALLOCATION :CLASS "almost" works
The macro accidentally omits the :allocation initarg from MAKE-CONDITION-
* (define-condition crash () ((count :accessor crash-count :initform 0 :allocation :class)))
Slots with :INSTANCE allocation:
COUNT = 0
It's a trivial fix though as the internals are apparently in good working order.
diff --git a/src/code/
index ab6e942..e854e8e 100644
@@ -533,6 +533,7 @@
+ :allocation ',allocation
* (progn (loop repeat 5 do (incf (crash-count (make-condition 'crash)))) (describe(
Slots with :CLASS allocation:
COUNT = 5
Incidentally, the docstring says that WITH-SLOTS and SLOT-VALUE may not be used, but they seem to work.