From 0c85f05e39aa0b02fed17ebf3510c16e02985965 Mon Sep 17 00:00:00 2001
From: pfdietz <pfdietz@localhost>
Date: Fri, 19 May 2006 12:53:37 +0000
Subject: [PATCH] Simplified misc.641

---
 ansi-tests/misc.lsp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/ansi-tests/misc.lsp b/ansi-tests/misc.lsp
index 6a0c774a..ecdfc939 100644
--- a/ansi-tests/misc.lsp
+++ b/ansi-tests/misc.lsp
@@ -11373,11 +11373,11 @@ Broken at C::WT-MAKE-CLOSURE.
 ;;;   The value NIL is not of type SB-C::IR2-NLX-INFO.
 
 (deftest misc.641
-  (let ((form '(lambda (c)
+  (let ((form '(lambda () ; c)
 		 (declare (optimize (speed 1) (space 0) (debug 2)
 				    (compilation-speed 0) (safety 1)))
 		 (flet ((%f3 (f3-1 &key (key1 (count (floor 0 (min -74 0)) #())))
 			     0))
 		       (apply #'%f3 0 nil)))))
-    (funcall (compile nil form) 1))
+    (funcall (compile nil form)))
   0)
-- 
GitLab