/[gcl]/gcl/ansi-tests/type-of.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/type-of.lsp

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

revision 1.3 by pfdietz, Fri Jun 6 03:52:03 2003 UTC revision 1.4 by pfdietz, Fri Jun 6 21:23:22 2003 UTC
# Line 69  Line 69 
69    (type-of (make-instance 'type-of.example-class))    (type-of (make-instance 'type-of.example-class))
70    type-of.example-class)    type-of.example-class)
71    
 (defparameter *type-of.example-class-2*  
   (defclass type-of.example-class-2 () ((a) (b) (c))))  
   
72  (deftest type-of.8  (deftest type-of.8
73    (progn    (let ((class (eval '(defclass type-of.example-class-2 () ((a) (b) (c))))))
74      (setf (class-name *type-of.example-class-2*) nil)      (setf (class-name class) nil)
75      (eqt (type-of (make-instance *type-of.example-class-2*))      (eqt (type-of (make-instance class)) class))
76           *type-of.example-class-2*))    t)
77    
78    (deftest type-of.9
79      (let ((class (eval '(defclass type-of.example-class-3 () ((a) (b) (c))))))
80        (setf (find-class 'type-of.example-class-3) nil)
81        (eqt (type-of (make-instance class)) class))
82    t)    t)
83    
84    
85  ;;; Error tests  ;;; Error tests
86    
87  (deftest type-of.error.1  (deftest type-of.error.1

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

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