Skip to content
This repository
tree: 284e34058d
Fetching contributors…

Cannot retrieve contributors at this time

file 17 lines (15 sloc) 0.705 kb
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")
Something went wrong with that request. Please try again.