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*)