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

Reimplemented C2LET without REPLACEd variables and eliminated this kind from the rest of the compiler.

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2010-05-25 19:43:31 +02:00
parent 51c7549e72
commit bb3eeabf74
8 changed files with 106 additions and 106 deletions
Download patch file Download diff file Expand all files Collapse all files

12
src/cmp/cmpinline.lsp
View file

@ -294,8 +294,16 @@
(nreverse rts))
inline-info))))
(defun close-inline-blocks ()
(dotimes (i *inline-blocks*) (declare (fixnum i)) (wt #\})))
(defun maybe-open-inline-block ()
(unless (plusp *inline-blocks*)
(wt "{")
(setf *inline-blocks* 1)))
(defun close-inline-blocks (&optional new-line)
(loop for i of-type fixnum from 0 below *inline-blocks*
when (and (zerop i) new-line)
do (wt-nl)
do (wt #\})))
(defun form-causes-side-effect (form)
(c1form-side-effects form))