More
| author |
Steve Losh <steve@stevelosh.com> |
| date |
Wed, 02 Oct 2019 12:18:52 -0400 |
| parents |
384770359545 |
| children |
b83a98ba30ee |
(load "~/.lisprc")
(defvar *last-package* nil)
(defvar *cached-prompt* nil)
(defun package-prompt (stream)
(when (not (eq *last-package* *package*))
(setf *cached-prompt*
(format nil "~%[SBCL] ~A> "
(or (first (package-nicknames *package*))
(package-name *package*))))
(setf *last-package* *package*))
(terpri)
(princ *cached-prompt* stream))
(setf sb-int:*repl-prompt-fun* #'package-prompt)
(setf sb-debug:*debug-beginner-help-p* nil)
(defun :fg ()
(sb-thread:release-foreground))