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