45 |
(deftest fmakunbound.error.1 |
(deftest fmakunbound.error.1 |
46 |
(check-type-error #'fmakunbound |
(check-type-error #'fmakunbound |
47 |
#'(lambda (x) (typep x '(or symbol (cons (eql setf) (cons symbol null)))))) |
#'(lambda (x) (typep x '(or symbol (cons (eql setf) (cons symbol null)))))) |
48 |
t) |
nil) |
49 |
|
|
50 |
(deftest fmakunbound.error.2 |
(deftest fmakunbound.error.2 |
51 |
(check-type-error #'fmakunbound (constantly nil) |
(check-type-error #'fmakunbound (constantly nil) |
70 |
|
|
71 |
(deftest fmakunbound.error.7 |
(deftest fmakunbound.error.7 |
72 |
(check-type-error #'(lambda (x) (fmakunbound `(setf ,x))) #'symbolp) |
(check-type-error #'(lambda (x) (fmakunbound `(setf ,x))) #'symbolp) |
73 |
t) |
nil) |