diff --git a/compiler/ir1util.lisp b/compiler/ir1util.lisp index 1acd872291ba8a8bdd9e8e3921b265245ef953b4..22a819b17b164dca2c4071b2a98348e52bebf1a4 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)))