/[gcl]/gcl/ansi-tests/string-trim.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/string-trim.lsp

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

revision 1.4 by pfdietz, Fri Oct 4 11:13:40 2002 UTC revision 1.5 by pfdietz, Sat Oct 12 01:40:08 2002 UTC
# Line 63  Line 63 
63    
64  (deftest string-trim.8  (deftest string-trim.8
65    (let* ((s (copy-seq "abcdaba"))    (let* ((s (copy-seq "abcdaba"))
66           (s2 (string-trim (make-array 2 :initial-contents '(#\a #\b #\c #\d)           (s2 (string-trim (make-array 4 :initial-contents '(#\a #\b #\c #\d)
67                                        :element-type 'character                                        :element-type 'character
68                                        :fill-pointer 2)                                        :fill-pointer 2)
69                            s)))                            s)))

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

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