Get the fuckin Unity rube goldberg machine up and running again
| author |
Steve Losh <steve@stevelosh.com> |
| date |
Fri, 20 Jan 2017 12:35:01 +0000 |
| parents |
9d1fa2c39196 |
| children |
1cd90a0458e4 |
(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)