Parent Directory | Revision Log | 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)) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |