Function: comp-with-sp

comp-with-sp is a macro defined in comp.el.gz.

Signature

(comp-with-sp SP &rest BODY)

Documentation

Execute BODY setting the stack pointer to SP.

Restore the original value afterwards.

Source Code

;; Defined in /usr/src/emacs/lisp/emacs-lisp/comp.el.gz
(defmacro comp-with-sp (sp &rest body)
  "Execute BODY setting the stack pointer to SP.
Restore the original value afterwards."
  (declare (debug (form body))
           (indent defun))
  (let ((sym (gensym)))
    `(let ((,sym (comp-sp)))
       (setf (comp-sp) ,sp)
       (progn ,@body)
       (setf (comp-sp) ,sym))))