-(defun destroy-process (process)
- #+sbcl (sb-thread:destroy-thread process)
- #+cmucl (mp:destroy-process process)
- #+allegro (mp:process-kill process)
- #+lispworks (mp:process-kill process)
- )
-
-(defun close-socket (sock)
- (ignore-errors (close sock)))
-
-