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

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

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

revision 1.4 by pfdietz, Mon Nov 4 04:31:48 2002 UTC revision 1.5 by pfdietz, Fri Jan 3 04:28:38 2003 UTC
# Line 74  Line 74 
74    "000110110110")    "000110110110")
75    
76  (deftest reverse-string.3  (deftest reverse-string.3
77    (let* ((x (make-array 10 :initial-contents (coerce "abcdefghij" 'list)    (let* ((x (make-array 10 :initial-contents "abcdefghij"
78                          :fill-pointer 5                          :fill-pointer 5
79                          :element-type 'character))                          :element-type 'character))
80           (y (reverse x)))           (y (reverse x)))
# Line 82  Line 82 
82    "edcba")    "edcba")
83    
84  (deftest reverse-string.4  (deftest reverse-string.4
85    (let* ((x (make-array 10 :initial-contents (coerce "abcdefghij" 'list)    (let* ((x (make-array 10 :initial-contents "abcdefghij"
86                          :fill-pointer 5                          :fill-pointer 5
87                          :element-type 'base-char))                          :element-type 'base-char))
88           (y (reverse x)))           (y (reverse x)))

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