+;; CLisp history.
+#+(and clisp readline)
+(progn
+ (export '(*history-file* *history-size*))
+ (defvar *history-file* (format nil "~A/.clisp-history" (ext:getenv "HOME"))
+ "File to preserve the REPL history.")
+ (defvar *history-size* 1000)
+ (unless (and (probe-file *history-file*) nil)
+ (let (old-umask stream)
+ ;; Ugh. There's no proper open(2) veneer. Play with umask(2) to avoid
+ ;; a window in which an adversary can open the file.
+ (unwind-protect
+ (setf old-umask (os:umask #o077)
+ stream (open *history-file*
+ :direction :output
+ :if-exists :overwrite
+ :if-does-not-exist :create))
+ (when stream (close stream))
+ (when old-umask (os:umask old-umask)))))
+ (readline:read-history *history-file*)
+ (if *history-size* (readline:stifle-history *history-size*)
+ (readline:unstifle-history))
+ (push (lambda () (readline:write-history *history-file*))
+ custom:*fini-hooks*))
+
+;; 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.