Skip to content
Snippets Groups Projects
Commit 2376d277 authored by gerd's avatar gerd
Browse files

boot11.lisp

parent e10b73e5
No related branches found
No related tags found
No related merge requests found
;;;
;;; 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
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment