/[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.18 by pfdietz, Wed Sep 22 12:21:49 2004 UTC revision 1.19 by pfdietz, Wed Sep 22 12:22:14 2004 UTC
# Line 688  Line 688 
688    
689  (deftest position-string.32  (deftest position-string.32
690    (let* ((s1 (copy-seq "xxxabcdabcdyyyyyyyy"))    (let* ((s1 (copy-seq "xxxabcdabcdyyyyyyyy"))
691           (s2 (make-array '(4) :displaced-to s1           (s2 (make-array '(8) :displaced-to s1
692                           :displaced-index-offset 3                           :displaced-index-offset 3
693                           :element-type (array-element-type s1))))                           :element-type (array-element-type s1))))
694      (position #\c s2 :from-end t))      (position #\c s2 :from-end t))

Legend:
Removed from v.1.18  
changed lines
  Added in v.1.19

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