X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fcompiler%2Fgeneric%2Fparms.lisp;h=4661321a9776ad81c9cc81fd526a24938e6318f3;hb=7f579b076a1fc54587538ead07e506e7f06f3fe8;hp=19af15f3b32474fdfb1314aafa67c6dd58b2733a;hpb=3ea89bab9e4600ba80b6bc931481100fca74fa9d;p=sbcl.git

diff --git a/src/compiler/generic/parms.lisp b/src/compiler/generic/parms.lisp
index 19af15f..4661321 100644
--- a/src/compiler/generic/parms.lisp
+++ b/src/compiler/generic/parms.lisp
@@ -123,7 +123,10 @@
     sb!di::handle-single-step-trap
     fdefinition-object
     #!+win32 sb!kernel::handle-win32-exception
-    #!+sb-thruption sb!thread::run-interruption))
+    #!+sb-thruption sb!thread::run-interruption
+    #!+sb-safepoint sb!thread::enter-foreign-callback
+    #!+(and sb-safepoint-strictly (not win32))
+    sb!unix::signal-handler-callback))
 
 (defparameter *common-static-symbols*
   '(t
@@ -157,7 +160,7 @@
     sb!unix::*interrupt-pending*
     #!+sb-thruption sb!unix::*thruption-pending*
     #!+sb-thruption sb!impl::*restart-clusters*
-    *in-without-gcing*
+    sb!vm::*in-without-gcing*
     *gc-inhibit*
     *gc-pending*
     #!-sb-thread
@@ -170,6 +173,10 @@
     #!+sb-thread *free-tls-index*
     #!+sb-thread *tls-index-lock*
 
+    ;; dynamic runtime linking support
+    #!+sb-dynamic-core *required-runtime-c-symbols*
+    sb!kernel::*gc-epoch*
+
     ;; Dispatch tables for generic array access
     sb!impl::%%data-vector-reffers%%
     sb!impl::%%data-vector-reffers/check-bounds%%