From 2376d277e343bc7d1f5a2b753f3dcd14bda51fcf Mon Sep 17 00:00:00 2001
From: gerd <gerd>
Date: Tue, 20 May 2003 20:12:08 +0000
Subject: [PATCH] boot11.lisp

---
 bootfiles/18e/boot11.lisp | 41 +++++++++++++++++++++++++++++++++++++++
 1 file changed, 41 insertions(+)
 create mode 100644 bootfiles/18e/boot11.lisp

diff --git a/bootfiles/18e/boot11.lisp b/bootfiles/18e/boot11.lisp
new file mode 100644
index 000000000..4f8a03cde
--- /dev/null
+++ b/bootfiles/18e/boot11.lisp
@@ -0,0 +1,41 @@
+;;;
+;;; Boot file for moving PCL's declaration identifiers SLOTS,
+;;; AUTO-COMPILE, NOT-AUTO-COMPILE to EXT.  Use this file
+;;; as target:bootstrap.lisp using Pierre Mai's build scripts.
+;;;
+
+(in-package :user)
+
+(setq cl::*enable-package-locked-errors* nil)
+
+(defun unintern-in-all-packages (name)
+  (dolist (pkg (list-all-packages))
+    (multiple-value-bind (symbol status)
+	(find-symbol name pkg)
+      (when symbol
+	(unintern symbol pkg)))))
+
+(unintern-in-all-packages "SLOTS")
+(unintern-in-all-packages "AUTO-COMPILE")
+(unintern-in-all-packages "NOT-AUTO-COMPILE")
+
+(in-package :ext)
+
+(export '(slots auto-compile not-auto-compile))
+
+(in-package :kernel)
+
+(defun compare-slots (old new)
+  (values nil nil nil))
+
+(in-package :conditions)
+
+(defstruct (condition-class (:include slot-class))
+  (slots nil :type list)
+  (class-slots nil :type list)
+  (report nil :type (or function null))
+  (default-initargs () :type list)
+  (cpl () :type list)
+  (hairy-slots nil :type list))
+
+;;; end of file
-- 
GitLab