diff --git a/code/lispinit.lisp b/code/lispinit.lisp index f185188abcf149e8bfca77132f99f4fef39585c6..2fe7b801104138b7609fc10dc14ac745b37e86da 100644 --- a/code/lispinit.lisp +++ b/code/lispinit.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman (FAHLMAN@CMUC). ;;; ********************************************************************** ;;; -;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/lispinit.lisp,v 1.18 1991/01/30 14:06:31 ram Exp $ +;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/lispinit.lisp,v 1.19 1991/01/31 02:09:17 wlott Exp $ ;;; ;;; Initialization stuff for CMU Common Lisp, plus some other random functions ;;; that we don't have any better place for. @@ -680,6 +680,7 @@ (loop (with-simple-restart (abort "Return to Top-Level.") (catch 'top-level-catcher + (mach:unix-sigsetmask 0) (let ((*in-top-level-catcher* t)) (loop (fresh-line)