Is there an LISP interpreter for win 16/32 ?

[Bob Riemenschneider]

In article <340444AC...@nospan.netright.com> David Hanley
<da...@nospan.netright.com> writes:

> > (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?

Neither.

The symbol DOUBLE is not a compiled function. Try

(compiled-function-p #'double)

-- rar

[Erik Naggum]

* 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.

[David Hanley]

Bob Riemenschneider wrote:

> Neither.
>
> The symbol DOUBLE is not a compiled function. Try
>
> (compiled-function-p #'double)
>
> -- rar

Whups! That sucks, beavis.. :)

dave