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
_______________________________________________
Gcl-devel mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/gcl-devel
