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

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

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

revision 1.5 by pfdietz, Fri Feb 14 05:10:36 2003 UTC revision 1.6 by pfdietz, Thu Mar 6 02:25:20 2003 UTC
# Line 8  Line 8 
8  (deftest make-string.1  (deftest make-string.1
9    (let ((s (make-string 10)))    (let ((s (make-string 10)))
10      (and (stringp s)      (and (stringp s)
11           ;; (string-all-the-same s)           #+:ansi-tests-strict-initial-element
12             (string-all-the-same s)
13           (eqlt (length s) 10)           (eqlt (length s) 10)
14           ))           ))
15    t)    t)
# Line 52  Line 53 
53    (let ((s (make-string 10 :element-type 'character)))    (let ((s (make-string 10 :element-type 'character)))
54      (and (stringp s)      (and (stringp s)
55           (eqlt (length s) 10)           (eqlt (length s) 10)
56           #| (string-all-the-same s) |#           #+:ansi-tests-strict-initial-element
57             (string-all-the-same s)
58           ))           ))
59    t)    t)
60    
# Line 60  Line 62 
62    (let ((s (make-string 10 :element-type 'standard-char)))    (let ((s (make-string 10 :element-type 'standard-char)))
63      (and (stringp s)      (and (stringp s)
64           (eqlt (length s) 10)           (eqlt (length s) 10)
65           #| (string-all-the-same s) |#           #+:ansi-tests-strict-initial-element
66             (string-all-the-same s)
67           ))           ))
68    t)    t)
69    
# Line 68  Line 71 
71    (let ((s (make-string 10 :element-type 'base-char)))    (let ((s (make-string 10 :element-type 'base-char)))
72      (and (stringp s)      (and (stringp s)
73           (eqlt (length s) 10)           (eqlt (length s) 10)
74           #| (string-all-the-same s) |#           #+:ansi-tests-strict-initial-element
75             (string-all-the-same s)
76           ))           ))
77    t)    t)
78    

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

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