I've been pouring over the Hyperspec and some other resources but haven't found a reasonable solution. Initially I played hide & seek with slot-boundp:
- Code: Select all
defmethod initialize-instance :after ((node b-node) &key) ;; DON'T EVEN THINK ABOUT TRYING THIS!!!!!
(loop while (slot-boundp node 'stat) do ;; test to see if a change in slot value would trigger an unbound condition, (non working code...)
(print "started"))
(funcall (lambda()(print "done"))))
Please don't use the code above. I've looked at make-load-form-saving-slots as well but I would have to poll a parsed version of the value it returns which is just, ugh. My last option is to create an additional slot which I can use as a wayback machine... Thanks in advance.