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:
[sbcl.git]
/
src
/
code
/
signal.lisp
diff --git
a/src/code/signal.lisp
b/src/code/signal.lisp
index
46679aa
..
2ededa6
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*