51 |
(eqlt #c(1 -2) (- #c(-1 2))) |
(eqlt #c(1 -2) (- #c(-1 2))) |
52 |
t) |
t) |
53 |
|
|
54 |
;;; There are many other uses of EQL in other files. |
(deftest eql.error.1 |
55 |
|
(classify-error (eql)) |
56 |
|
program-error) |
57 |
|
|
58 |
|
(deftest eql.error.2 |
59 |
|
(classify-error (eql nil)) |
60 |
|
program-error) |
61 |
|
|
62 |
|
(deftest eql.error.3 |
63 |
|
(classify-error (eql nil nil nil)) |
64 |
|
program-error) |
65 |
|
|
66 |
|
;;; Error tests for EQ |
67 |
|
|
68 |
|
(deftest eq.error.1 |
69 |
|
(classify-error (eq)) |
70 |
|
program-error) |
71 |
|
|
72 |
|
(deftest eq.error.2 |
73 |
|
(classify-error (eq nil)) |
74 |
|
program-error) |
75 |
|
|
76 |
|
(deftest eq.error.3 |
77 |
|
(classify-error (eq nil nil nil)) |
78 |
|
program-error) |
79 |
|
|
80 |
|
|