[profile] / dot / swank.lisp

;; -*-lisp-*-

#+mdw (cl:in-package #:mdw-hacks)

(setf swank:*communication-style* :fd-handler
      swank:*dont-close* t
      *print-right-margin* 77)

#+sbcl (progn
	 (setf swank-loader::*contribs*
	       (delete-if (lambda (thing)
			    (member
			     thing
			     '(swank-loader::swank-presentations
			       swank-loader::swank-presentation-streams)))
			  swank-loader::*contribs*)))
Commit	Line	Data
b5bf3445 MW	1	;; --lisp--
b5bf3445 MW	2
dc443bb2 MW	3	#+mdw (cl:in-package #:mdw-hacks)
dc443bb2 MW	4
b5bf3445	5	(setf swank:communication-style :fd-handler
f169435d MW	6	swank:dont-close t
f169435d MW	7	print-right-margin 77)
b5bf3445 MW	8
b5bf3445 MW	9	#+sbcl (progn
b5bf3445 MW	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)))
2684dcd5	16	swank-loader::contribs)))