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

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

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

revision 1.3 by pfdietz, Sat Oct 12 01:40:08 2002 UTC revision 1.4 by pfdietz, Fri Jan 3 04:28:38 2003 UTC
# Line 72  Line 72 
72    "cdaba")    "cdaba")
73    
74  (deftest string-left-trim.9  (deftest string-left-trim.9
75    (let* ((s (make-array 7 :initial-contents (coerce "abcdaba" 'list)    (let* ((s (make-array 7 :initial-contents "abcdaba"
76                          :element-type 'character                          :element-type 'character
77                          ))                          ))
78           (s2 (string-left-trim "ab" s)))           (s2 (string-left-trim "ab" s)))
# Line 81  Line 81 
81    "cdaba")    "cdaba")
82    
83  (deftest string-left-trim.10  (deftest string-left-trim.10
84    (let* ((s (make-array 9 :initial-contents (coerce "abcdabadd" 'list)    (let* ((s (make-array 9 :initial-contents "abcdabadd"
85                          :element-type 'character                          :element-type 'character
86                          :fill-pointer 7))                          :fill-pointer 7))
87           (s2 (string-left-trim "ab" s)))           (s2 (string-left-trim "ab" s)))
# Line 90  Line 90 
90    "cdaba")    "cdaba")
91    
92  (deftest string-left-trim.11  (deftest string-left-trim.11
93    (let* ((s (make-array 7 :initial-contents (coerce "abcdaba" 'list)    (let* ((s (make-array 7 :initial-contents "abcdaba"
94                          :element-type 'standard-char                          :element-type 'standard-char
95                          ))                          ))
96           (s2 (string-left-trim "ab" s)))           (s2 (string-left-trim "ab" s)))
# Line 99  Line 99 
99    "cdaba")    "cdaba")
100    
101  (deftest string-left-trim.12  (deftest string-left-trim.12
102    (let* ((s (make-array 7 :initial-contents (coerce "abcdaba" 'list)    (let* ((s (make-array 7 :initial-contents "abcdaba"
103                          :element-type 'base-char                          :element-type 'base-char
104                          ))                          ))
105           (s2 (string-left-trim "ab" s)))           (s2 (string-left-trim "ab" s)))

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