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

Minor simplification in C2FMLA-AND

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2010-05-17 16:30:30 +02:00
parent d5ce5a2c25
commit 367c6783cd
1 changed files with 2 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

8
src/cmp/cmpif.lsp
View file

@ -227,13 +227,9 @@
(with-exit-label (normal-exit)
(let* ((dest *destination*))
(cond ((and (consp dest) (eq (car dest) 'JUMP-TRUE))
(let ((*exit* normal-exit)
(*unwind-exit* (cons normal-exit *unwind-exit*)))
(CJT *current-c2form* (second dest) normal-exit)))
(CJT *current-c2form* (second dest) normal-exit))
((and (consp dest) (eq (car dest) 'JUMP-FALSE))
(let ((*exit* normal-exit)
(*unwind-exit* (cons normal-exit *unwind-exit*)))
(CJF *current-c2form* normal-exit (second dest))))
(CJF *current-c2form* normal-exit (second dest)))
(t
(with-exit-label (false-label)
(loop for forms on args