From 993808c734d75c3b267d6d4581c18ca8b2caa0ec Mon Sep 17 00:00:00 2001
From: ram <ram>
Date: Fri, 23 Feb 1990 11:27:05 +0000
Subject: [PATCH] Picked up new SIGMASK from working code version of
 syscall.lisp.

---
 code/machdef.lisp | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/code/machdef.lisp b/code/machdef.lisp
index 0dce05382..2d3471e46 100644
--- a/code/machdef.lisp
+++ b/code/machdef.lisp
@@ -92,8 +92,7 @@
 
 (defmacro sigmask (signal)
   "Returns a mask given a signal." 
-  `(ash 1 (1- ,signal)))
-
+  `(ash 1 (1- ,(unix-signal-number signal))))
 
 (defmacro with-trap-arg-block (arg-var alien-var &body forms)
   `(progn (unless *free-trap-arg-blocks* (alloc-trap-arg-block))
-- 
GitLab