X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fdebug-int.lisp;h=0366b5b82737e252b96b09504efbe52996d6e348;hb=ec2e02db335d1545b3c18233bf440ca4160f780d;hp=14cb3e99626f8e6806b78ddbe52402d1c664fb2e;hpb=1b7d7105bac89ae7c5b5dae579965cd20f81c345;p=sbcl.git

diff --git a/src/code/debug-int.lisp b/src/code/debug-int.lisp
index 14cb3e9..0366b5b 100644
--- a/src/code/debug-int.lisp
+++ b/src/code/debug-int.lisp
@@ -3351,8 +3351,8 @@ register."
 ;;; or replace the function that's about to be called with a wrapper
 ;;; which will signal the condition.
 
-(defun handle-single-step-trap (context-sap kind callee-register-offset)
-  (let ((context (sb!alien:sap-alien context-sap (* os-context-t))))
+(defun handle-single-step-trap (kind callee-register-offset)
+  (let ((context (nth-interrupt-context (1- *free-interrupt-context-index*))))
     ;; The following calls must get tail-call eliminated for
     ;; *STEP-FRAME* to get set correctly on non-x86.
     (if (= kind single-step-before-trap)