Mercurial > emacs
comparison lisp/emacs-lisp/byte-opt.el @ 86063:bd6f75b64f62
Comment change.
author | Juanma Barranquero <lekktu@gmail.com> |
---|---|
date | Wed, 14 Nov 2007 11:16:20 +0000 |
parents | e0931ee6cc83 |
children | 2cce56fd7361 |
comparison
equal
deleted
inserted
replaced
86062:f4816ef45bcb | 86063:bd6f75b64f62 |
---|---|
624 ;; This implies that you cannot simply destructively modify the list; | 624 ;; This implies that you cannot simply destructively modify the list; |
625 ;; you must return something not EQ to it if you make an optimization. | 625 ;; you must return something not EQ to it if you make an optimization. |
626 ;; | 626 ;; |
627 ;; It is now safe to optimize code such that it introduces new bindings. | 627 ;; It is now safe to optimize code such that it introduces new bindings. |
628 | 628 |
629 ;; I'd like this to be a defsubst, but let's not be self-referential... | |
630 (defsubst byte-compile-trueconstp (form) | 629 (defsubst byte-compile-trueconstp (form) |
631 "Return non-nil if FORM always evaluates to a non-nil value." | 630 "Return non-nil if FORM always evaluates to a non-nil value." |
632 (cond ((consp form) | 631 (cond ((consp form) |
633 (case (car form) | 632 (case (car form) |
634 (quote (cadr form)) | 633 (quote (cadr form)) |