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