Mercurial > emacs
comparison lisp/emacs-lisp/byte-opt.el @ 4755:4f348ddd841e
(side-effect-free-fns): Add "-" and "1-" to the list.
| author | Brian Fox <bfox@gnu.org> |
|---|---|
| date | Tue, 21 Sep 1993 06:47:21 +0000 |
| parents | 507f64624555 |
| children | 55a8d59088c1 |
comparison
equal
deleted
inserted
replaced
| 4754:463663a999ee | 4755:4f348ddd841e |
|---|---|
| 971 ;;; (foo)) | 971 ;;; (foo)) |
| 972 ;;; Further optimizations will turn (progn (list 1 2 3) 'foo) into 'foo. | 972 ;;; Further optimizations will turn (progn (list 1 2 3) 'foo) into 'foo. |
| 973 | 973 |
| 974 ;;; I wonder if I missed any :-\) | 974 ;;; I wonder if I missed any :-\) |
| 975 (let ((side-effect-free-fns | 975 (let ((side-effect-free-fns |
| 976 '(% * + / /= 1+ < <= = > >= append aref ash assoc assq boundp | 976 '(% * + - / /= 1+ 1- < <= = > >= append aref ash assoc assq boundp |
| 977 buffer-file-name buffer-local-variables buffer-modified-p | 977 buffer-file-name buffer-local-variables buffer-modified-p |
| 978 buffer-substring capitalize car cdr concat coordinates-in-window-p | 978 buffer-substring capitalize car cdr concat coordinates-in-window-p |
| 979 copy-marker count-lines documentation downcase elt fboundp featurep | 979 copy-marker count-lines documentation downcase elt fboundp featurep |
| 980 file-directory-p file-exists-p file-locked-p file-name-absolute-p | 980 file-directory-p file-exists-p file-locked-p file-name-absolute-p |
| 981 file-newer-than-file-p file-readable-p file-symlink-p file-writable-p | 981 file-newer-than-file-p file-readable-p file-symlink-p file-writable-p |