src/cold/chill.lisp

   1 ;;;; This file is not used at cold load time. Instead, it can be
   2 ;;;; loaded into an initialized SBCL to get it into a nostalgic frame
   3 ;;;; of mind, remembering the way things were in cold init, so that it
   4 ;;;; can READ code which is ordinarily read only when bootstrapping.
   5 ;;;; (This can be useful when debugging the system, since the debugger
   6 ;;;; likes to be able to read the source for the code. It can also be
   7 ;;;; useful when experimenting with patches on a running system.)
   8
   9 ;;;; This software is part of the SBCL system. See the README file for
  10 ;;;; more information.
  11 ;;;;
  12 ;;;; This software is derived from the CMU CL system, which was
  13 ;;;; written at Carnegie Mellon University and released into the
  14 ;;;; public domain. The software is in the public domain and is
  15 ;;;; provided with absolutely no warranty. See the COPYING and CREDITS
  16 ;;;; files for more information.
  17
  18 (defpackage "SB-COLD"
  19   (:use "CL"))
  20 (in-package "SB-COLD")
  21
  22 (setq *features* (union *features* sb-impl:+internal-features+))
  23
  24 (defun backend-asm-package-name ()
  25   (package-name sb-assem::*backend-instruction-set-package*))
  26
  27 (sb-ext:unlock-package "CL")
  28 (rename-package "COMMON-LISP" "COMMON-LISP"
  29                 (cons "SB-XC" (package-nicknames "CL")))
  30 ;; Unlock all other SB- packages
  31 (dolist (package (list-all-packages))
  32   (let ((name (package-name package)))
  33     (when (sb-int:system-package-p (find-package name))
  34       (sb-ext:unlock-package package))))
  35
  36 (load (merge-pathnames "exports.lisp" *load-pathname*))
  37
  38 (unless (fboundp 'sb-int:!cold-init-forms)
  39   (defmacro sb-int:!cold-init-forms (&rest forms) `(progn ,@forms)))
  40
  41 ;; If :sb-show is present, then these symbols are fboundp.
  42 ;; Otherwise define them as no-ops.
  43 (unless (fboundp 'sb-int:/show)
  44   (defmacro sb-int:/show (&rest junk) (declare (ignore junk)))
  45   (setf (macro-function 'sb-int:/noshow) (macro-function 'sb-int:/show)
  46         (macro-function 'sb-int:/show0) (macro-function 'sb-int:/show)
  47         (macro-function 'sb-int:/noshow0) (macro-function 'sb-int:/show)))
  48
  49 (load "SYS:src;compiler;vop-existsp.lisp")