X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fntrace.lisp;h=b52c1de18e2f68f760e23b040eb8b526e759c75e;hb=7c07a6f965c51828d8f452b47e0620d8e6cf2959;hp=c1e5eeb4af5976c931e82f1cc854c546d7875587;hpb=31361af9eb64344f521abbb245ea784c76c746e5;p=sbcl.git

diff --git a/src/code/ntrace.lisp b/src/code/ntrace.lisp
index c1e5eeb..b52c1de 100644
--- a/src/code/ntrace.lisp
+++ b/src/code/ntrace.lisp
@@ -127,8 +127,10 @@
 	(t (values (fdefinition x) t)))
     (if (or #+sb-interpreter (sb-eval:interpreted-function-p res)
 	    nil)
-	(values res named-p (if (sb-eval:interpreted-function-closure res)
-				:interpreted-closure :interpreted))
+	(values res
+		named-p
+		#+sb-interpreter (if (sb-eval:interpreted-function-closure res)
+				     :interpreted-closure :interpreted))
 	(case (sb-kernel:get-type res)
 	  (#.sb-vm:closure-header-type
 	   (values (sb-kernel:%closure-function res)