0.6.10:

[sbcl.git] / src / code / signal.lisp

diff --git a/src/code/signal.lisp b/src/code/signal.lisp
index 8bf189d..2ededa6 100644 (file)
--- 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$")
 \f
 ;;;; 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*