Optimize (- (* x constant)) into (* x (- constant))
authorPaul Khuong <pvk@pvk.ca>
Wed, 22 May 2013 04:50:01 +0000 (00:50 -0400)
committerPaul Khuong <pvk@pvk.ca>
Wed, 22 May 2013 05:13:22 +0000 (01:13 -0400)
commitfaaca670fd56040991d8f6e0b02adebc1e71d7bc
tree450e270b8ee74f7b3e1665845fc563eee1573db9
parent1ac6167d26eb60a2b7e46bc39f4b091e39b5e03d
Optimize (- (* x constant)) into (* x (- constant))

Another marginal lvar-fun-name/splice-fun-arg hack.

Closes lp#1065770.
src/compiler/srctran.lisp