[profile] / dot / swank.lisp

;; -*-lisp-*-

(setf swank:*communication-style* :fd-handler
      swank:*dont-close* t)

#+sbcl (progn
	 (format t "******** contribs = ~A~%"
		 swank-loader::*contribs*)
	 (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--
	2
	3	(setf swank:communication-style :fd-handler
	4	swank:dont-close t)
	5
	6	#+sbcl (progn
	7	(format t "******** contribs = ~A~%"
	8	swank-loader::contribs)
	9	(setf swank-loader::contribs
	10	(delete-if (lambda (thing)
	11	(member
	12	thing
	13	'(swank-loader::swank-presentations
	14	swank-loader::swank-presentation-streams)))
	15	swank-loader::contribs)))