Plaster
New
List
Login
common-lisp
default
phoe
2022.02.03 14:05:12
CL-USER> (defgeneric frob (thing) (:method (thing) :generic-frob)) #<STANDARD-GENERIC-FUNCTION COMMON-LISP-USER::FROB (1)> CL-USER> (frob 42) :GENERIC-FROB CL-USER> (defmethod frob ((thing number)) :number-frob) #<STANDARD-METHOD COMMON-LISP-USER::FROB (NUMBER) {1010E32F93}> CL-USER> (frob 42) :NUMBER-FROB CL-USER> (defmethod frob ((thing real)) :real-number-frob) #<STANDARD-METHOD COMMON-LISP-USER::FROB (REAL) {101156BB73}> CL-USER> (frob 42) :REAL-NUMBER-FROB CL-USER> (defmethod frob ((thing integer)) :integer-frob) #<STANDARD-METHOD COMMON-LISP-USER::FROB (INTEGER) {1011A5ADB3}> CL-USER> (frob 42) :INTEGER-FROB
Raw
Annotate
Repaste