X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fgeneric%2Fparms.lisp;h=ea3224711d2f227fcff112d5796cfec3d9e66d63;hb=7f1e94ae961a198e00daf281eb1dc858e5b2dcc7;hp=abe0fba5dc3ae79d2e620e305a8793d3808d8204;hpb=8ede17a6b75128950ba83bb5e59e6c1b4d6f2746;p=sbcl.git

diff --git a/src/compiler/generic/parms.lisp b/src/compiler/generic/parms.lisp
index abe0fba..ea32247 100644
--- a/src/compiler/generic/parms.lisp
+++ b/src/compiler/generic/parms.lisp
@@ -116,14 +116,18 @@
     sb!kernel::alien-stack-exhausted-error
     sb!kernel::heap-exhausted-error
     sb!kernel::undefined-alien-variable-error
-    sb!kernel::undefined-alien-function-error
     sb!kernel::memory-fault-error
     sb!kernel::unhandled-trap-error
+    ;; On x86-64 it's called through the internal errors mechanism
+    #!-x86-64 undefined-alien-fun-error
     sb!di::handle-breakpoint
     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