From e3f53a35628e17e1065542bee767110d4c80626b Mon Sep 17 00:00:00 2001 From: Samuel Freilich Date: Wed, 15 Feb 2017 16:09:36 -0500 Subject: [PATCH] Use source-path-original-source in compute-compile-file-position --- src/compiler/target-main.lisp | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/src/compiler/target-main.lisp b/src/compiler/target-main.lisp index 1df3ffd33..8ed64d07d 100644 --- a/src/compiler/target-main.lisp +++ b/src/compiler/target-main.lisp @@ -248,8 +248,7 @@ not STYLE-WARNINGs occur during compilation, and NIL otherwise. (find-form-eq this-form)) ;; Hmm, would a &WHOLE argument would work better or worse in general? (t - (let* ((original-source-path - (cddr (member 'original-source-start *current-path*))) + (let* ((original-source-path (source-path-original-source *current-path*)) (path (reverse original-source-path))) (when (file-info-subforms file-info) (let ((form (elt (file-info-forms file-info) (car path)))) -- 2.11.4.GIT