Parent Directory | Revision Log | Patch
revision 1.7 by pfdietz, Mon Feb 17 04:22:03 2003 UTC | revision 1.8 by pfdietz, Sat Apr 26 15:08:41 2003 UTC | |
---|---|---|
# | Line 9 | Line 9 |
9 | (progn | (progn |
10 | (fmakunbound 'compile.1-fn) | (fmakunbound 'compile.1-fn) |
11 | (values | (values |
12 | (defun compile.1-fn (x) x) | (eval '(defun compile.1-fn (x) x)) |
13 | (compiled-function-p 'compile.1-fn) | (compiled-function-p 'compile.1-fn) |
14 | (let ((x (compile 'compile.1-fn))) | (let ((x (compile 'compile.1-fn))) |
15 | (or (eqt x 'compile.1-fn) | (or (eqt x 'compile.1-fn) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |