More
author |
Steve Losh <steve@stevelosh.com> |
date |
Sun, 16 Dec 2018 17:58:06 -0500 |
parents |
07fbabc1f02d |
children |
2f3f2eb8cfdf |
;; The following lines added by ql:add-to-init-file:
#-quicklisp
(let ((quicklisp-init (merge-pathnames ".quicklisp/setup.lisp"
(user-homedir-pathname))))
(when (probe-file quicklisp-init)
(load quicklisp-init)))
;;
(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))
(setf *print-pretty* nil
*print-escape* t
*print-right-margin* 100
*print-miser-width* nil
*print-length* 1000
*print-level* 250)