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

New function to undo "n" bindings of special variables.

Browse source
This commit is contained in:
jjgarcia 2002-10-08 16:39:55 +00:00
parent 1897e278d6
commit 97dbff8921
1 changed files with 3 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

3
src/h/stacks.h
View file

@ -72,6 +72,9 @@ extern bds_ptr bds_top; /* bind stack top */
#define bds_unwind1 \
(SYM_VAL(bds_top->bds_sym) = bds_top->bds_val, --bds_top)
#define bds_unwind_n(n) \
bds_unwind(bds_top - (n))
/****************************
* INVOCATION HISTORY STACK
****************************/