diff --git a/compiler/ir1tran.lisp b/compiler/ir1tran.lisp index 213cb0f82f42d23cf1e35a887b4fced3c825586b..7f7f203a15b7750379ddeec40bd5da89736bd51a 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)))))