51 |
t 1) |
t 1) |
52 |
|
|
53 |
(deftest fboundp.error.1 |
(deftest fboundp.error.1 |
54 |
(signals-error (fboundp 1) type-error) |
(check-type-error #'fboundp #'(lambda (x) (typep x '(or symbol (cons (eql setf) (cons symbol null)))))) |
55 |
t) |
nil) |
56 |
|
|
57 |
(deftest fboundp.error.2 |
(deftest fboundp.error.2 |
58 |
(signals-error (fboundp #\a) type-error) |
(signals-type-error x '(x) (fboundp x)) |
59 |
t) |
t) |
60 |
|
|
61 |
(deftest fboundp.error.3 |
(deftest fboundp.error.3 |
62 |
(signals-error (fboundp '(foo)) type-error) |
(signals-type-error x '(setf) (fboundp x)) |
63 |
t) |
t) |
64 |
|
|
65 |
(deftest fboundp.error.4 |
(deftest fboundp.error.4 |
66 |
(signals-error (fboundp) program-error) |
(signals-type-error x '(setf foo . bar) (fboundp x)) |
67 |
t) |
t) |
68 |
|
|
69 |
(deftest fboundp.error.5 |
(deftest fboundp.error.5 |
70 |
(signals-error (fboundp 'cons nil) program-error) |
(signals-type-error x '(setf foo bar) (fboundp x)) |
71 |
t) |
t) |
72 |
|
|
73 |
(deftest fboundp.error.6 |
(deftest fboundp.error.6 |
74 |
|
(signals-error (fboundp) program-error) |
75 |
|
t) |
76 |
|
|
77 |
|
(deftest fboundp.error.7 |
78 |
|
(signals-error (fboundp 'cons nil) program-error) |
79 |
|
t) |
80 |
|
|
81 |
|
(deftest fboundp.error.8 |
82 |
(signals-error (locally (fboundp 1) t) type-error) |
(signals-error (locally (fboundp 1) t) type-error) |
83 |
t) |
t) |
84 |
|
|
85 |
|
(deftest fboundp.error.9 |
86 |
|
(signals-type-error x '(setf . foo) (fboundp x)) |
87 |
|
t) |
88 |
|
|
89 |
|
(deftest fboundp.error.10 |
90 |
|
(check-type-error #'(lambda (x) (fboundp `(setf ,x))) |
91 |
|
#'symbolp) |
92 |
|
nil) |