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

The temporary destination is a function of the _final_ destination, not of the origin of the value.

Browse source
This commit is contained in:
jgarcia 2008-05-19 10:48:28 +00:00
parent b213c88975
commit dbee5bf9f9
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/cmp/cmpexit.lsp
View file

@ -113,7 +113,7 @@
(wt-nl "return(" loc ");")))
(return)))
(FRAME
(let ((*destination* (tmp-destination loc)))
(let ((*destination* (tmp-destination *destination*)))
(set-loc loc)
(setq loc *destination*))
(wt-nl "frs_pop();"))