Work at SourceForge, help us to make it a better place! We have an immediate need for a Support Technician in our San Francisco or Denver office.

Close

[b8d1dd]: make-target-2.lisp Maximize Restore History

Download this file

make-target-2.lisp    15 lines (13 with data), 526 Bytes

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