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))) |