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

Fixed typo.

Browse source
This commit is contained in:
jjgarcia 2004-04-08 07:30:26 +00:00
parent 213ef3de8e
commit 6ace97e5ce
1 changed files with 3 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
src/cmp/cmpexit.lsp
View file

@ -25,6 +25,7 @@
(defun unwind-exit (loc &optional (jump-p nil)
&aux (bds-lcl nil) (bds-bind 0) (stack-pop nil))
(declare (fixnum bds-bind))
(when (consp *destination*)
(case (car *destination*)
(JUMP-TRUE
@ -125,8 +126,8 @@
(cond ((eq ue exit)
(unwind-bds bds-lcl bds-bind stack-pop)
(return))
((eq (car ue) 'STACK)
(push (cdr ue) stack-pop))))
((eq (first ue) 'STACK)
(push (second ue) stack-pop))))
((numberp ue) (setq bds-lcl ue bds-bind 0))
((eq ue 'BDS-BIND) (incf bds-bind))
((member ue '(RETURN RETURN-OBJECT RETURN-FIXNUM RETURN-CHARACTER