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

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

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

revision 1.5 by pfdietz, Tue Jun 10 00:05:35 2003 UTC revision 1.6 by pfdietz, Tue Jun 10 00:58:29 2003 UTC
# Line 240  Line 240 
240      (setf (find-class 'class-0311) nil)      (setf (find-class 'class-0311) nil)
241      (let* ((class1 (eval '(defclass class-0311 () ((a) (b) (c)))))      (let* ((class1 (eval '(defclass class-0311 () ((a) (b) (c)))))
242             (obj1 (make-instance 'class-0311)))             (obj1 (make-instance 'class-0311)))
243        (setf (find-class (class-name class1)) nil)        (setf (find-class 'class-0311) nil)
244        (let ((class2 (eval '(defclass class-0311 () ((a) (b) (c))))))        (let ((class2 (eval '(defclass class-0311 () ((a) (b) (c))))))
245          (values          (values
246           (eqt (class-of obj1) class1)           (eqt (class-of obj1) class1)

Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6

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