Fix lispindent to indent flet/labels right so I don't lose my goddamn mind
This code is an incomprehensible hellscape so this probably breaks something
somewhere but if I have to spend another moment without correctly-indented flets
and labelses I'm gonna jump out a fucking window.
| author |
Steve Losh <steve@stevelosh.com> |
| date |
Fri, 25 Mar 2016 21:34:05 +0000 |
| parents |
e7642253ffde |
| children |
735d4fc86bc8 |
;;; 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)