From 60c78fdff4a6abe87f1c618efdf7a5a6166d17b7 Mon Sep 17 00:00:00 2001
From: ram <ram>
Date: Fri, 23 Feb 1990 10:41:01 +0000
Subject: [PATCH] Fixed SUB-FIND-SOURCE-PATHS to recurse on itself rather than
 FIND-SOURCE-PATHS.

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

diff --git a/compiler/ir1tran.lisp b/compiler/ir1tran.lisp
index 213cb0f82..7f7f203a1 100644
--- a/compiler/ir1tran.lisp
+++ b/compiler/ir1tran.lisp
@@ -1792,7 +1792,7 @@
 		      (when (atom subform) (return))
 		      (let ((fm (car subform)))
 			(when (consp fm)
-			  (find-source-paths fm (cons pos path)))
+			  (sub-find-source-paths fm (cons pos path)))
 			(incf pos))
 		      (setq subform (cdr subform))
 		      (when (eq subform trail) (return)))))
-- 
GitLab