Plaster
New
List
Login
common-lisp
default
anonymous
2024.01.02 21:39:43
(defmethod c2mop:effective-slot-definition-class ((class stored-class-meta-super) &rest initargs) (destructuring-bind (&key allocation-class &allow-other-keys) initargs (if (every #'stored-class-slot-p (c2mop:class-direct-slots allocation-class)) (find-class 'stored-class-slot-effective) (call-next-method))))
Raw
Annotate
Repaste
Edit