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

Minor correction in comments.

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2009-02-15 19:48:07 +01:00
parent ed0a29b5b9
commit 6d1fafc608
1 changed files with 2 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

5
src/cmp/cmpinline.lsp
View file

@ -89,9 +89,8 @@
(incf *inline-blocks*)
(setq loc var)
(push (list (loc-type loc) loc) locs))
;; FIXME! Why is (make-temp-var) before rebinding of *temp*???
(let* ((temp (make-temp-var))
;; bindings like c1expr*
(let* ((temp (make-temp-var)) ;; output value
;; bindings like c2expr*
(*exit* (next-label))
(*unwind-exit* (cons *exit* *unwind-exit*))
(*lcl* *lcl*)