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