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

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

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

revision 1.5 by pfdietz, Tue Nov 5 13:51:27 2002 UTC revision 1.6 by pfdietz, Fri Jan 3 04:28:38 2003 UTC
# Line 613  Line 613 
613    4)    4)
614    
615  (deftest position-string.25  (deftest position-string.25
616    (position #\a (make-array '(10) :initial-contents (coerce "bbbbbaaaaa" 'list)    (position #\a (make-array '(10) :initial-contents "bbbbbaaaaa"
617                              :element-type 'character                              :element-type 'character
618                              :fill-pointer 5))                              :fill-pointer 5))
619    nil)    nil)
620    
621  (deftest position-string.26  (deftest position-string.26
622    (position #\a (make-array '(10) :initial-contents (coerce "bbbbbaaaaa" 'list)    (position #\a (make-array '(10) :initial-contents "bbbbbaaaaa"
623                              :element-type 'character                              :element-type 'character
624                              :fill-pointer 5)                              :fill-pointer 5)
625              :from-end t)              :from-end t)
626    nil)    nil)
627    
628  (deftest position-string.27  (deftest position-string.27
629    (position #\a (make-array '(10) :initial-contents (coerce "bbbbaaaaaa" 'list)    (position #\a (make-array '(10) :initial-contents "bbbbaaaaaa"
630                              :element-type 'character                              :element-type 'character
631                              :fill-pointer 5))                              :fill-pointer 5))
632    4)    4)
633    
634  (deftest position-string.28  (deftest position-string.28
635    (position #\a (make-array '(10) :initial-contents (coerce "babbaaaaaa" 'list)    (position #\a (make-array '(10) :initial-contents "babbaaaaaa"
636                              :element-type 'character                              :element-type 'character
637                              :fill-pointer 5)                              :fill-pointer 5)
638              :from-end t)              :from-end t)

Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6

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