43 |
t nil) |
t nil) |
44 |
|
|
45 |
(deftest fmakunbound.error.1 |
(deftest fmakunbound.error.1 |
46 |
(signals-error (fmakunbound 1) type-error) |
(check-type-error #'fmakunbound |
47 |
|
#'(lambda (x) (typep x '(or symbol (cons (eql setf) (cons symbol null)))))) |
48 |
t) |
t) |
49 |
|
|
50 |
(deftest fmakunbound.error.2 |
(deftest fmakunbound.error.2 |
51 |
(signals-error (fmakunbound #\a) type-error) |
(check-type-error #'fmakunbound (constantly nil) |
52 |
t) |
'((setf) (setf . foo) (setf foo . bar) (setf foo bar))) |
53 |
|
nil) |
54 |
|
|
55 |
(deftest fmakunbound.error.3 |
(deftest fmakunbound.error.3 |
56 |
(signals-error (fmakunbound '(x)) type-error) |
(signals-type-error x '(x) (fmakunbound x)) |
57 |
t) |
t) |
58 |
|
|
59 |
(deftest fmakunbound.error.4 |
(deftest fmakunbound.error.4 |
68 |
(signals-error (locally (fmakunbound 1) t) type-error) |
(signals-error (locally (fmakunbound 1) t) type-error) |
69 |
t) |
t) |
70 |
|
|
71 |
|
(deftest fmakunbound.error.7 |
72 |
|
(check-type-error #'(lambda (x) (fmakunbound `(setf ,x))) #'symbolp) |
73 |
|
t) |