Work around StumpWM breaking my shit yet again
| author |
Steve Losh <steve@stevelosh.com> |
| date |
Wed, 23 Sep 2020 12:33:59 -0400 |
| 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)