ADD-DIRECT-SUBCLASS: duplicate CLASSOID-SUBCLASSES
Affects | Status | Importance | Assigned to | Milestone | |
---|---|---|---|---|---|
SBCL |
Invalid
|
Undecided
|
Unassigned |
Bug Description
(defmethod add-direct-subclass ((class class) (subclass class))
(with-slots (direct-subclasses) class
(with-
(pushnew subclass direct-subclasses :test #'eq)
(let ((layout (class-wrapper subclass)))
(when layout
(let* ((classoid (layout-classoid layout)))
(let* ((super (layout-classoid super-layout))
subclass))
Without an example, I don't know what you're trying to say. /sourceforge. net/p/sbcl/ sbcl/ci/ dd4eacbbc5 maybe ?
Fixed by https:/