14 |
t) |
t) |
15 |
|
|
16 |
(deftest boundp.error.3 |
(deftest boundp.error.3 |
17 |
(signals-error (boundp 1) type-error) |
(signals-type-error x 1 (boundp 1)) |
18 |
t) |
t) |
19 |
|
|
20 |
(deftest boundp.error.4 |
(deftest boundp.error.4 |
21 |
(signals-error (boundp '(setf car)) type-error) |
(signals-type-error x '(setf car) (boundp x)) |
22 |
t) |
t) |
23 |
|
|
24 |
(deftest boundp.error.5 |
(deftest boundp.error.5 |
25 |
(signals-error (boundp "abc") type-error) |
(signals-type-error x "abc" (boundp x)) |
26 |
t) |
t) |
27 |
|
|
28 |
(deftest boundp.error.6 |
(deftest boundp.error.6 |
29 |
(signals-error (locally (boundp "abc") t) type-error) |
(signals-type-error x "abc" (locally (boundp x) t)) |
30 |
t) |
t) |
31 |
|
|
32 |
;;; See other tests in cl-symbols.lsp |
;;; See other tests in cl-symbols.lsp |