1.0.13.45: close the fd before deleting / moving files on CLOSE :ABORT T
[sbcl/simd.git] / make-target-2.lisp
blob634c37a58610f700a1d79683eac3bf974014a1fb
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. (Don't forget to undo these
7 ;;; tweaks after the printer is set up. It'd be cleaner to use LET to
8 ;;; make sure that happens automatically, but LET is implemented in
9 ;;; terms of the compiler, and the compiler isn't initialized yet.)
10 (setq *print-length* 10)
11 (setq *print-level* 5)
12 (setq *print-circle* t)
14 ;;; Do warm init.
15 (defvar *compile-files-p* t)
16 #+sb-show (print "/about to LOAD warm.lisp (with *compile-files-p* = T)")
17 (load "src/cold/warm.lisp")