/[gcl]/gcl/ansi-tests/defclass-aux.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/defclass-aux.lsp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.3 by pfdietz, Wed Apr 2 13:21:05 2003 UTC revision 1.4 by pfdietz, Thu Apr 3 05:35:10 2003 UTC
# Line 192  Line 192 
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       )))       )))

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26