dot/lisp-init.lisp: Get CLisp to save and restore its REPL history.
[profile] / dot / swank.lisp
1 ;; -*-lisp-*-
2
3 (setf swank:*communication-style* :fd-handler
4 swank:*dont-close* t
5 *print-right-margin* 77)
6
7 #+sbcl (progn
8 (format t "******** contribs = ~A~%"
9 swank-loader::*contribs*)
10 (setf swank-loader::*contribs*
11 (delete-if (lambda (thing)
12 (member
13 thing
14 '(swank-loader::swank-presentations
15 swank-loader::swank-presentation-streams)))
16 swank-loader::*contribs*)))