note problem with :class slot

Really I want per-class allocation, not "in this class" allocation.
Achievable with a small amount of MOP, but...

diff --git a/specializable.lisp b/specializable.lisp
index 5a0c09606cef65dce583e9e8052074cd1015584d..ebe4794a44bdbe7d51212df995df3a599101f17b 100644 (file)
--- a/specializable.lisp
+++ b/specializable.lisp
@@ -20,6 +20,7 @@
 (in-package "SPECIALIZABLE")
 
 (defclass extended-specializer (sb-mop:specializer)
 (in-package "SPECIALIZABLE")
 
 (defclass extended-specializer (sb-mop:specializer)

+  ;; FIXME: this doesn't actually do quite what I wanted.

   ((direct-methods-table :allocation :class
                          :initform nil :accessor direct-methods-table)))
 
   ((direct-methods-table :allocation :class
                          :initform nil :accessor direct-methods-table)))