File: make-target-2.lisp

package info (click to toggle)
sbcl 1%3A1.0.18.0-2
  • links: PTS
  • area: main
  • in suites: lenny
  • size: 21,056 kB
  • ctags: 17,740
  • sloc: lisp: 319,653; ansic: 24,885; asm: 2,467; sh: 2,282; makefile: 318
file content (17 lines) | stat: -rw-r--r-- 705 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
;;; 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.  (Don't forget to undo these
;;; tweaks after the printer is set up. It'd be cleaner to use LET to
;;; make sure that happens automatically, but LET is implemented in
;;; terms of the compiler, and the compiler isn't initialized yet.)
(setq *print-length* 10)
(setq *print-level* 5)
(setq *print-circle* t)

;;; Do warm init.
(defvar *compile-files-p* t)
#+sb-show (print "/about to LOAD warm.lisp (with *compile-files-p* = T)")
(load "src/cold/warm.lisp")