Plaster
New
List
Login
common-lisp
default
anonymous
2018.12.09 15:23:39
(defgeneric foo (bar)) (defclass fred () ()) (defmethod foo ((bar (eql (find-class 'fred))))) (setf (find-class 'fred) nil) (defclass frob () ()) (defmethod foo ((bar (eql (find-class 'frob))))) (setf (find-class 'frob) nil) (generic-function-methods #'foo) #| (#<STANDARD-METHOD PROTEST/PROTOCOL::FOO ((EQL #<STANDARD-CLASS PROTEST/PROTOCOL::FROB {1002E262B3}>)) {1002E66D03}> #<STANDARD-METHOD PROTEST/PROTOCOL::FOO ((EQL #<STANDARD-CLASS PROTEST/PROTOCOL::FRED {101CEC1203}>)) {1002BA5DF3}>) |#
Raw
Annotate
Repaste
Edit