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