/[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.8 by pfdietz, Sat Feb 8 06:23:02 2003 UTC revision 1.9 by pfdietz, Mon Feb 17 04:22:03 2003 UTC
# Line 184  Line 184 
184    #*01100    #*01100
185    nil)    nil)
186    
187  (deftest concatenate.31  (deftest concatenate.order.1
188    (let ((i 0) w x y z)    (let ((i 0) w x y z)
189      (values      (values
190       (concatenate (progn (setf w (incf i)) 'string)       (concatenate (progn (setf w (incf i)) 'string)
# Line 194  Line 194 
194       i w x y z))       i w x y z))
195    "abcdefghi" 4 1 2 3 4)    "abcdefghi" 4 1 2 3 4)
196    
197  (deftest concatenate.32  (deftest concatenate.order.2
198    (let ((i 0) x y z)    (let ((i 0) x y z)
199      (values      (values
200       (concatenate 'string       (concatenate 'string
# Line 206  Line 206 
206    
207  ;;; Error tests  ;;; Error tests
208    
209  (deftest concatenate-error.1  (deftest concatenate.error.1
210    (handler-case    (handler-case
211     (progn (proclaim '(optimize (safety 3)))     (progn (proclaim '(optimize (safety 3)))
212            (eval '(concatenate 'sequence '(a b c))))            (eval '(concatenate 'sequence '(a b c))))
213     (error () :caught))     (error () :caught))
214    :caught)    :caught)
215    
216  (deftest concatenate-error.2  (deftest concatenate.error.2
217    (handler-case    (handler-case
218        (progn (proclaim '(optimize (safety 3)))        (progn (proclaim '(optimize (safety 3)))
219               (concatenate 'fixnum '(a b c d e)))               (concatenate 'fixnum '(a b c d e)))
220        (error () :caught))        (error () :caught))
221    :caught)    :caught)
222    
223  (deftest concatenate-error.3  (deftest concatenate.error.3
224    (classify-error (concatenate '(vector * 3) '(a b c d e)))    (classify-error (concatenate '(vector * 3) '(a b c d e)))
225    type-error)    type-error)
226    
227  (deftest concatenate-error.4  (deftest concatenate.error.4
228    (classify-error (concatenate))    (classify-error (concatenate))
229    program-error)    program-error)
230    
231  (deftest concatenate-error.5  (deftest concatenate.error.5
232    (classify-error (locally (concatenate '(vector * 3) '(a b c d e)) t))    (classify-error (locally (concatenate '(vector * 3) '(a b c d e)) t))
233    type-error)    type-error)

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

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