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