/[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.6 by pfdietz, Mon Jan 13 14:11:49 2003 UTC revision 1.7 by pfdietz, Wed Jan 29 02:11:54 2003 UTC
# Line 188  Line 188 
188    
189  (deftest concatenate-error.1  (deftest concatenate-error.1
190    (handler-case    (handler-case
191     (concatenate 'sequence '(a b c))     (progn (proclaim '(optimize (safety 3)))
192              (eval '(concatenate 'sequence '(a b c))))
193     (error () :caught))     (error () :caught))
194    :caught)    :caught)
195    
196  (deftest concatenate-error.2  (deftest concatenate-error.2
197    (handler-case  (concatenate 'fixnum '(a b c d e))    (handler-case
198                   (error () :caught))        (progn (proclaim '(optimize (safety 3)))
199                 (concatenate 'fixnum '(a b c d e)))
200          (error () :caught))
201    :caught)    :caught)
202    
203  (deftest concatenate-error.3  (deftest concatenate-error.3
# Line 204  Line 207 
207  (deftest concatenate-error.4  (deftest concatenate-error.4
208    (classify-error (concatenate))    (classify-error (concatenate))
209    program-error)    program-error)
210    
211    (deftest concatenate-error.5
212      (classify-error (locally (concatenate '(vector * 3) '(a b c d e)) t))
213      type-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