diff --git a/bootfiles/18e/boot11.lisp b/bootfiles/18e/boot11.lisp new file mode 100644 index 0000000000000000000000000000000000000000..4f8a03cde1b3af61d9bc18e3e90762eb16c2c598 --- /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