projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
0.6.10.13:
[sbcl.git]
/
src
/
code
/
signal.lisp
diff --git
a/src/code/signal.lisp
b/src/code/signal.lisp
index
46679aa
..
5978b25
100644
(file)
--- a/
src/code/signal.lisp
+++ b/
src/code/signal.lisp
@@
-125,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.
;; 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*
(defun unix-signal-or-lose (arg)
(let ((signal (find arg *unix-signals*
@@
-156,9
+154,8
@@
signal number or a keyword of the standard UNIX signal name."
(unix-signal-%number (unix-signal-or-lose signal)))
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 :CHECK 0 "Check")
-
(def-unix-signal :SIGHUP 1 "Hangup")
(def-unix-signal :SIGINT 2 "Interrupt")
(def-unix-signal :SIGQUIT 3 "Quit")
(def-unix-signal :SIGHUP 1 "Hangup")
(def-unix-signal :SIGINT 2 "Interrupt")
(def-unix-signal :SIGQUIT 3 "Quit")