[Gcl-devel] Re: error in compile

[Paul F. Dietz]

Peter Wood wrote:

> > (let ((foo 'bar) (bar 'foo)) (defun fubar () (list bar foo)))
>
>
> FUBAR
>
>
> > (symbol-function 'fubar)
>
>
> (LAMBDA-BLOCK-CLOSURE ((BAR FOO) (FOO BAR)) () () FUBAR ()
>   (LIST BAR FOO))
>
>
> > (compile 'fubar)
>
>
> LAMBDA-BLOCK-CLOSURE fell through ECASE expression.
> Wanted one of (LAMBDA LAMBDA-BLOCK).
>
> Fast links are on: do (use-fast-links nil) for debugging
> Broken at CASE.  Type :H for Help.
>  1 (Continue) Return to top level.
> dbl:>>


Your example isn't ANSI compliant.  See the page of CLHS for 'COMPILE':

    The consequences are undefined if the lexical environment
    surrounding the function to be compiled contains any bindings
    other than those for macros, symbol macros, or declarations.

        Paul