Toplevel closures in Medley Common Lisp

[pamoroso]

Consider this typical (at least in textbooks) idiom for creating closures in Common Lisp (there are better uses of closures but bear with me):

(LET ((MESSAGE "Hello world")) (DEFUN HELLO () (PRINT MESSAGE)))

When I evaluate this expression at the top level of a XCL Exec I get an error such as:

Invalid argument: #<Interpreted closure @ 166,117750>

Does Medley support toplevel closures like this? Does creating these closures require a different syntax?

[wmannis]

I also ran into this during some casual playing around with XCL recently.

Lexical closures first appeared in scheme, but I forget if they existed in CLTL1-era Common Lisp, or if they came later. I have a vague memory they came later to CL, but I can't find a cite for that.