39 |
(let ((g (gensym))) (fboundp (list 'setf g))) |
(let ((g (gensym))) (fboundp (list 'setf g))) |
40 |
nil) |
nil) |
41 |
|
|
42 |
(deftest fboundp.8 |
(deftest fboundp.error.1 |
43 |
(classify-error (fboundp 1)) |
(classify-error (fboundp 1)) |
44 |
type-error) |
type-error) |
45 |
|
|
46 |
(deftest fboundp.9 |
(deftest fboundp.error.2 |
47 |
(classify-error (fboundp #\a)) |
(classify-error (fboundp #\a)) |
48 |
type-error) |
type-error) |
49 |
|
|
50 |
(deftest fboundp.10 |
(deftest fboundp.error.3 |
51 |
(classify-error (fboundp '(foo))) |
(classify-error (fboundp '(foo))) |
52 |
type-error) |
type-error) |
53 |
|
|
54 |
|
(deftest fboundp.error.4 |
55 |
|
(classify-error (fboundp)) |
56 |
|
program-error) |
57 |
|
|
58 |
|
(deftest fboundp.error.5 |
59 |
|
(classify-error (fboundp 'cons nil)) |
60 |
|
program-error) |