X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fpolicies.lisp;h=18437bb54a1c908b4811e9c824f69ab62cac246a;hb=beddcfe1ea23d2cfdddde2fa7cde6436799715a2;hp=736d28755a357ecfa7746ad3e88a1fe368135810;hpb=4cd96b3be366d23b972a147965e40ea022329259;p=sbcl.git

diff --git a/src/compiler/policies.lisp b/src/compiler/policies.lisp
index 736d287..18437bb 100644
--- a/src/compiler/policies.lisp
+++ b/src/compiler/policies.lisp
@@ -51,6 +51,12 @@ Enabling this option can increase heap consing of closures.")
   "Control conversion of &REST argments to &MORE arguments when
 only used as the final argument to APPLY.")
 
+(define-optimization-quality alien-funcall-saves-fp-and-pc
+    (if (<= speed debug) 3 0)
+  ("no" "maybe" "yes" "yes")
+  "Control ALIEN-FUNCALL saving frame-pointer and program counter for
+more reliable bactracing across foreign calls.")
+
 (define-optimization-quality verify-arg-count
     (if (zerop safety) 0 3)
   ("no" "maybe" "yes" "yes"))