BUBRARY> (defclass my-class () ()) # BUBRARY> (defmethod print-object ((o my-class) stream) (print "my-class" stream)) # BUBRARY> (make-instance 'my-class) "my-class" BUBRARY>