I nearly deleted it thinking it was useless and then realized what its
actual purpose was.
(push (lambda () (readline:write-history *history-file*))
custom:*fini-hooks*))
-;; Shebang.
+;; Don't choke on shebang lines. This isn't here so that we can run Lisp
+;; scripts like proper Unix programs: `cl-launch' or `runlisp' do that. It's
+;; here so that we can `load' a script into a running Lisp without it choking
+;; on the shebang.
(set-dispatch-macro-character
#\# #\!
(lambda (stream char arg)