ccl-init.lisp @ 6f429206629f

Fucking broken garbage hg-git is hosed for https mercurial urls and I have no idea why
author Steve Losh <steve@stevelosh.com>
date Sat, 02 Feb 2019 15:58:34 -0500
parents 384770359545
children (none)
(load "~/.lisprc")

(setf *quit-on-eof* t)
(setf *load-preserves-optimization-settings* t)

(setf ccl:*default-file-character-encoding* :utf-8)

(defun sjl-lisp-prompt-format (stream level)
  (if (zerop level)
    (format stream "~%[ClozureCL] ~A> " (package-name *package*))
    (format stream "~%[~d] > " level)))

(setf ccl:*listener-prompt-format* #'sjl-lisp-prompt-format)