X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fltn.lisp;h=0da76e34420466a393dd94e7e18858a00d94fd14;hb=e2b33e0d99f0f93263defcd2e0dffe20c4e388f3;hp=ed1bff3a24fc9a568fa340803b606723f8d42a6c;hpb=20748f2dd7965dcd1446a1cb27e5a5af18a0e5bb;p=sbcl.git

diff --git a/src/compiler/ltn.lisp b/src/compiler/ltn.lisp
index ed1bff3..0da76e3 100644
--- a/src/compiler/ltn.lisp
+++ b/src/compiler/ltn.lisp
@@ -895,7 +895,7 @@
       ;; to implement an out-of-line version in terms of inline
       ;; transforms or VOPs or whatever.
       (unless template
-	(when (let ((funleaf (physenv-function (node-physenv call))))
+	(when (let ((funleaf (physenv-lambda (node-physenv call))))
 		(and (leaf-has-source-name-p funleaf)
 		     (eq (continuation-fun-name (combination-fun call))
 			 (leaf-source-name funleaf))