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