X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fir1opt.lisp;h=259bc7738b853f1182a9022ff6eb47f19d7d917e;hb=6e7e59adb6f6c30f84b31695b48cb51e2c519d75;hp=d71be0f62bdf3df93504e622ca1d4ae67d11bd40;hpb=c713eb2b521b048ff2c927ec52b861787d289f85;p=sbcl.git

diff --git a/src/compiler/ir1opt.lisp b/src/compiler/ir1opt.lisp
index d71be0f..259bc77 100644
--- a/src/compiler/ir1opt.lisp
+++ b/src/compiler/ir1opt.lisp
@@ -412,7 +412,7 @@
 ;;; variable has no references.
 ;;;
 ;;; [### For now, don't delete potentially flushable calls when they
-;;; have the CALL attribute. Someday we should look at the funcitonal
+;;; have the CALL attribute. Someday we should look at the functional
 ;;; args to determine if they have any side-effects.]
 (defun flush-dead-code (block)
   (declare (type cblock block))
@@ -1096,9 +1096,9 @@
 (defun transform-call (node res)
   (declare (type combination node) (list res))
   (with-ir1-environment-from-node node
-    (let ((new-fun (ir1-convert-inline-lambda
-		    res
-		    :debug-name "something inlined in TRANSFORM-CALL"))
+      (let ((new-fun (ir1-convert-inline-lambda
+		      res
+		      :debug-name "something inlined in TRANSFORM-CALL"))
 	  (ref (continuation-use (combination-fun node))))
       (change-ref-leaf ref new-fun)
       (setf (combination-kind node) :full)