X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Flambda-list.lisp;h=799e72770f9255ba029cc2a1a10dfd20fe63d96c;hb=95984c591c75b8085adde1d478b224c2ed29eaa5;hp=19cc98db2fb72096d5c5087bb5a8ea41a8596801;hpb=3328a5d8e03ed74ff1871fc22403a3e25e001fe9;p=jscl.git

diff --git a/src/lambda-list.lisp b/src/lambda-list.lisp
index 19cc98d..799e727 100644
--- a/src/lambda-list.lisp
+++ b/src/lambda-list.lisp
@@ -15,6 +15,9 @@
 ;; You should have received a copy of the GNU General Public License
 ;; along with JSCL.  If not, see <http://www.gnu.org/licenses/>.
 
+(/debug "loading lambda-list.lisp!")
+
+
 (defvar !lambda-list-keywords
   '(&optional &rest &key &aux &allow-other-keys &body &optional))
 
@@ -343,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))