Function: byte-compile-push-binding-init

byte-compile-push-binding-init is a byte-compiled function defined in bytecomp.el.gz.

Signature

(byte-compile-push-binding-init CLAUSE)

Documentation

Emit byte-codes to push the initialization value for CLAUSE on the stack.

Return the offset in the form (VAR . OFFSET).

Source Code

;; Defined in /usr/src/emacs/lisp/emacs-lisp/bytecomp.el.gz
;; let binding

(defun byte-compile-push-binding-init (clause)
  "Emit byte-codes to push the initialization value for CLAUSE on the stack.
Return the offset in the form (VAR . OFFSET)."
  (let* ((var (if (consp clause) (car clause) clause)))
    ;; We record the stack position even of dynamic bindings; we'll put
    ;; them in the proper place later.
    (prog1 (cons var byte-compile-depth)
      (if (consp clause)
          (byte-compile-form (cadr clause))
        (byte-compile-push-constant nil)))))