comparison lisp/emacs-lisp/byte-opt.el @ 86063:bd6f75b64f62

Comment change.

86062:f4816ef45bcb

;; This implies that you cannot simply destructively modify the list;
;; you must return something not EQ to it if you make an optimization.
;;
;; It is now safe to optimize code such that it introduces new bindings.

;; I'd like this to be a defsubst, but let's not be self-referential...
(defsubst byte-compile-trueconstp (form)
  "Return non-nil if FORM always evaluates to a non-nil value."
  (cond ((consp form)
         (case (car form)
           (quote (cadr form))

86063:bd6f75b64f62

;; This implies that you cannot simply destructively modify the list;
;; you must return something not EQ to it if you make an optimization.
;;
;; It is now safe to optimize code such that it introduces new bindings.

(defsubst byte-compile-trueconstp (form)
  "Return non-nil if FORM always evaluates to a non-nil value."
  (cond ((consp form)
         (case (car form)
           (quote (cadr form))