Function: byte-optimize-not

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

Signature

(byte-optimize-not FORM)

Source Code

;; Defined in /usr/src/emacs/lisp/emacs-lisp/byte-opt.el.gz
(defun byte-optimize-not (form)
  (and (= (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)))))