From a3021511cc720c38c188edd61438c53b8cf4d452 Mon Sep 17 00:00:00 2001 From: pfdietz <pfdietz@localhost> Date: Sat, 13 Aug 2005 19:52:49 +0000 Subject: [PATCH] Removed FDEFINITION.ERROR.5, which is not actually required by the standard --- ansi-tests/fdefinition.lsp | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/ansi-tests/fdefinition.lsp b/ansi-tests/fdefinition.lsp index 268a4086..fe2fcb58 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) -- GitLab