mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-14 13:21:54 -08:00
Code Issues Projects Releases Packages Wiki Activity

Do not use closures to allow debugging c1let/c1let*

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2009-03-23 20:09:42 +01:00
parent 1c214bf454
commit 3835a482f8
1 changed files with 5 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

7
src/cmp/cmplet.lsp
View file

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