;;;; utilities for dealing with signal names and numbers
(defstruct (unix-signal
- (:constructor make-unix-signal (%name %number %description)))
+ (:constructor make-unix-signal (%name %number %description))
+ (:copier nil))
%name ; signal keyword
(%number nil :type integer) ; UNIX signal number
(%description nil :type string)) ; documentation
;; old code which expects the symbol with the same print name as
;; our keywords to be a constant with a value equal to the signal
;; number.
- (defconstant ,symbol ,number ,description)
- (let ((sb!int::*rogue-export* "DEF-MATH-RTN"))
- (export ',symbol)))))
+ (defconstant ,symbol ,number ,description))))
(defun unix-signal-or-lose (arg)
(let ((signal (find arg *unix-signals*
signal number or a keyword of the standard UNIX signal name."
(unix-signal-%number (unix-signal-or-lose signal)))
-;;; Known signals
+;;; known signals
(def-unix-signal :CHECK 0 "Check")
-
(def-unix-signal :SIGHUP 1 "Hangup")
(def-unix-signal :SIGINT 2 "Interrupt")
(def-unix-signal :SIGQUIT 3 "Quit")