Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Newer
Older
100644 16 lines (13 sloc) 0.454 kb
8f10c1d Initial version imported from my private repository.
Jeff Palmucci authored
1 (in-package :future)
2
3 ;; if we are running interactively with swank, make sure that we close
4 ;; the swank connection in the children, or the child will screw up
5 ;; communication between swank and the parent
4eb9a9e @jpalmucci Get it to work with sbcl
authored
6 #+allegro
7 (progn
8 (defun close-swank-connections ()
9 (mapc #'(lambda (c)
10 (swank::close-connection c nil nil))
11 swank::*connections*)
12 (setq swank::*connections* nil)
13 )
8f10c1d Initial version imported from my private repository.
Jeff Palmucci authored
14
4eb9a9e @jpalmucci Get it to work with sbcl
authored
15 (pushnew 'close-swank-connections *spawn-child-hooks*))
Something went wrong with that request. Please try again.