110 |
;; Error checking |
;; Error checking |
111 |
|
|
112 |
(deftest ldiff.error.1 |
(deftest ldiff.error.1 |
113 |
(signals-error (ldiff 10 'a) type-error) |
(signals-type-error x 10 (ldiff x 'a)) |
114 |
t) |
t) |
115 |
|
|
116 |
;; Single atoms are not dotted lists, so the next |
;; Single atoms are not dotted lists, so the next |
117 |
;; case should be a type-error |
;; case should be a type-error |
118 |
(deftest ldiff.error.2 |
(deftest ldiff.error.2 |
119 |
(signals-error (ldiff 'a 'a) type-error) |
(signals-type-error x 'a (ldiff x 'a)) |
120 |
t) |
t) |
121 |
|
|
122 |
(deftest ldiff.error.3 |
(deftest ldiff.error.3 |
123 |
(signals-error (ldiff (make-array '(10) :initial-element 'a) '(a)) |
(signals-type-error x (make-array '(10) :initial-element 'a) (ldiff x '(a))) |
|
type-error) |
|
124 |
t) |
t) |
125 |
|
|
126 |
(deftest ldiff.error.4 |
(deftest ldiff.error.4 |
127 |
(signals-error (ldiff 1.23 t) type-error) |
(signals-type-error x 1.23 (ldiff x t)) |
128 |
t) |
t) |
129 |
|
|
130 |
(deftest ldiff.error.5 |
(deftest ldiff.error.5 |
131 |
(signals-error (ldiff #\w 'a) type-error) |
(signals-type-error x #\w (ldiff x 'a)) |
132 |
t) |
t) |
133 |
|
|
134 |
(deftest ldiff.error.6 |
(deftest ldiff.error.6 |