The loom-concept slot of a CLOS instance contains a pointer to the instance's concept---that is, it points back to the Loom concept that is shadowed by the instance's CLOS class.
The instance argument is a CLOS instance.
This function returns a shadowed Loom concept.
(setq ?i (make-object 'Adult))
(loom-concept ?i) ==> |C|ADULT
Last modified: Jun 1 1995