X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fx86-64%2Fparms.lisp;h=e5954c66e9de72042c094b22306be008c83a3bce;hb=673234cb910923d41badca51b383e3188f375691;hp=1a685042884c3ba1cbadb93ef3a909d4ae67e21f;hpb=47eb330ef0f3b99d24c0e24d897b757f16950c4b;p=sbcl.git

diff --git a/src/compiler/x86-64/parms.lisp b/src/compiler/x86-64/parms.lisp
index 1a68504..e5954c6 100644
--- a/src/compiler/x86-64/parms.lisp
+++ b/src/compiler/x86-64/parms.lisp
@@ -193,8 +193,10 @@
     *gc-inhibit*
     #!+sb-thread *stop-for-gc-pending*
     *gc-pending*
+    #!+sb-thread sb!thread::run-interruption
 
     *free-tls-index*
+    *tls-index-lock*
 
     *allocation-pointer*
     *binding-stack-pointer*
@@ -208,6 +210,9 @@
     *fp-constant-0f0*
     *fp-constant-1f0*
 
+    ;; For GC-AND-SAVE
+    *restart-lisp-function*
+
     ;; The ..SLOT-UNBOUND.. symbol is static in order to optimise the
     ;; common slot unbound check.
     ;;