eclrc @ 37b02aa11c8c

Expunge Roswell
author Steve Losh <steve@stevelosh.com>
date Tue, 24 Jul 2018 00:43:57 +0000
parents 1cd90a0458e4
children 31ddcddb32bf
(setf compiler::*user-cc-flags* "-Wno-shift-negative-value")

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

(defun sjl-prompt ()
  (when (not (eq *last-package* *package*))
    (setf *cached-prompt*
          (format nil "~%[ECL] ~A> "
                  (or (first (package-nicknames *package*))
                      (package-name *package*))))
    (setf *last-package* *package*))
  (terpri)
  (princ *cached-prompt*))

(setf system:*tpl-prompt-hook* #'sjl-prompt)


#-quicklisp
(let ((quicklisp-init (merge-pathnames ".quicklisp/setup.lisp"
                                    (user-homedir-pathname))))
 (when (probe-file quicklisp-init)
    (load quicklisp-init)))