From 5a6db6b286e88c070a7f2339826bb93882a9ce1e Mon Sep 17 00:00:00 2001
From: pfdietz <pfdietz@localhost>
Date: Sat, 26 Apr 2003 15:08:41 +0000
Subject: [PATCH] Fixed problem identified by GM.

---
 ansi-tests/compile.lsp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/ansi-tests/compile.lsp b/ansi-tests/compile.lsp
index f3d61f54..47bf6539 100644
--- a/ansi-tests/compile.lsp
+++ b/ansi-tests/compile.lsp
@@ -9,7 +9,7 @@
   (progn
     (fmakunbound 'compile.1-fn)
     (values
-     (defun compile.1-fn (x) x)
+     (eval '(defun compile.1-fn (x) x))
      (compiled-function-p 'compile.1-fn)
      (let ((x (compile 'compile.1-fn)))
        (or (eqt x 'compile.1-fn)
-- 
GitLab