/[gcl]/gcl/ansi-tests/make-array.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/make-array.lsp

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

revision 1.6 by pfdietz, Fri Jan 10 11:10:00 2003 UTC revision 1.7 by pfdietz, Fri Jan 10 13:59:16 2003 UTC
# Line 404  Line 404 
404                              :displaced-to a                              :displaced-to a
405                              :displaced-index-offset 10))                              :displaced-index-offset 10))
406    #*)    #*)
407    
408    (deftest make-array.displaced.11
409      (let ((a (make-array '(10) :element-type 'base-char
410                           :initial-contents "abcdefghij")))
411        (make-array-with-checks '(5) :element-type 'base-char
412                                :displaced-to a))
413      "abcde")
414    
415    (deftest make-array.displaced.12
416      (let ((a (make-array '(10) :element-type 'base-char
417                           :initial-contents "abcdefghij")))
418        (loop for i from 0 to 5 collect
419              (make-array-with-checks '(5) :element-type 'base-char
420                                      :displaced-to a
421                                      :displaced-index-offset i)))
422      ("abcde"
423       "bcdef"
424       "cdefg"
425       "defgh"
426       "efghi"
427       "fghij"))
428    
429    (deftest make-array.displaced.13
430      (let ((a (make-array '(10) :element-type 'base-char
431                           :initial-contents "abcdefghij")))
432        (make-array-with-checks '(0) :element-type 'base-char
433                                :displaced-to a
434                                :displaced-index-offset 10))
435      "")
436    
437    (deftest make-array.displaced.14
438      (let ((a (make-array '(10) :element-type 'character
439                           :initial-contents "abcdefghij")))
440        (make-array-with-checks '(5) :element-type 'character
441                                :displaced-to a))
442      "abcde")
443    
444    (deftest make-array.displaced.15
445      (let ((a (make-array '(10) :element-type 'character
446                           :initial-contents "abcdefghij")))
447        (loop for i from 0 to 5 collect
448              (make-array-with-checks '(5) :element-type 'character
449                                      :displaced-to a
450                                      :displaced-index-offset i)))
451      ("abcde"
452       "bcdef"
453       "cdefg"
454       "defgh"
455       "efghi"
456       "fghij"))
457    
458    (deftest make-array.displaced.16
459      (let ((a (make-array '(10) :element-type 'character
460                           :initial-contents "abcdefghij")))
461        (make-array-with-checks '(0) :element-type 'character
462                                :displaced-to a
463                                :displaced-index-offset 10))
464      "")

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