X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fsignal.lisp;h=ab63538f04dc40b64bef99e4b1cd9ef45d1e9f9d;hb=bee53328c93be3433477821131ab805557476c8b;hp=7b1b6799be6d822995b919605250cf0271291eff;hpb=68a83a65688bb578163c502e045da298d20a1f0c;p=sbcl.git

diff --git a/src/code/signal.lisp b/src/code/signal.lisp
index 7b1b679..ab63538 100644
--- a/src/code/signal.lisp
+++ b/src/code/signal.lisp
@@ -233,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")