192 |
when (slot-boundp instance slot) |
when (slot-boundp instance slot) |
193 |
collect (list 'is-bound slot)) |
collect (list 'is-bound slot)) |
194 |
(loop for slot in slot-names |
(loop for slot in slot-names |
195 |
(unless (equal (multiple-value-list |
unless (equal (multiple-value-list |
196 |
(notnot-mv (slot-exists-p instance slot))) |
(notnot-mv (slot-exists-p instance slot))) |
197 |
'(t)) |
'(t)) |
198 |
(list 'does-not-exist slot))) |
collect (list 'does-not-exist slot)) |
199 |
(let ((bad-slot #:foo)) |
(let ((bad-slot '#:foo)) |
200 |
(when (slot-exists-p instance bad-slot) |
(when (slot-exists-p instance bad-slot) |
201 |
(list (list 'should-not-exist bad-slot)))) |
(list (list 'should-not-exist bad-slot)))) |
202 |
))) |
))) |