X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fir1tran-lambda.lisp;h=2a92b9894a4957c0cfb60931fdc1e845d1a400fe;hb=903f4432362a1e7764dfed46d35894625cc085d8;hp=9841e8ebf4da9fc38f2f787c6af495a63ab1d47b;hpb=40b06a4157c22c2bab0b13ba051fde2489864076;p=sbcl.git

diff --git a/src/compiler/ir1tran-lambda.lisp b/src/compiler/ir1tran-lambda.lisp
index 9841e8e..2a92b98 100644
--- a/src/compiler/ir1tran-lambda.lisp
+++ b/src/compiler/ir1tran-lambda.lisp
@@ -955,7 +955,7 @@
 ;;; current compilation policy. Note that FUN may be a
 ;;; LAMBDA-WITH-LEXENV, so we may have to augment the environment to
 ;;; reflect the state at the definition site.
-(defun ir1-convert-inline-lambda (fun 
+(defun ir1-convert-inline-lambda (fun
                                   &key
                                   (source-name '.anonymous.)
                                   debug-name
@@ -1044,7 +1044,7 @@
   (unless (eq inlinep :inline)
     (setf (defined-fun-inline-expansion var) nil))
   (let ((fun (ir1-convert-inline-lambda expansion
-                                        :source-name name 
+                                        :source-name name
                                         ;; prevent instrumentation of
                                         ;; known function expansions
                                         :system-lambda (and info t))))