From 7626a519cfd40cbef34d8bdf86297c753730fefa Mon Sep 17 00:00:00 2001
From: ram <ram>
Date: Thu, 15 Feb 1990 13:12:38 +0000
Subject: [PATCH] Changed FIND-ORIGINAL-SOURCE to skip over the form number
 which is now the first element in the source path.

---
 compiler/ir1util.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/compiler/ir1util.lisp b/compiler/ir1util.lisp
index b86ca541d..e1cd0eff6 100644
--- a/compiler/ir1util.lisp
+++ b/compiler/ir1util.lisp
@@ -1077,7 +1077,7 @@
 (defun find-original-source (path)
   (declare (list path))
   (assert path)
-  (let* ((rpath (reverse path))
+  (let* ((rpath (reverse (rest path)))
 	 (root (find-source-root (first rpath) *source-info*)))
     (collect ((context))
       (let ((form root)
-- 
GitLab