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
This commit is contained in:
Daniel Kochmański 2019-11-22 19:26:49 +01:00
parent cab4917d86
commit 57e09c89b1

View file

@ -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*)