Mercurial > hg > xemacs-beta

comparison lisp/byte-optimize.el @ 547:cf82e22962ce

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2001-05-20 06:00:18 by martinb] doc fix
author martinb
date Sun, 20 May 2001 06:00:18 +0000
parents 5aa1854ad537
children 1638aacf421d
comparison
equal deleted inserted replaced
546:666d73d6ac56 547:cf82e22962ce
702 ;;; It is not safe to optimize calls to arithmetic ops with one arg 702 ;;; It is not safe to optimize calls to arithmetic ops with one arg
703 ;;; away entirely (actually, it would be safe if we know the sole arg 703 ;;; away entirely (actually, it would be safe if we know the sole arg
704 ;;; is not a marker or if it appears in other arithmetic). 704 ;;; is not a marker or if it appears in other arithmetic).
705 705
706 ;;; But this degree of paranoia is normally unjustified, so optimize unless 706 ;;; But this degree of paranoia is normally unjustified, so optimize unless
707 ;;; the user has done (declaim (safety 3)). Implemented in bytecomp.el. 707 ;;; the user has done (declaim (optimize (safety 3))). See bytecomp.el.
708 708
709 (defun byte-optimize-plus (form) 709 (defun byte-optimize-plus (form)
710 (byte-optimize-predicate (byte-optimize-delay-constants-math form 1 '+))) 710 (byte-optimize-predicate (byte-optimize-delay-constants-math form 1 '+)))
711 711
712 (defun byte-optimize-multiply (form) 712 (defun byte-optimize-multiply (form)