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

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

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

revision 1.9 by pfdietz, Mon Feb 17 04:22:03 2003 UTC revision 1.10 by pfdietz, Sat Feb 22 01:15:59 2003 UTC
# Line 207  Line 207 
207  ;;; Error tests  ;;; Error tests
208    
209  (deftest concatenate.error.1  (deftest concatenate.error.1
210    (handler-case    (subtypep* (classify-error (concatenate 'sequence '(a b c))) 'error)
211     (progn (proclaim '(optimize (safety 3)))    t t)
           (eval '(concatenate 'sequence '(a b c))))  
    (error () :caught))  
   :caught)  
212    
213  (deftest concatenate.error.2  (deftest concatenate.error.2
214    (handler-case    (subtypep* (classify-error (concatenate 'fixnum '(a b c d e))) 'error)
215        (progn (proclaim '(optimize (safety 3)))    t t)
              (concatenate 'fixnum '(a b c d e)))  
       (error () :caught))  
   :caught)  
216    
217  (deftest concatenate.error.3  (deftest concatenate.error.3
218    (classify-error (concatenate '(vector * 3) '(a b c d e)))    (classify-error (concatenate '(vector * 3) '(a b c d e)))

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