* David Hanley
| Welcome to Allegro CL Lite for Windows
| Version: 3.0.2 Lite Release: 15-Jan-97 19:03
| Copyright (C) 1992-1997, Franz Inc., Berkeley, CA, USA.
| All rights reserved.
| Loaded Franz Inc. Patches: None.
|
| > (defun double(x) (+ x x))
| DOUBLE
| > (compiled-function-p 'double)
| NIL
| > (compile 'double)
| DOUBLE
| > (compiled-function-p 'double)
| NIL
| >
|
| Is there a bug in the compiled-function-p function, or is it really
| an interpreter?
the symbol `double' could never become a compiled-function no matter how
hard you tried.
this example is from ACL 4.3.1 for Unix, but you should be able to obtain
better results from following this example:
user(2): (defun double (x) (+ x x))
double
user(3): (compiled-function-p 'double)
nil
user(4): (compiled-function-p #'double)
nil
user(5): (compile 'double)
double
nil
nil
user(6): (compiled-function-p 'double)
nil
user(7): (compiled-function-p #'double)
t
(compiled-function-p #'double) should return t in both cases under Allegro
CL Lite for Windows. let me know if this is not so.
#\Erik
--
404 You're better off without this URL. Trust me.
