Function: comp-copy-slot

comp-copy-slot is a byte-compiled function defined in comp.el.gz.

Signature

(comp-copy-slot SRC-N &optional DST-N)

Documentation

Set slot number DST-N to slot number SRC-N as source.

If DST-N is specified, use it; otherwise assume it to be the current slot.

Source Code

;; Defined in /usr/src/emacs/lisp/emacs-lisp/comp.el.gz
(defun comp-copy-slot (src-n &optional dst-n)
  "Set slot number DST-N to slot number SRC-N as source.
If DST-N is specified, use it; otherwise assume it to be the current slot."
  (comp-with-sp (or dst-n (comp-sp))
    (let ((src-slot (comp-slot-n src-n)))
      (cl-assert src-slot)
      (comp-emit `(set ,(comp-slot) ,src-slot)))))