From 57e09c89b18317bc968f7c7a66948e8a79f7372a Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Daniel=20Kochma=C5=84ski?= <daniel@turtleware.eu>
Date: Fri, 22 Nov 2019 19:26:49 +0100
Subject: [PATCH] cmp: t1expr*: expand symbol macros

They were silently ignored before in compiled files. The were not
ignored in files which were just loaded.

  (define-symbol-macro foo (error "HI"))
  foo ; ignored
---
 src/cmp/cmptop.lsp | 1 +
 1 file changed, 1 insertion(+)

diff --git a/src/cmp/cmptop.lsp b/src/cmp/cmptop.lsp
index e0e4cda3f..56aaa9449 100644
--- a/src/cmp/cmptop.lsp
+++ b/src/cmp/cmptop.lsp
@@ -31,6 +31,7 @@
                      (*current-form* form)
                      (*first-error* t)
                      (*setjmps* 0))
+  (setq form (chk-symbol-macrolet form))
   (when (consp form)
     (let ((fun (car form)) (args (cdr form)) fd)
       (when (member fun *toplevel-forms-to-print*)