6 |
(in-package :cl-test) |
(in-package :cl-test) |
7 |
|
|
8 |
(deftest complement.1 |
(deftest complement.1 |
9 |
(not (funcall (cl::complement #'identity) nil)) |
(not (funcall (complement #'identity) nil)) |
10 |
nil) |
nil) |
11 |
|
|
12 |
(deftest complement.2 |
(deftest complement.2 |
13 |
(funcall (cl::complement #'identity) t) |
(funcall (complement #'identity) t) |
14 |
nil) |
nil) |
15 |
|
|
16 |
(deftest complement.3 |
(deftest complement.3 |
24 |
(loop for i from 2 to (min 256 (1- call-arguments-limit)) |
(loop for i from 2 to (min 256 (1- call-arguments-limit)) |
25 |
always (progn |
always (progn |
26 |
(push #\a x) |
(push #\a x) |
27 |
(apply (cl::complement #'char=) x)))) |
(apply (complement #'char=) x)))) |
28 |
t) |
t) |
29 |
|
|
30 |
(deftest complement.5 |
(deftest complement.5 |
31 |
(classify-error (complement)) |
(classify-error (complement)) |
32 |
program-error) |
program-error) |
33 |
|
|
|
|
|
34 |
(deftest complement.6 |
(deftest complement.6 |
35 |
(classify-error (complement #'not t)) |
(classify-error (complement #'not t)) |
36 |
program-error) |
program-error) |