41 |
t 1) |
t 1) |
42 |
|
|
43 |
(deftest special-operator-p.error.1 |
(deftest special-operator-p.error.1 |
44 |
(signals-error (special-operator-p 1) type-error) |
(check-type-error #'special-operator-p #'symbolp) |
45 |
t) |
nil) |
46 |
|
|
47 |
(deftest special-operator-p.error.2 |
(deftest special-operator-p.error.2 |
48 |
(signals-error (special-operator-p) program-error) |
(signals-error (special-operator-p) program-error) |
51 |
(deftest special-operator-p.error.3 |
(deftest special-operator-p.error.3 |
52 |
(signals-error (special-operator-p 'cons 'cons) program-error) |
(signals-error (special-operator-p 'cons 'cons) program-error) |
53 |
t) |
t) |
|
|
|