43 |
t nil) |
t nil) |
44 |
|
|
45 |
(deftest fmakunbound.error.1 |
(deftest fmakunbound.error.1 |
46 |
(catch-type-error (fmakunbound 1)) |
(classify-error (fmakunbound 1)) |
47 |
type-error) |
type-error) |
48 |
|
|
49 |
(deftest fmakunbound.error.2 |
(deftest fmakunbound.error.2 |
50 |
(catch-type-error (fmakunbound #\a)) |
(classify-error (fmakunbound #\a)) |
51 |
type-error) |
type-error) |
52 |
|
|
53 |
(deftest fmakunbound.error.3 |
(deftest fmakunbound.error.3 |
54 |
(catch-type-error (fmakunbound '(x))) |
(classify-error (fmakunbound '(x))) |
55 |
type-error) |
type-error) |
56 |
|
|
57 |
(deftest fmakunbound.error.4 |
(deftest fmakunbound.error.4 |
62 |
(classify-error (fmakunbound (gensym) nil)) |
(classify-error (fmakunbound (gensym) nil)) |
63 |
program-error) |
program-error) |
64 |
|
|
65 |
|
(deftest fmakunbound.error.6 |
66 |
|
(classify-error (locally (fmakunbound 1) t)) |
67 |
|
type-error) |