diff --git a/ansi-tests/compile.lsp b/ansi-tests/compile.lsp index f3d61f541a8ac39c21f4aa14516e3f7c8bc9df6c..47bf653960da036add7df13d4d5425eaede54a51 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)