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

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

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

revision 1.8 by pfdietz, Sun Jul 27 06:38:32 2003 UTC revision 1.9 by pfdietz, Wed Sep 3 10:58:29 2003 UTC
# Line 89  Line 89 
89    nil t)    nil t)
90    
91  (deftest base-string.6  (deftest base-string.6
92      :notes (:nil-vectors-are-strings)
93    (subtypep* 'string 'base-string)    (subtypep* 'string 'base-string)
94    nil t)    nil t)
95    
# Line 123  Line 124 
124    t t)    t t)
125    
126  (deftest simple-string.8  (deftest simple-string.8
127      :notes (:nil-vectors-are-strings)
128    (subtypep* 'simple-string '(simple-array character (*)))    (subtypep* 'simple-string '(simple-array character (*)))
129    nil t)    nil t)
130    
131  (deftest simple-string.9  (deftest simple-string.9
132      :notes (:nil-vectors-are-strings)
133    (subtypep* 'simple-string '(simple-array base-char (*)))    (subtypep* 'simple-string '(simple-array base-char (*)))
134    nil t)    nil t)
135    
136  (deftest simple-string.10  (deftest simple-string.10
137      :notes (:nil-vectors-are-strings)
138    (subtypep* 'simple-string 'simple-base-string)    (subtypep* 'simple-string 'simple-base-string)
139    nil t)    nil t)
140    

Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9

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