Mercurial > hg > xemacs-beta

comparison lisp/byte-optimize.el @ 367:a4f53d9b3154 r21-1-13

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-1-13
author cvs
date Mon, 13 Aug 2007 11:01:07 +0200
parents 7df0dd720c89
children cc15677e0335
comparison
equal deleted inserted replaced
366:83d76f480a59 367:a4f53d9b3154
1342 byte-goto-if-not-nil-else-pop)) 1342 byte-goto-if-not-nil-else-pop))
1343 1343
1344 (defconst byte-after-unbind-ops 1344 (defconst byte-after-unbind-ops
1345 '(byte-constant byte-dup 1345 '(byte-constant byte-dup
1346 byte-symbolp byte-consp byte-stringp byte-listp byte-numberp byte-integerp 1346 byte-symbolp byte-consp byte-stringp byte-listp byte-numberp byte-integerp
1347 byte-eq byte-equal byte-not 1347 byte-eq byte-not
1348 byte-cons byte-list1 byte-list2 ; byte-list3 byte-list4 1348 byte-cons byte-list1 byte-list2 ; byte-list3 byte-list4
1349 byte-interactive-p) 1349 byte-interactive-p)
1350 ;; How about other side-effect-free-ops? Is it safe to move an 1350 ;; How about other side-effect-free-ops? Is it safe to move an
1351 ;; error invocation (such as from nth) out of an unwind-protect? 1351 ;; error invocation (such as from nth) out of an unwind-protect?
1352 "Byte-codes that can be moved past an unbind.") 1352 "Byte-codes that can be moved past an unbind.")