61 |
(equalt (copy-seq #*000110) (copy-seq #*000111)) |
(equalt (copy-seq #*000110) (copy-seq #*000111)) |
62 |
nil) |
nil) |
63 |
|
|
64 |
|
(deftest equal.13 |
65 |
|
(let ((x (make-array '(0) :element-type nil)) |
66 |
|
(y (make-array '(0) :element-type nil))) |
67 |
|
(equalt x y)) |
68 |
|
t) |
69 |
|
|
70 |
|
(deftest equal.14 |
71 |
|
(and |
72 |
|
(equalt (make-array '(0) :element-type nil) "") |
73 |
|
(equalt "" (make-array '(0) :element-type nil))) |
74 |
|
t) |
75 |
|
|
76 |
(deftest equal.order.1 |
(deftest equal.order.1 |
77 |
(let ((i 0) x y) |
(let ((i 0) x y) |
78 |
(values |
(values |