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

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

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

revision 1.3 by pfdietz, Wed Nov 6 13:08:32 2002 UTC revision 1.4 by pfdietz, Fri Jan 3 04:28:38 2003 UTC
# Line 564  Line 564 
564    
565  (deftest replace-string.18  (deftest replace-string.18
566    (let* ((x (copy-seq "abcdef"))    (let* ((x (copy-seq "abcdef"))
567           (y (make-array '(6) :initial-contents (coerce "123456" 'list)           (y (make-array '(6) :initial-contents "123456"
568                          :fill-pointer 3                          :fill-pointer 3
569                          :element-type 'character))                          :element-type 'character))
570           (result (replace x y :start1 1)))           (result (replace x y :start1 1)))

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