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

Remove assignment to T.

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2009-12-27 23:23:35 +01:00
parent 5581002abe
commit 3301e97a93
1 changed files with 5 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

10
src/new-cmp/cmptranslate.lsp
View file

@ -112,12 +112,12 @@
(defmacro c1with-temps ((prefix postfix &rest temps) &rest body)
`(let* ((*c1-temps* *c1-temps*)
(*cmp-env* (cmp-env-copy))
,@(loop for t in temps
collect `(,t (make-c1-temp)))
,@(loop for name in temps
collect `(,name (make-c1-temp)))
(,prefix (c1bind (list ,@temps)))
(,postfix (c1unbind (list ,@temps))))
,@(loop for t in temps
collect `(cmp-env-register-var ,t *cmp-env*))
,@(loop for name in temps
collect `(cmp-env-register-var ,name *cmp-env*))
,@body))
(defmacro c1with-saved-one-value ((prefix postfix location expression) &rest body)
@ -398,7 +398,7 @@
(maybe-add-to-read-nodes tag-loc (make-c1form* 'THROW :args tag-loc)))
(defun c1go-op (tag)
(make-c1form* 'GO :args tag))
(maybe-add-to-read-nodes tag (make-c1form* 'GO :args tag)))
;;;
;;; FUNCTION CALLS, CLOSURES AND THE LIKE