0.pre7.28:

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

diff --git a/src/code/signal.lisp b/src/code/signal.lisp
index cc8d985..ab63538 100644 (file)
--- a/src/code/signal.lisp
+++ b/src/code/signal.lisp
@@ -37,10 +37,6 @@
 ;;; are lost in the noise when compared with the cost of delivering
 ;;; the signal in the first place.
 
-;;; Magically converted by the compiler into a break instruction.
-(defun do-pending-interrupt ()
-  (do-pending-interrupt))
-
 #!-gengc (progn
 
 (defvar *interrupts-enabled* t)
@@ -237,12 +233,4 @@
 #!+svr4
 (!def-unix-signal :SIGWAITING 32) ; Process's LWPs are blocked.
 
-(sb!xc:defmacro sigmask (&rest signals)
-  #!+sb-doc
-  "Returns a mask given a set of signals."
-  (apply #'logior
-        (mapcar (lambda (signal)
-                  (ash 1 (1- (unix-signal-number signal))))
-                signals)))
-
 (/show0 "done with signal.lisp")