/[gcl]/gcl/ansi-tests/with-slots.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/with-slots.lsp

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

revision 1.2 by pfdietz, Sun May 18 01:10:33 2003 UTC revision 1.3 by pfdietz, Fri Jun 13 12:01:28 2003 UTC
# Line 143  Line 143 
143    
144  ;;; If slot is unbound, act as if slot-value had been called  ;;; If slot is unbound, act as if slot-value had been called
145    
146  (defmethod slot-unbound ((class (eql (find-class 'with-slots-class-01)))  (defmethod slot-unbound ((class t)
147                           instance slot-name)                           (instance with-slots-class-01)
148                             slot-name)
149    'missing)    'missing)
150    
151  (deftest with-slots.18  (deftest with-slots.18

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

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