0.pre7.52:

[sbcl.git] / src / compiler / knownfun.lisp

diff --git a/src/compiler/knownfun.lisp b/src/compiler/knownfun.lisp
index f110444..f869ab8 100644 (file)
--- a/src/compiler/knownfun.lisp
+++ b/src/compiler/knownfun.lisp
@@ -149,7 +149,8 @@
                              (eq (transform-when x) when)))
                       (function-info-transforms info))))
     (if old
-       (setf (transform-function old) fun (transform-note old) note)
+       (setf (transform-function old) fun
+             (transform-note old) note)
        (push (make-transform :type ctype :function fun :note note
                              :important important :when when)
              (function-info-transforms info)))