/[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.6 by pfdietz, Sat Jan 17 22:54:18 2004 UTC revision 1.7 by pfdietz, Sat Nov 27 00:07:14 2004 UTC
# Line 98  Line 98 
98      (eqt (type-of (make-instance class)) class))      (eqt (type-of (make-instance class)) class))
99    t)    t)
100    
101    (deftest type-of.10
102      (let* ((class (eval '(defclass type-of.example-class-4 () ((a) (b) (c)))))
103             (obj (make-instance class)))
104        (setf (class-name class) nil)
105        (notnot-mv (typep obj class)))
106      t)
107    
108  ;;; Error tests  ;;; Error tests
109    
110  (deftest type-of.error.1  (deftest type-of.error.1
# Line 107  Line 114 
114  (deftest type-of.error.2  (deftest type-of.error.2
115    (signals-error (type-of nil nil) program-error)    (signals-error (type-of nil nil) program-error)
116    t)      t)  
117    

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