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