berger@tartarus.uchicago.edu (Jeff Berger) (06/13/91)
The code I supplied in the initial post contained an error. The
definition for SLOT-UNBOUNDP-USING-CLASS should be:
(defmethod SLOT-BOUNDP-USING-CLASS
((class meta-organ-tolerance) object slot-name)
(or (eq 'limit slot-name)
(call-next-method)))
(The erroneous code was the result of my tinkering around when the
above definition didn't work.) Neither the above version, nor the
erroneous one posted earlier are found.
--
Jeff Berger |USmail: Ryerson 256
berger@tartarus.uchicago.edu | 1100 East 58th Street
(312) 702-8584 | Chicago, IL 60637