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

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

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

revision 1.13 by pfdietz, Sun Sep 26 16:12:11 2004 UTC revision 1.14 by pfdietz, Tue Aug 16 00:56:02 2005 UTC
# Line 234  Line 234 
234    "12345789")    "12345789")
235    
236  (deftest merge-string.1a  (deftest merge-string.1a
237    (let ((x "1378")    (let ((x (copy-seq "1378"))
238          (y (list #\2 #\4 #\5 #\9)))          (y (list #\2 #\4 #\5 #\9)))
239      (merge 'string x y #'char<))      (merge 'string x y #'char<))
240    "12345789")    "12345789")
241    
242  (deftest merge-string.1b  (deftest merge-string.1b
243    (let ((x (list #\1 #\3 #\7 #\8))    (let ((x (list #\1 #\3 #\7 #\8))
244          (y "2459"))          (y (copy-seq "2459")))
245      (merge 'string x y #'char<))      (merge 'string x y #'char<))
246    "12345789")    "12345789")
247    
248  (deftest merge-string.1c  (deftest merge-string.1c
249    (let ((x "1378")    (let ((x (copy-seq "1378"))
250          (y "2459"))          (y (copy-seq "2459")))
251      (merge 'string x y #'char<))      (merge 'string x y #'char<))
252    "12345789")    "12345789")
253    
254  (deftest merge-string.1d  (deftest merge-string.1d
255    (let ((x "1378")    (let ((x (copy-seq "1378"))
256          (y "2459"))          (y (copy-seq "2459")))
257      (merge 'string y x #'char<))      (merge 'string y x #'char<))
258    "12345789")    "12345789")
259    

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