/[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.6 by pfdietz, Tue Jun 10 00:58:29 2003 UTC revision 1.7 by pfdietz, Tue Jun 10 01:02:13 2003 UTC
# Line 218  Line 218 
218           (typep* obj1 class2)))))           (typep* obj1 class2)))))
219    t nil t nil)    t nil t nil)
220    
221  (deftest class-0309.2  (deftest class-0310.1
222    (progn    (progn
223      (setf (find-class 'class-0310a) nil      (setf (find-class 'class-0310a) nil
224            (find-class 'class-0310b) nil)            (find-class 'class-0310b) nil)
# Line 235  Line 235 
235           (class-name class2)))))           (class-name class2)))))
236    t nil t nil class-0310b class-0310a)    t nil t nil class-0310b class-0310a)
237    
238  (deftest class-0309.3  (deftest class-0311.1
239    (progn    (progn
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)))))

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

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