From 36bb139c460ed0e4065915d5bf262ee5b5b08b08 Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Thu, 17 May 1990 13:29:05 +0000 Subject: [PATCH] Fixed FIND-ORIGINAL-SOURCE to consider the original source form itself as a possible context form, not just enclosing forms. --- compiler/ir1util.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/compiler/ir1util.lisp b/compiler/ir1util.lisp index 3aa60aa90..cecdd249f 100644 --- a/compiler/ir1util.lisp +++ b/compiler/ir1util.lisp @@ -1121,7 +1121,6 @@ (let ((form root) (current (rest rpath))) (loop - (when (null current) (return)) (let ((head (first form))) (when (symbolp head) (let ((name (symbol-name head))) @@ -1136,6 +1135,7 @@ (car next) next)))) (context (list head))))))) + (when (null current) (return)) (setq form (nth (pop current) form))) (cond ((context) -- GitLab