#'car #'make-to-be-described (lambda (x) (+ x 11))
(constantly 'foo) #'(setf to-be-described-a)
#'describe-object (find-class 'to-be-described)
#'car #'make-to-be-described (lambda (x) (+ x 11))
(constantly 'foo) #'(setf to-be-described-a)
#'describe-object (find-class 'to-be-described)