367 |
(deftest nset-exclusive-or.error.12 |
(deftest nset-exclusive-or.error.12 |
368 |
(signals-error (nset-exclusive-or (list* 1 2 3) (list 4 5 6)) type-error) |
(signals-error (nset-exclusive-or (list* 1 2 3) (list 4 5 6)) type-error) |
369 |
t) |
t) |
370 |
|
|
371 |
|
(deftest nset-exclusive-or.error.13 |
372 |
|
(check-type-error #'(lambda (x) (nset-exclusive-or x (list 'a 'b))) #'listp) |
373 |
|
nil) |
374 |
|
|
375 |
|
(deftest nset-exclusive-or.error.14 |
376 |
|
(check-type-error #'(lambda (x) (nset-exclusive-or (list 'a 'b) x)) #'listp) |
377 |
|
nil) |