Commit 5a6db6b2 authored by pfdietz's avatar pfdietz
Browse files

Fixed problem identified by GM.

parent ae129d52
......@@ -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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment