diff --git a/ansi-tests/fdefinition.lsp b/ansi-tests/fdefinition.lsp index 268a40868bd24b03b1b305b1a43f8450db7e48f5..fe2fcb580bb6c7a27bb2a0c6f1cd424639836bc2 100644 --- a/ansi-tests/fdefinition.lsp +++ b/ansi-tests/fdefinition.lsp @@ -25,11 +25,11 @@ (check-type-error #'fdefinition #'(lambda (x) (typep x '(or symbol (cons (eql setf) (cons symbol null)))))) nil) -(deftest fdefinition.error.5 - (let ((fn `(setf ,(gensym)))) - (eval `(signals-error (fdefinition ',fn) undefined-function - :name ,fn))) - t) +;;; (deftest fdefinition.error.5 +;;; (let ((fn `(setf ,(gensym)))) +;;; (eval `(signals-error (fdefinition ',fn) undefined-function +;;; :name ,fn))) +;;; t) (deftest fdefinition.error.6 (signals-error (locally (fdefinition 10) t) type-error)