Function: byte-optimize-null

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

Signature

(byte-optimize-null FORM)

Source Code

;; Defined in /usr/src/emacs/lisp/emacs-lisp/byte-opt.el.gz
(defun byte-optimize-null (form)
  (if (= (length form) 2)
      (let ((arg (nth 1 form)))
        (cond ((null arg) t)
              ((macroexp-const-p arg) nil)
              ((byte-compile-nilconstp arg) `(progn ,arg t))
              ((byte-compile-trueconstp arg) `(progn ,arg nil))
              (t form)))
    form))