11 Mar
2010
11 Mar
'10
9:10 a.m.
Hi,
Now Hunchentoot included the following code:
(when (find-package :swank) (ignore-errors (eval `(,(find-symbol (string '#:add-hook) :swank) ,(find-symbol (string '#:*connection-closed-hook*) :swank) 'after-close-swank-connection))))
This does not seem reliable, but is absolutely necessary for a more safe debugging remote servers. I propose a patch that will rewrite this code more natural way:
#+swank(swank:add-hook swank:*connection-closed-hook* 'after-close-swank-connection)
See attachment.
Moskvitin Andrey