X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fsignal.lisp;h=ddaf73f8016d0b521498b1933b213254e5d66be4;hb=0b5610d8a220a4b20cbeac958953ca4d67c00038;hp=46679aad64683873df455c020a90afcad4959ffd;hpb=cea4896b2482b7b2b429c1631d774b4cfbc0efba;p=sbcl.git

diff --git a/src/code/signal.lisp b/src/code/signal.lisp
index 46679aa..ddaf73f 100644
--- a/src/code/signal.lisp
+++ b/src/code/signal.lisp
@@ -104,7 +104,8 @@
 ;;;; 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
@@ -125,9 +126,7 @@
        ;; 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*
@@ -156,9 +155,8 @@
   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")