From f91965314433656f30ebfb741faecb4f3b24c7d4 Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Fri, 2 Mar 1990 12:34:18 +0000 Subject: [PATCH] In FIND-ORIGINAL-SOURCE, moved the exit test to the head of the loop so that we don't lose when we want the whole top-level form. --- compiler/ir1util.lisp | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/compiler/ir1util.lisp b/compiler/ir1util.lisp index da35d2c6d..7c223b179 100644 --- a/compiler/ir1util.lisp +++ b/compiler/ir1util.lisp @@ -1085,6 +1085,7 @@ (let ((form root) (current (rest rpath))) (loop + (when (null current) (return)) (let ((head (first form))) (when (symbolp head) (let ((name (symbol-name head))) @@ -1099,8 +1100,6 @@ (car next) next)))) (context (list head))))))) - - (when (null current) (return)) (setq form (nth (pop current) form))) (cond ((context) -- GitLab