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

When binding optional values, we use two calls to BIND. This means

Browse source 
'BDS-BIND is pushed twice on *unwind-exit*, which results in two calls
to bds_unwind1, which is wrong.
This commit is contained in:
jjgarcia 2002-11-15 19:26:50 +00:00
parent 8ddd9acbbd
commit 541842cc98
1 changed files with 10 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

12
src/cmp/cmplam.lsp
View file

@ -412,7 +412,11 @@
)
;; Bind optional parameters as long as there remain arguments.
(when optionals
(let ((va-arg-loc 'VA-ARG))
;; When binding optional values, we use two calls to BIND. This means
;; 'BDS-BIND is pushed twice on *unwind-exit*, which results in two calls
;; to bds_unwind1, which is wrong. A possible fix is to save *unwind-exit*
(let ((*unwind-exit* *unwind-exit*)
(va-arg-loc 'VA-ARG))
(dolist (opt optionals)
(push (next-label) labels)
(wt-nl "if (i==narg) ") (wt-go (car labels))
@ -530,7 +534,11 @@
)
;; Bind optional parameters as long as there remain arguments.
(when optionals
(let ((va-arg-loc 'VA-ARG))
;; When binding optional values, we use two calls to BIND. This means
;; 'BDS-BIND is pushed twice on *unwind-exit*, which results in two calls
;; to bds_unwind1, which is wrong. A possible fix is to save *unwind-exit*
(let ((*unwind-exit* *unwind-exit*)
(va-arg-loc 'VA-ARG))
(dolist (opt optionals)
(push (next-label) labels)
(wt-nl "if (i==narg) ") (wt-go (car labels))