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

Diff of /gcl/ansi-tests/simple-base-string.lsp

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

revision 1.2 by pfdietz, Mon Jul 4 13:16:07 2005 UTC revision 1.3 by pfdietz, Mon Oct 24 11:52:21 2005 UTC
# Line 38  Line 38 
38    nil t)    nil t)
39    
40  (deftest simple-base-string.9  (deftest simple-base-string.9
41    :notes (:allow-nil-arrays)    :notes (:allow-nil-arrays :nil-vectors-are-strings)
42    (subtypep* '(simple-array nil (*)) 'simple-base-string)    (subtypep* '(simple-array nil (*)) 'simple-base-string)
43    nil t)    nil t)
44    
45  (deftest simple-base-string.10  (deftest simple-base-string.10
46    :notes (:allow-nil-arrays)    :notes (:allow-nil-arrays :nil-vectors-are-strings)
47    (typep* (make-array '(0) :element-type nil) 'simple-base-string)    (typep* (make-array '(0) :element-type nil) 'simple-base-string)
48    nil)    nil)
49    
50  (deftest simple-base-string.11  (deftest simple-base-string.11
51    :notes (:allow-nil-arrays)    :notes (:allow-nil-arrays :nil-vectors-are-strings)
52    (typep* (make-array '(12) :element-type nil) 'simple-base-string)    (typep* (make-array '(12) :element-type nil) 'simple-base-string)
53    nil)    nil)

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

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