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