X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Flambda-list.lisp;h=799e72770f9255ba029cc2a1a10dfd20fe63d96c;hb=d5aebd03c5c2f40f7e40df97dad605b198340bff;hp=1a0a6ebd22e468cc02e86cca7fb90d4cb18fa04a;hpb=c296885ca974898925b89af066b1b14a6fca0f57;p=jscl.git

diff --git a/src/lambda-list.lisp b/src/lambda-list.lisp
index 1a0a6eb..799e727 100644
--- a/src/lambda-list.lisp
+++ b/src/lambda-list.lisp
@@ -346,7 +346,7 @@
   (apply #'!expand-destructuring-bind lambda-list expression body))
 
 #+jscl
-(eval-when-compile
+(eval-when (:compile-toplevel)
   (let ((macroexpander
          '#'(lambda (form &optional environment)
               (declare (ignore environment))