Mercurial > hg > xemacs-beta

comparison lisp/byte-optimize.el @ 550:1638aacf421d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2001-05-21 02:15:12 by martinb] Fix incorrect optimization: (= 0 0 (random 2)) ==> 0 or 1.
author martinb
date Mon, 21 May 2001 02:15:12 +0000
parents cf82e22962ce
children 6c21360a544b
comparison
equal deleted inserted replaced
549:2b0ea82d329f 550:1638aacf421d
853 (put '/ 'byte-optimizer 'byte-optimize-divide) 853 (put '/ 'byte-optimizer 'byte-optimize-divide)
854 (put '% 'byte-optimizer 'byte-optimize-predicate) 854 (put '% 'byte-optimizer 'byte-optimize-predicate)
855 (put 'max 'byte-optimizer 'byte-optimize-associative-math) 855 (put 'max 'byte-optimizer 'byte-optimize-associative-math)
856 (put 'min 'byte-optimizer 'byte-optimize-associative-math) 856 (put 'min 'byte-optimizer 'byte-optimize-associative-math)
857 857
858 (put '= 'byte-optimizer 'byte-optimize-binary-predicate)
859 (put 'eq 'byte-optimizer 'byte-optimize-binary-predicate) 858 (put 'eq 'byte-optimizer 'byte-optimize-binary-predicate)
860 (put 'eql 'byte-optimizer 'byte-optimize-binary-predicate) 859 (put 'eql 'byte-optimizer 'byte-optimize-binary-predicate)
861 (put 'equal 'byte-optimizer 'byte-optimize-binary-predicate) 860 (put 'equal 'byte-optimizer 'byte-optimize-binary-predicate)
862 (put 'string= 'byte-optimizer 'byte-optimize-binary-predicate) 861 (put 'string= 'byte-optimizer 'byte-optimize-binary-predicate)
863 (put 'string-equal 'byte-optimizer 'byte-optimize-binary-predicate) 862 (put 'string-equal 'byte-optimizer 'byte-optimize-binary-predicate)
864 863
864 (put '= 'byte-optimizer 'byte-optimize-predicate)
865 (put '< 'byte-optimizer 'byte-optimize-predicate) 865 (put '< 'byte-optimizer 'byte-optimize-predicate)
866 (put '> 'byte-optimizer 'byte-optimize-predicate) 866 (put '> 'byte-optimizer 'byte-optimize-predicate)
867 (put '<= 'byte-optimizer 'byte-optimize-predicate) 867 (put '<= 'byte-optimizer 'byte-optimize-predicate)
868 (put '>= 'byte-optimizer 'byte-optimize-predicate) 868 (put '>= 'byte-optimizer 'byte-optimize-predicate)
869 (put '1+ 'byte-optimizer 'byte-optimize-predicate) 869 (put '1+ 'byte-optimizer 'byte-optimize-predicate)