Fix some disassembler cruft.
[sbcl.git] / make-target-2.lisp
blobba96c7a89b52933e05d4a6f51dd9ad5cef8aeda3
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!")
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 (print "/about to LOAD warm.lisp (with *compile-files-p* = T)")
14 (load "src/cold/warm.lisp"))