/[gcl]/gcl/ansi-tests/compile.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/compile.lsp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch 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)

Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26