Skip to content
Snippets Groups Projects
Commit f3bad3ed authored by rtoy's avatar rtoy
Browse files

Fix for compute-slots, from Gerd, cmucl-imp, 2005-05-28. The test

case reported by Bruno is:

#+CMU (use-package "PCL")
(defclass b (a) ())
(defmethod compute-slots ((class (eql (find-class 'b))))
  (append (call-next-method)
          (list (make-instance 'standard-effective-slot-definition
                  :name 'y
                  :allocation :instance))))
(defclass a () ((x :allocation :class)))
;; A should now have a shared slot, X, and a local slot, Y.
(mapcar #'slot-definition-location (class-slots (find-class 'b)))

Instead of an error about no matching method, we get

((X . PCL::..SLOT-UNBOUND..) 0)
parent 67fa1b75
No related branches found
No related tags found
Loading
Loading
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment