chiark - git - mdw - profile/blob - 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*)))