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

Remove assignments to T.

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

7
src/new-cmp/cmptag.lsp
View file

@ -151,9 +151,10 @@ The second value is an association list of atoms to the tags they represent."
(nconc (c1bind (list tag-var))
(c1frame-id tag-var)
(c1frame-set tag-var normal-tag)
(loop for t in tags
when (or (tag-ref-ccb t) (tag-ref-clb t))
collect (c1translate `(JMP-TRUE ,t) `(EQ (VALUES-REF 0) ,(tag-index t))))
(loop for tag in tags
when (or (tag-ref-ccb tag) (tag-ref-clb tag))
collect (c1translate `(JMP-TRUE ,tag)
`(EQ (VALUES-REF 0) ,(tag-index tag))))
(c1translate 'TRASH '(error "Unknown GO tag"))
(list normal-tag)
body