From 4af7e7a48be93555df7205793c21d545f6e9cc99 Mon Sep 17 00:00:00 2001
From: wlott <wlott>
Date: Mon, 26 Nov 1990 19:21:39 +0000
Subject: [PATCH] Don't assume the size of sigcontext, use c-sizeof.

---
 code/debug-int.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/code/debug-int.lisp b/code/debug-int.lisp
index 05d311008..b96f547f2 100644
--- a/code/debug-int.lisp
+++ b/code/debug-int.lisp
@@ -840,7 +840,7 @@
     (alien-bind ((scp (interrupt-array-ref
 		       (alien-value lisp_interrupt_contexts)
 		       index)
-		      (alien mach:sigcontext 2400)
+		      (alien mach:sigcontext #.(c-sizeof 'mach:sigcontext))
 		      t)
 		 (sc (mach:indirect-*sigcontext scp)
 		     mach:sigcontext
-- 
GitLab