11 May
2004
11 May
'04
10:58 p.m.
Thomas F. Burdick writes:
(let ((slot-value (etypecase slot-c (null (bd-slot-value self slot-spec)) (c-variable (c-value slot-c)) (c-ruled (c-ruled-slot-value slot-c))))) (format *debug-io* "slot ~S of ~S is ~S" self slot-spec slot-value)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
(when (eql slot-value +unbound+) (error 'unbound-cell :instance self :name slot-spec))
*sigh* I thought I'd gotten all my debugging notes out of there.