sbclrc @ 07fbabc1f02d

Expunge Roswell
author Steve Losh <steve@stevelosh.com>
date Sat, 14 Oct 2017 17:56:56 -0400
parents c3167738abd5
children 579af8ed8dcb 31ddcddb32bf
;; 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)))
;;

; (pushnew "~/lib/asdf/" asdf:*central-registry* :test #'equal)

(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))

; '(ql:update-client)' --eval '(ql:update-all-dists)'