[cells-devel] Re: [cello-devel] Constructor syntax

[Thomas F. Burdick]

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.