X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fcode%2Fsignal.lisp;h=5978b251315e1b3ed01db71ac4caca132e20b4df;hb=4fc9d21ae1d8a6a2f8ff70f589d5da103203de13;hp=8bf189d3ba57a9511f1ff8d0cb6a063267527542;hpb=a530bbe337109d898d5b4a001fc8f1afa3b5dc39;p=sbcl.git

diff --git a/src/code/signal.lisp b/src/code/signal.lisp
index 8bf189d..5978b25 100644
--- a/src/code/signal.lisp
+++ b/src/code/signal.lisp
@@ -10,9 +10,6 @@
 ;;;; files for more information.
 
 (in-package "SB!UNIX")
-
-(file-comment
-  "$Header$")
 
 ;;;; macros for dynamically enabling and disabling signal handling
 
@@ -128,9 +125,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*
@@ -159,9 +154,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")