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

Do not always generate one label in maybe-next-label

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2012-12-01 12:03:09 +01:00
parent 82fbede619
commit 6899ee68d8
1 changed files with 3 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

7
src/cmp/cmpmac.lsp
View file

@ -71,10 +71,9 @@
(and (consp x) (integerp (si::cons-car x))))
(defun maybe-next-label ()
(let ((l (next-label)))
(if (labelp *exit*)
*exit*
l)))
(if (labelp *exit*)
*exit*
(next-label)))
(defun maybe-wt-label (label)
(unless (eq label *exit*)