1151 |
;;; state, so that constant folding them would be wrong, |
;;; state, so that constant folding them would be wrong, |
1152 |
;;; but we don't do constant folding based on this list. |
;;; but we don't do constant folding based on this list. |
1153 |
|
|
1154 |
|
;;; However, at present the only optimization we normally do |
1155 |
|
;;; is delete calls that need not occur, and we only do that |
1156 |
|
;;; with the error-free functions. |
1157 |
|
|
1158 |
;;; I wonder if I missed any :-\) |
;;; I wonder if I missed any :-\) |
1159 |
(let ((side-effect-free-fns |
(let ((side-effect-free-fns |
1160 |
'(% * + - / /= 1+ 1- < <= = > >= abs acos append aref ash asin atan |
'(% * + - / /= 1+ 1- < <= = > >= abs acos append aref ash asin atan |