sbclrc @ fe782aa85d4d

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

; (require 'sb-int)
; (setf sb-int:*repl-prompt-function*
;       (lambda (stream)
;         (format stream "~&~A> " *package*)))

(defvar *last-package* nil)
(defvar *cached-prompt* nil)

(defun package-prompt (stream)
  (unless (eq *last-package* *package*)
    (setf *cached-prompt*
          (concatenate 'string (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)