mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-13 21:02:47 -08:00
Code Issues Projects Releases Packages Wiki Activity

Remove code in CJT/CJF which is redundant with optimizations in set-jump-true/false

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2010-05-16 19:15:49 +02:00
parent 7b550ac31e
commit e68fc68da5
1 changed files with 0 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

12
src/cmp/cmpif.lsp
View file

@ -182,12 +182,6 @@
(CJT (car fs) Tlabel label)
(wt-label label))))
(FMLA-NOT (CJF (c1form-arg 0 fmla) Flabel Tlabel))
(LOCATION
(case (c1form-arg 0 fmla)
((T) (unwind-no-exit Tlabel) (wt-nl) (wt-go Tlabel))
((NIL))
(t (let ((*destination* (list 'JUMP-TRUE Tlabel)))
(c2expr* fmla)))))
(t (let ((*destination* (list 'JUMP-TRUE Tlabel))) (c2expr* fmla))))
)
@ -209,12 +203,6 @@
(CJT (car fs) Tlabel label)
(wt-label label))))
(FMLA-NOT (CJT (c1form-arg 0 fmla) Flabel Tlabel))
(LOCATION
(case (c1form-arg 0 fmla)
((T))
((NIL) (unwind-no-exit Flabel) (wt-nl) (wt-go Flabel))
(t (let ((*destination* (list 'JUMP-FALSE Flabel)))
(c2expr* fmla)))))
(t (let ((*destination* (list 'JUMP-FALSE Flabel))) (c2expr* fmla))))
)