(warn "Signal setting not supported on this platform.")))
(defun remove-signal-handler (sig &optional old-handler)
(warn "Signal setting not supported on this platform.")))
(defun remove-signal-handler (sig &optional old-handler)
#+(and lispworks unix) (system:set-signal-handler signum old-handler)
#+sbcl (sb-sys:enable-interrupt signum (or old-handler :default))
#-(or allegro cmu (and lispworks unix) sbcl)
#+(and lispworks unix) (system:set-signal-handler signum old-handler)
#+sbcl (sb-sys:enable-interrupt signum (or old-handler :default))
#-(or allegro cmu (and lispworks unix) sbcl)