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

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

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

revision 1.5 by pfdietz, Wed Jun 18 11:55:24 2003 UTC revision 1.6 by pfdietz, Sun Jul 27 03:47:37 2003 UTC
# Line 62  Line 62 
62    nil)    nil)
63    
64  (deftest equal.13  (deftest equal.13
65      :notes (:nil-vectors-are-strings)
66    (let ((x (make-array '(0) :element-type nil))    (let ((x (make-array '(0) :element-type nil))
67          (y (make-array '(0) :element-type nil)))          (y (make-array '(0) :element-type nil)))
68      (equalt x y))      (equalt x y))
69    t)    t)
70    
71  (deftest equal.14  (deftest equal.14
72      :notes (:nil-vectors-are-strings)
73    (and    (and
74     (equalt (make-array '(0) :element-type nil) "")     (equalt (make-array '(0) :element-type nil) "")
75     (equalt "" (make-array '(0) :element-type nil)))     (equalt "" (make-array '(0) :element-type nil)))

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