/[gcl]/gcl/ansi-tests/typecase.lsp
ViewVC logotype

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

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

revision 1.9 by pfdietz, Tue Mar 4 14:14:31 2003 UTC revision 1.10 by pfdietz, Sun Apr 20 22:59:26 2003 UTC
# Line 93  Line 93 
93       (return-from done 'good)))       (return-from done 'good)))
94    good)    good)
95    
96    (deftest typecase.error.1
97      (classify-error (funcall (macro-function 'typecase)))
98      program-error)
99    
100    (deftest typecase.error.2
101      (classify-error (funcall (macro-function 'typecase)
102                               '(typecase t)))
103      program-error)
104    
105    (deftest typecase.error.3
106      (classify-error (funcall (macro-function 'typecase)
107                               '(typecase t)
108                               nil nil))
109      program-error)
110    
111    
112    

Legend:
Removed from v.1.9  
changed lines
  Added in v.1.10

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