42 |
(fboundp n)))) |
(fboundp n)))) |
43 |
t nil) |
t nil) |
44 |
|
|
45 |
(deftest fmakunbound.5 |
(deftest fmakunbound.error.1 |
46 |
(catch-type-error (fmakunbound 1)) |
(catch-type-error (fmakunbound 1)) |
47 |
type-error) |
type-error) |
48 |
|
|
49 |
(deftest fmakunbound.6 |
(deftest fmakunbound.error.2 |
50 |
(catch-type-error (fmakunbound #\a)) |
(catch-type-error (fmakunbound #\a)) |
51 |
type-error) |
type-error) |
52 |
|
|
53 |
(deftest fmakunbound.7 |
(deftest fmakunbound.error.3 |
54 |
(catch-type-error (fmakunbound '(x))) |
(catch-type-error (fmakunbound '(x))) |
55 |
type-error) |
type-error) |
56 |
|
|
57 |
|
(deftest fmakunbound.error.4 |
58 |
|
(classify-error (fmakunbound)) |
59 |
|
program-error) |
60 |
|
|
61 |
|
(deftest fmakunbound.error.5 |
62 |
|
(classify-error (fmakunbound (gensym) nil)) |
63 |
|
program-error) |
64 |
|
|