X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Flambda-list.lisp;h=799e72770f9255ba029cc2a1a10dfd20fe63d96c;hb=266509b078969a40bded783057fc15a873c75723;hp=1a0a6ebd22e468cc02e86cca7fb90d4cb18fa04a;hpb=66137c363429f28f6e40e15ba3f982025ff9bb5d;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))