X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fsource-location.lisp;h=3d488d23c65ff5b6dc7424c7e9ebb55647d76d16;hb=65b5ab7e713d04e0d76bc0ee196374f6e57b922f;hp=7eb411bfe6f8cad09a74bcc8e6487d20d3ad4864;hpb=a160917364f85b38dc0826a5e3dcef87e3c4c62c;p=sbcl.git

diff --git a/src/code/source-location.lisp b/src/code/source-location.lisp
index 7eb411b..3d488d2 100644
--- a/src/code/source-location.lisp
+++ b/src/code/source-location.lisp
@@ -37,8 +37,9 @@
     (let ((src (position "src" dir :test #'string=
                          :from-end t)))
       (cond
-        (src (format nil "SYS:~{~:@(~A~);~}~:@(~A~).LISP"
-                     (subseq dir src) (pathname-name untruename)))
+        ((and src (not (string= (car (last dir)) "output")))
+         (format nil "SYS:~{~:@(~A~);~}~:@(~A~).LISP"
+                 (subseq dir src) (pathname-name untruename)))
         (t (aver (string-equal (car (last dir)) "output"))
            (aver (string-equal (pathname-name untruename) "stuff-groveled-from-headers"))
            (aver (string-equal (pathname-type untruename) "lisp"))