diff --git a/code/signal.lisp b/code/signal.lisp index 164d09933a046e8b0c85a66c21aac539f1d69430..438b64987177d36853ab0efed10966bedb8826f9 100644 --- a/code/signal.lisp +++ b/code/signal.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman (FAHLMAN@CMUC). ;;; ********************************************************************** ;;; -;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/signal.lisp,v 1.2 1990/06/06 03:59:28 wlott Exp $ +;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/signal.lisp,v 1.3 1990/07/02 04:37:34 wlott Exp $ ;;; ;;; Code for handling UNIX signals. ;;; @@ -58,6 +58,7 @@ `(install-handler ,(mach:unix-signal-number signal) (di::get-lisp-obj-address ,handler)))) #+nil (frob :sigint #'sigint-handler) + (frob :sigquit #'sigquit-handler) (frob :sigill #'sigill-handler) (frob :sigtrap #'internal-error) (frob :sigiot #'sigiot-handler)