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

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

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

revision 1.6 by pfdietz, Tue Mar 4 14:14:31 2003 UTC revision 1.7 by pfdietz, Sun Apr 20 22:59:25 2003 UTC
# Line 81  Line 81 
81    
82    
83  (deftest ctypecase.13  (deftest ctypecase.13
84    (ctypecase 'a    (let ((x 'a))
85               (number 'bad)      (ctypecase x
86               (#.(find-class 'symbol nil) 'good))                 (number 'bad)
87                   (#.(find-class 'symbol nil) 'good)))
88    good)    good)
89    
90  (deftest ctypecase.14  (deftest ctypecase.14
# Line 97  Line 98 
98       (return-from done 'good)))       (return-from done 'good)))
99    good)    good)
100    
101    (deftest ctypecase.error.1
102      (classify-error (funcall (macro-function 'ctypecase)))
103      program-error)
104    
105    (deftest ctypecase.error.2
106      (classify-error (funcall (macro-function 'ctypecase)
107                               '(ctypecase t)))
108      program-error)
109    
110    (deftest ctypecase.error.3
111      (classify-error (funcall (macro-function 'ctypecase)
112                               '(ctypecase t)
113                               nil nil))
114      program-error)

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