make-target-2.lisp

   1 ;;; Now that we use the compiler for macros, interpreted /SHOW doesn't
   2 ;;; work until later in init.
   3 #+sb-show (print "/hello, world!")
   4
   5 ;;; Until PRINT-OBJECT and other machinery is set up, we want limits
   6 ;;; on printing to avoid infinite output.
   7 (let ((*print-length*   10)
   8       (*print-level*     5)
   9       (*print-circle*    t)
  10       (*compile-files-p* t))
  11   (declare (special *compile-files-p*))
  12 ;;; Do warm init.
  13   #+sb-show (print "/about to LOAD warm.lisp (with *compile-files-p* = T)")
  14   (load "src/cold/warm.lisp"))