Plaster
New
List
Login
common-lisp
default
anonymous
2018.10.07 18:13:16
LIST-NAMED-CLASS> (defclass (foo) () ()) #<LIST-NAMED-CLASS (FOO)> LIST-NAMED-CLASS> (find-class '(foo)) #<LIST-NAMED-CLASS (FOO)> LIST-NAMED-CLASS> (make-instance '(foo)) #<(FOO) {10116348B3}> LIST-NAMED-CLASS> (defclass (bar) () ((slot :initarg :slot :accessor slot))) #<LIST-NAMED-CLASS (BAR)> LIST-NAMED-CLASS> (make-instance '(bar)) #<(BAR) {1011907C63}> LIST-NAMED-CLASS> (setf (slot *) 42) 42 LIST-NAMED-CLASS> (slot **) 42
Raw
Annotate
Repaste
Edit
Annotations
common-lisp
default
anonymous
2018.10.07 18:32:27
LIST-NAMED-CLASS> (defclass (bar baz) () ()) #<LIST-NAMED-CLASS (BAR BAZ)> LIST-NAMED-CLASS> (defgeneric foo (bar baz) (:method ((bar (bar baz)) (baz (bar baz))) 42)) #<COMMON-LISP:STANDARD-GENERIC-FUNCTION LIST-NAMED-CLASS::FOO (1)> LIST-NAMED-CLASS> (make-instance '(bar baz)) #<(BAR BAZ) {1017EBA093}> LIST-NAMED-CLASS> (foo * *) 42
Raw
Repaste
Edit