Function: byte-optimize-cons

byte-optimize-cons is a byte-compiled function defined in byte-opt.el.gz.

Signature

(byte-optimize-cons FORM)

Source Code

;; Defined in /usr/src/emacs/lisp/emacs-lisp/byte-opt.el.gz
(defun byte-optimize-cons (form)
  ;; (cons X nil) => (list X)
  (if (and (= (safe-length form) 3)
           (null (nth 2 form)))
      `(list ,(nth 1 form))
    form))