X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fmain.lisp;h=e25597448ca93506218f421401874a402081b8d9;hb=aebbc5aad31f7e55930c996a8c54f0a135e00894;hp=e8e62a696fa4a70ee4fcfb3aab4f869c59822d1c;hpb=9ce73d3eeef7ed9dda2f8029c5f42cc17798ad51;p=sbcl.git

diff --git a/src/compiler/main.lisp b/src/compiler/main.lisp
index e8e62a6..e255974 100644
--- a/src/compiler/main.lisp
+++ b/src/compiler/main.lisp
@@ -871,7 +871,7 @@
     (setf (component-name component)
 	  (debug-namify "~S initial component" name))
     (setf (component-kind component) :initial)
-    (let* ((locall-fun (ir1-convert-lambda
+    (let* ((locall-fun (ir1-convert-lambdalike
                         definition
                         :debug-name (debug-namify "top level local call ~S"
                                                   name)