[profile] / dot / swank.lisp

;;; -*-lisp-*-

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

;; Miscellaneous configuration.
(setf swank:*dont-close* t
      *print-right-margin* 77)
#+(or sbcl cmu) (setf swank:*communication-style* :fd-handler)

;; Maybe inhibit some Swank extensions.
(let ((forbidden-contribs
       '()))
  (when forbidden-contribs
    (setf swank-loader::*contribs*
	  (delete-if (lambda (thing) (member thing forbidden-contribs))
		     swank-loader::*contribs*))))
Commit	Line	Data
8b416dc4	1	;;; --lisp--
b5bf3445	2
dc443bb2 MW	3	#+mdw (cl:in-package #:mdw-hacks)
dc443bb2 MW	4
e97daec4	5	;; Miscellaneous configuration.
831670ab	6	(setf swank:dont-close t
f169435d	7	print-right-margin 77)
831670ab	8	#+(or sbcl cmu) (setf swank:communication-style :fd-handler)
b5bf3445	9
e97daec4	10	;; Maybe inhibit some Swank extensions.
eb221c17	11	(let ((forbidden-contribs
56564da5	12	'()))
eb221c17 MW	13	(when forbidden-contribs
	14	(setf swank-loader::contribs
	15	(delete-if (lambda (thing) (member thing forbidden-contribs))
	16	swank-loader::contribs))))