From 4d88b89ebbce9570e3bafe69cf67ffae2a9580cf Mon Sep 17 00:00:00 2001
From: pmai <pmai>
Date: Mon, 26 Aug 2002 01:51:18 +0000
Subject: [PATCH] Added boot file to unexport the symbols COMPILER-MACROEXPAND
 and COMPILER-MACROEXPAND-1 from the CL package.  Through CMUCL rebuild
 artefacts, those symbols were automagically exported in some cores, once they
 had been reintroduced in 18d.  This removes any existing exports, bringing us
 back in line with ANSI requirements on the CL package.

---
 bootfiles/18d/boot3.lisp | 7 +++++++
 1 file changed, 7 insertions(+)
 create mode 100644 bootfiles/18d/boot3.lisp

diff --git a/bootfiles/18d/boot3.lisp b/bootfiles/18d/boot3.lisp
new file mode 100644
index 000000000..8b0b50fdc
--- /dev/null
+++ b/bootfiles/18d/boot3.lisp
@@ -0,0 +1,7 @@
+;; Unexport the newly re-introduced compiler-macroexpand* symbols from
+;; the CL package.  This is for the benefit of old cores, which might
+;; still have those "exported", even though the functions (or even the
+;; symbols) don't exist.  This is deep CMUCL voodoo magic, don't even
+;; try to understand it.
+
+(unexport '(CL::COMPILER-MACROEXPAND-1 CL::COMPILER-MACROEXPAND) "CL")
-- 
GitLab