/[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.2 by pfdietz, Fri Jun 6 03:44:25 2003 UTC revision 1.3 by pfdietz, Fri Jun 6 03:52:03 2003 UTC
# Line 57  Line 57 
57          collect x)          collect x)
58    nil)    nil)
59    
60    (defstruct type-of.example-struct a b c)
61    
62    (deftest type-of.6
63      (type-of (make-type-of.example-struct))
64      type-of.example-struct)
65    
66    (defclass type-of.example-class () ())
67    
68    (deftest type-of.7
69      (type-of (make-instance 'type-of.example-class))
70      type-of.example-class)
71    
72    (defparameter *type-of.example-class-2*
73      (defclass type-of.example-class-2 () ((a) (b) (c))))
74    
75    (deftest type-of.8
76      (progn
77        (setf (class-name *type-of.example-class-2*) nil)
78        (eqt (type-of (make-instance *type-of.example-class-2*))
79             *type-of.example-class-2*))
80      t)
81    
82  ;;; Error tests  ;;; Error tests
83    
84  (deftest type-of.error.1  (deftest type-of.error.1

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

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