From 8de8b5fdfac9499de1b49ffa571659692811c15d Mon Sep 17 00:00:00 2001 From: Douglas Katzman Date: Tue, 12 May 2015 16:17:27 -0400 Subject: [PATCH] Fix typo in interr. Should have been caught, but see lp#1454400. --- src/code/interr.lisp | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/src/code/interr.lisp b/src/code/interr.lisp index 210a85956..50e519a32 100644 --- a/src/code/interr.lisp +++ b/src/code/interr.lisp @@ -246,8 +246,7 @@ (/show0 "about to bind ALIEN-CONTEXT") (let* ((alien-context (sap-alien context (* os-context-t))) #!+c-stack-is-control-stack - (fp-and-pc (make-array 2 :element-type 'word)) - #!+c-stack-is-control-stack) + (fp-and-pc (make-array 2 :element-type 'word))) #!+c-stack-is-control-stack (declare (truly-dynamic-extent fp-and-pc)) #!+c-stack-is-control-stack -- 2.11.4.GIT