/[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.3 by pfdietz, Mon Nov 11 02:12:22 2002 UTC revision 1.4 by pfdietz, Fri Jan 3 04:28:38 2003 UTC
# Line 294  Line 294 
294    "123")    "123")
295    
296  (deftest merge-string.15  (deftest merge-string.15
297    (let* ((x (make-array '(10) :initial-contents (coerce "adgkmpruwv" 'list)    (let* ((x (make-array '(10) :initial-contents "adgkmpruwv"
298                          :fill-pointer 5 :element-type 'character))                          :fill-pointer 5 :element-type 'character))
299           (y (copy-seq "bci")))           (y (copy-seq "bci")))
300      (merge 'string x y #'char<))      (merge 'string x y #'char<))
301    "abcdgikm")    "abcdgikm")
302    
303  (deftest merge-string.16  (deftest merge-string.16
304    (let* ((x (make-array '(10) :initial-contents (coerce "adgkmpruwv" 'list)    (let* ((x (make-array '(10) :initial-contents "adgkmpruwv"
305                          :fill-pointer 5 :element-type 'character))                          :fill-pointer 5 :element-type 'character))
306           (y (copy-seq "bci")))           (y (copy-seq "bci")))
307      (merge 'string y x #'char<))      (merge 'string y x #'char<))
308    "abcdgikm")    "abcdgikm")
309    
310  (deftest merge-string.17  (deftest merge-string.17
311    (let* ((x (make-array '(10) :initial-contents (coerce "adgkmpruwv" 'list)    (let* ((x (make-array '(10) :initial-contents "adgkmpruwv"
312                          :fill-pointer 5 :element-type 'character)))                          :fill-pointer 5 :element-type 'character)))
313      (merge 'string nil x #'char<))      (merge 'string nil x #'char<))
314    "adgkm")    "adgkm")
315    
316  (deftest merge-string.18  (deftest merge-string.18
317    (let* ((x (make-array '(10) :initial-contents (coerce "adgkmpruwv" 'list)    (let* ((x (make-array '(10) :initial-contents "adgkmpruwv"
318                          :fill-pointer 5 :element-type 'character)))                          :fill-pointer 5 :element-type 'character)))
319      (merge 'string x nil #'char<))      (merge 'string x nil #'char<))
320    "adgkm")    "adgkm")
# Line 435  Line 435 
435    #*011)    #*011)
436    
437  (deftest merge-bit-vector.16  (deftest merge-bit-vector.16
438    (let* ((x (make-array '(10) :initial-contents (coerce #*0001101010 'list)    (let* ((x (make-array '(10) :initial-contents #*0001101010
439                          :fill-pointer 5 :element-type 'bit))                          :fill-pointer 5 :element-type 'bit))
440           (y (copy-seq #*001)))           (y (copy-seq #*001)))
441      (merge 'bit-vector x y #'<))      (merge 'bit-vector x y #'<))
442    #*00000111)    #*00000111)
443    
444  (deftest merge-bit-vector.17  (deftest merge-bit-vector.17
445    (let* ((x (make-array '(10) :initial-contents (coerce #*0001101010 'list)    (let* ((x (make-array '(10) :initial-contents #*0001101010
446                          :fill-pointer 5 :element-type 'bit))                          :fill-pointer 5 :element-type 'bit))
447           (y (copy-seq #*001)))           (y (copy-seq #*001)))
448      (merge 'bit-vector y x #'<))      (merge 'bit-vector y x #'<))
449    #*00000111)    #*00000111)
450    
451  (deftest merge-bit-vector.18  (deftest merge-bit-vector.18
452    (let* ((x (make-array '(10) :initial-contents (coerce #*0001101010 'list)    (let* ((x (make-array '(10) :initial-contents #*0001101010
453                          :fill-pointer 5 :element-type 'bit)))                          :fill-pointer 5 :element-type 'bit)))
454      (merge 'bit-vector nil x #'<))      (merge 'bit-vector nil x #'<))
455    #*00011)    #*00011)
456    
457  (deftest merge-bit-vector.19  (deftest merge-bit-vector.19
458    (let* ((x (make-array '(10) :initial-contents (coerce #*0001101010 'list)    (let* ((x (make-array '(10) :initial-contents #*0001101010
459                          :fill-pointer 5 :element-type 'bit)))                          :fill-pointer 5 :element-type 'bit)))
460      (merge 'bit-vector x nil #'<))      (merge 'bit-vector x nil #'<))
461    #*00011)    #*00011)

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4

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