diff --git a/code/signal.lisp b/code/signal.lisp index 8fbfdc44e8b60b1cf39b62b5be3e008707f73b50..23262801d444bed6b9c90887d298fb3a8f66b45c 100644 --- a/code/signal.lisp +++ b/code/signal.lisp @@ -7,11 +7,11 @@ ;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/signal.lisp,v 1.22 1994/06/29 21:50:05 hallgren Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/signal.lisp,v 1.23 1994/10/20 14:57:18 ram Exp $") ;;; ;;; ********************************************************************** ;;; -;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/signal.lisp,v 1.22 1994/06/29 21:50:05 hallgren Exp $ +;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/signal.lisp,v 1.23 1994/10/20 14:57:18 ram Exp $ ;;; ;;; Code for handling UNIX signals. ;;; @@ -109,35 +109,34 @@ (def-unix-signal :SIGPIPE 13 "Write on a pipe with no one to read it") (def-unix-signal :SIGALRM 14 "Alarm clock") (def-unix-signal :SIGTERM 15 "Software termination signal") -(def-unix-signal :SIGURG #-(or hpux irix) 16 #+hpux 29 #+irix 21 +(def-unix-signal :SIGURG #+svr4 21 #-(or hpux svr4) 16 #+hpux 29 "Urgent condition present on socket") -(def-unix-signal :SIGSTOP #-(or hpux irix) 17 #+hpux 24 #+irix 23 "Stop") -(def-unix-signal :SIGTSTP #-(or hpux irix) 18 #+hpux 25 #+irix 24 +(def-unix-signal :SIGSTOP #-(or hpux svr4) 17 #+hpux 24 #+svr4 23 "Stop") +(def-unix-signal :SIGTSTP #-(or hpux svr4) 18 #+hpux 25 #+svr4 24 "Stop signal generated from keyboard") -(def-unix-signal :SIGCONT #-(or hpux irix) 19 #+hpux 26 #+irix 25 - "Continue after stop") -(def-unix-signal :SIGCHLD #-(or hpux irix) 20 #+(or hpux irix) 18 - "Child status has changed") -(def-unix-signal :SIGTTIN #-(or hpux irix) 21 #+hpux 27 #+irix 26 +(def-unix-signal :SIGCONT #-(or hpux svr4) 19 #+hpux 26 #+svr4 25 + "Continue after stop") +(def-unix-signal :SIGCHLD #-hpux 20 #+hpux 18 "Child status has changed") +(def-unix-signal :SIGTTIN #-(or hpux svr4) 21 #+hpux 27 #+svr4 26 "Background read attempted from control terminal") -(def-unix-signal :SIGTTOU #-(or hpux irix) 22 #+hpux 28 #+irix 27 +(def-unix-signal :SIGTTOU #-(or hpux svr4) 22 #+hpux 28 #+svr4 27 "Background write attempted to control terminal") (def-unix-signal :SIGIO #-(or hpux irix) 23 #+(or hpux irix) 22 "I/O is possible on a descriptor") #-hpux -(def-unix-signal :SIGXCPU #-irix 24 #+irix 30 "Cpu time limit exceeded") +(def-unix-signal :SIGXCPU #-svr4 24 #+svr4 30 "Cpu time limit exceeded") #-hpux -(def-unix-signal :SIGXFSZ #-irix 25 #+irix 31 "File size limit exceeded") -(def-unix-signal :SIGVTALRM #-(or hpux irix) 26 #+hpux 20 #+irix 28 - "Virtual time alarm") -(def-unix-signal :SIGPROF #-(or hpux irix) 27 #+hpux 21 #+irix 29 - "Profiling timer alarm") -(def-unix-signal :SIGWINCH #-(or hpux irix) 28 #+hpux 23 #+irix 20 - "Window size change") -(def-unix-signal :SIGUSR1 #-(or hpux irix) 30 #+(or hpux irix) 16 - "User defined signal 1") -(def-unix-signal :SIGUSR2 #-(or hpux irix) 31 #+(or hpux irix) 17 - "User defined signal 2") +(def-unix-signal :SIGXFSZ #-svr4 25 #+svr4 31 "File size limit exceeded") +(def-unix-signal :SIGVTALRM #-(or hpux svr4) 26 #+hpux 20 #+svr4 28 + "Virtual time alarm") +(def-unix-signal :SIGPROF #-(or hpux svr4) 27 #+hpux 21 #+svr4 29 + "Profiling timer alarm") +(def-unix-signal :SIGWINCH #-(or hpux svr4) 28 #+hpux 23 #+svr4 20 + "Window size change") +(def-unix-signal :SIGUSR1 #-(or hpux svr4) 30 #+(or hpux svr4) 16 + "User defined signal 1") +(def-unix-signal :SIGUSR2 #-(or hpux svr4) 31 #+(or hpux svr4) 17 + "User defined signal 2") ;;; ;;; These are Mach Specific #+mach @@ -145,6 +144,10 @@ #+mach (def-unix-signal :SIGMSG 31 "Mach message") +;;; SVR4 (or Solaris?) specific signals +#+svr4 +(def-unix-signal :SIGWAITING 32 "Process's lwps are blocked") + ;;; SIGMASK -- Public ;;; (defmacro sigmask (&rest signals)