;; non-documented method to get old handler, works in lispworks 5
(let ((old-handler (when (and (boundp 'system::*signal-handler-functions*)
(typep system::*signal-handler-functions* 'array))
;; non-documented method to get old handler, works in lispworks 5
(let ((old-handler (when (and (boundp 'system::*signal-handler-functions*)
(typep system::*signal-handler-functions* 'array))