boot11.lisp 997 Bytes
Newer Older
gerd's avatar
gerd committed
1 2 3 4 5 6 7 8
;;;
;;; 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)

9
(setq lisp::*enable-package-locked-errors* nil)
gerd's avatar
gerd committed
10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41

(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