X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Flocall.lisp;h=ceff522a650a7a6593471dfd33b1f009f142c6e7;hb=9a97f246037c49025a2aaf56f544bbb03f6170c3;hp=1fef35a49bfb5de7e23c25a33cf27ad9ecdcea12;hpb=d604a358d8e5eb5587989e0a4f1d31dbe6ac5ffe;p=sbcl.git

diff --git a/src/compiler/locall.lisp b/src/compiler/locall.lisp
index 1fef35a..ceff522 100644
--- a/src/compiler/locall.lisp
+++ b/src/compiler/locall.lisp
@@ -1017,11 +1017,11 @@
   (when (leaf-has-source-name-p clambda)
     ;; ANSI requires that explicit NOTINLINE be respected.
     (or (eq (lambda-inlinep clambda) :notinline)
-        ;; If (= LET-CONVERTION 0) we can guess that inlining
+        ;; If (= LET-CONVERSION 0) we can guess that inlining
         ;; generally won't be appreciated, but if the user
         ;; specifically requests inlining, that takes precedence over
         ;; our general guess.
-        (and (policy clambda (= let-convertion 0))
+        (and (policy clambda (= let-conversion 0))
              (not (eq (lambda-inlinep clambda) :inline))))))
 
 ;;; We also don't convert calls to named functions which appear in the