/[gcl]/gcl/ansi-tests/class-name.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/class-name.lsp

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

revision 1.1 by pfdietz, Mon Jun 16 11:37:43 2003 UTC revision 1.2 by pfdietz, Sat Aug 9 17:53:30 2003 UTC
# Line 13  Line 13 
13    
14  (defclass class-name-class-01 () (a b c))  (defclass class-name-class-01 () (a b c))
15    
16  (defmethod class-name ((x class-name-class-01)) 'silly)  (report-and-ignore-errors
17     (eval '(defmethod class-name ((x class-name-class-01)) 'silly)))
18    
19  (deftest class-name.2  (deftest class-name.2
20    (class-name (make-instance 'class-name-class-01))    (class-name (make-instance 'class-name-class-01))

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

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