From 5a5b3271241dcf887f5d33a6ffcc5a626e49efbb Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Daniel=20Kochma=C5=84ski?= <daniel@turtleware.eu>
Date: Mon, 4 Dec 2023 21:10:00 +0100
Subject: [PATCH] cmp: t1/c1expr: top-level symbol macro expansions remain
 top-level

---
 src/cmp/cmppass1-top.lsp | 9 +++------
 1 file changed, 3 insertions(+), 6 deletions(-)

diff --git a/src/cmp/cmppass1-top.lsp b/src/cmp/cmppass1-top.lsp
index 474aa0a9a..39c4580c6 100644
--- a/src/cmp/cmppass1-top.lsp
+++ b/src/cmp/cmppass1-top.lsp
@@ -64,12 +64,9 @@
       (t (t1ordinary form)))))
 
 (defun t1/c1expr (form)
-  (cond ((not *compile-toplevel*)
-         (c1expr form))
-        ((atom form)
-         (t1ordinary form))
-        (t
-         (t1expr* form))))
+  (if (not *compile-toplevel*)
+      (c1expr form)
+      (t1expr* form)))
 
 (defun c1eval-when (args)
   (check-args-number 'EVAL-WHEN args 1)