25 |
(check-type-error #'fdefinition #'(lambda (x) (typep x '(or symbol (cons (eql setf) (cons symbol null)))))) |
(check-type-error #'fdefinition #'(lambda (x) (typep x '(or symbol (cons (eql setf) (cons symbol null)))))) |
26 |
nil) |
nil) |
27 |
|
|
28 |
(deftest fdefinition.error.5 |
;;; (deftest fdefinition.error.5 |
29 |
(let ((fn `(setf ,(gensym)))) |
;;; (let ((fn `(setf ,(gensym)))) |
30 |
(eval `(signals-error (fdefinition ',fn) undefined-function |
;;; (eval `(signals-error (fdefinition ',fn) undefined-function |
31 |
:name ,fn))) |
;;; :name ,fn))) |
32 |
t) |
;;; t) |
33 |
|
|
34 |
(deftest fdefinition.error.6 |
(deftest fdefinition.error.6 |
35 |
(signals-error (locally (fdefinition 10) t) type-error) |
(signals-error (locally (fdefinition 10) t) type-error) |