/[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.13 by pfdietz, Sat Jan 17 12:05:41 2004 UTC revision 1.14 by pfdietz, Thu Sep 23 13:28:54 2004 UTC
# Line 194  Line 194 
194    (concatenate '(array nil (*)))    (concatenate '(array nil (*)))
195    "")    "")
196    
197    (deftest concatenate.33
198      (do-special-strings
199       (s "abc" nil)
200       (assert (string= (concatenate 'string s s s) "abcabcabc"))
201       (assert (string= (concatenate 'string "xy" s) "xyabc"))
202       (assert (string= (concatenate 'simple-string s "z" s "w" s) "abczabcwabc"))
203       (assert (string= (concatenate 'base-string s "z" s "w" s) "abczabcwabc"))
204       (assert (string= (concatenate 'simple-base-string s "z" s "w" s) "abczabcwabc"))
205       (assert (string= (concatenate '(vector character) s "z" s "w" s) "abczabcwabc")))
206      nil)
207                        
208  (deftest concatenate.order.1  (deftest concatenate.order.1
209    (let ((i 0) w x y z)    (let ((i 0) w x y z)
210      (values      (values

Legend:
Removed from v.1.13  
changed lines
  Added in v.1.14

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