Plaster

common-lisp
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

Annotations