Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
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.