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

Implement debug information also for compiled LET/LET*

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2009-06-08 20:03:02 +02:00
parent 0eb4fcdf66
commit 2282dd3e92
1 changed files with 19 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

21
src/cmp/cmplet.lsp
View file

@ -231,7 +231,16 @@
(dolist (binding (nreverse bindings))
(bind (cdr binding) (car binding)))
(c2expr body)
(if (and *debug-fun* (>= *debug-fun* 3))
(let ((*unwind-exit* *unwind-exit*))
(wt-nl "{")
(let* ((env (build-debug-lexical-env vars)))
(when env (push 'IHS-ENV *unwind-exit*))
(c2expr body)
(wt-nl "}")
(when env (pop-debug-lexical-env))))
(c2expr body))
(when block-p (wt-nl "}"))
)
@ -441,7 +450,15 @@
(c2expr* form)))
)
)
(c2expr body)
(if (and *debug-fun* (>= *debug-fun* 3))
(let ((*unwind-exit* *unwind-exit*))
(wt-nl "{")
(let* ((env (build-debug-lexical-env vars)))
(when env (push 'IHS-ENV *unwind-exit*))
(c2expr body)
(wt-nl "}")
(when env (pop-debug-lexical-env))))
(c2expr body))
(when block-p (wt-nl "}"))
)