X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ftarget-misc.lisp;h=205148632c10bf2969ab43953a03454bd2d0dac5;hb=9c7b8638313069c25a9718985720d69c9f4a1cda;hp=a021148b4ace68ad0b187667c6526e64fff84326;hpb=e8b69b1dd5564a4237b1bdc1060820c3b820cde2;p=sbcl.git

diff --git a/src/code/target-misc.lisp b/src/code/target-misc.lisp
index a021148..2051486 100644
--- a/src/code/target-misc.lisp
+++ b/src/code/target-misc.lisp
@@ -32,7 +32,7 @@
         (let ((source (first (sb!c::compiled-debug-info-source info))))
           (cond ((and (eq (sb!c::debug-source-from source) :lisp)
                       (eq (sb!c::debug-source-info source) fun))
-                 (values (second (svref (sb!c::debug-source-name source) 0))
+                 (values (svref (sb!c::debug-source-name source) 0)
                          nil
 			 name))
                 ((stringp name)