mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

byte-varbind byte-unbind

Browse source
This commit is contained in:
Andrea Corallo 2019-07-14 21:26:20 +02:00 • committed by Andrea Corallo
parent 721d110298
commit 5aee49d203
1 changed files with 11 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

13
lisp/emacs-lisp/comp.el
View file

@ -394,11 +394,20 @@ If NEGATED non nil negate the test condition."
,(make-comp-mvar :const-vld t
:constant arg)
,(comp-slot))))
(byte-varbind)
(byte-varbind
(comp-emit `(call specbind
,(make-comp-mvar :const-vld t
:constant arg)
,(comp-slot-next))))
(byte-call
(comp-stack-adjust (- arg))
(comp-emit-set-call `(callref Ffuncall ,(1+ arg) ,(comp-sp))))
(byte-unbind)
(byte-unbind
(comp-emit `(call unbind_to
,(make-comp-mvar :const-vld t
:constant arg)
,(make-comp-mvar :const-vld t
:constant nil))))
(byte-pophandler)
(byte-pushconditioncase)
(byte-pushcatch)