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