From ab279e3758d4db8515f5ee6397cc23f7663ef201 Mon Sep 17 00:00:00 2001
From: ram <ram>
Date: Mon, 18 Jun 1990 11:05:49 +0000
Subject: [PATCH] Fixed FIND-ORIGINAL-SOURCE not to bogue out when there is an
 atomic top-level form.

---
 compiler/ir1util.lisp | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/compiler/ir1util.lisp b/compiler/ir1util.lisp
index 1acd87229..22a819b17 100644
--- a/compiler/ir1util.lisp
+++ b/compiler/ir1util.lisp
@@ -1121,6 +1121,9 @@
       (let ((form root)
 	    (current (rest rpath)))
 	(loop
+	  (when (atom form)
+	    (assert (null current))
+	    (return))
 	  (let ((head (first form)))
 	    (when (symbolp head)
 	      (let ((name (symbol-name head)))
-- 
GitLab