From 3835a482f8460ffee003d4a0e11fd15328849dcf Mon Sep 17 00:00:00 2001 From: Juan Jose Garcia Ripoll Date: Mon, 23 Mar 2009 20:09:42 +0100 Subject: [PATCH] Do not use closures to allow debugging c1let/c1let* --- src/cmp/cmplet.lsp | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/src/cmp/cmplet.lsp b/src/cmp/cmplet.lsp index 7314f7cb3..8991bc10f 100644 --- a/src/cmp/cmplet.lsp +++ b/src/cmp/cmplet.lsp @@ -48,6 +48,9 @@ (setf vars (nreverse vars) forms (nreverse forms)) + (print vars) + (print args) + (mapc #'push-vars vars) (check-vdecl vnames ts is) @@ -506,7 +509,7 @@ ;;; ---------------------------------------------------------------------- -(put-sysprop 'LET 'C1SPECIAL #'c1let) +(put-sysprop 'LET 'C1SPECIAL 'c1let) (put-sysprop 'LET 'C2 'c2let) -(put-sysprop 'LET* 'C1SPECIAL #'c1let*) +(put-sysprop 'LET* 'C1SPECIAL 'c1let*) (put-sysprop 'LET* 'C2 'c2let*)