X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fcompiler%2Fir1tran.lisp;h=77c5165128ccab2292e8722e079915daea954c7d;hb=6e7e59adb6f6c30f84b31695b48cb51e2c519d75;hp=6936072c7b8bd6c4e5176a0d14371e90ce277fa9;hpb=c713eb2b521b048ff2c927ec52b861787d289f85;p=sbcl.git

diff --git a/src/compiler/ir1tran.lisp b/src/compiler/ir1tran.lisp
index 6936072..77c5165 100644
--- a/src/compiler/ir1tran.lisp
+++ b/src/compiler/ir1tran.lisp
@@ -2021,7 +2021,8 @@
     (unless (eq (defined-fun-inlinep var) :inline)
       (setf (defined-fun-inline-expansion var) nil))
     (let* ((name (leaf-source-name var))
-	   (fun (funcall converter lambda :source-name name))
+	   (fun (funcall converter lambda
+			 :source-name name))
 	   (fun-info (info :function :info name)))
       (setf (functional-inlinep fun) (defined-fun-inlinep var))
       (assert-new-definition var fun)