X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fprofile.lisp;h=ddfd722b9630ccccc9a4ec1bca9f48f2ef09b5a7;hb=fbae90af33b92c5411ddcb419485dcf2bca47ab7;hp=b6b2a216f186037fbf1087c8b0c95a130f115798;hpb=f8cb958b9afbd7633c3e2f21a3711fd240e428b1;p=sbcl.git

diff --git a/src/code/profile.lisp b/src/code/profile.lisp
index b6b2a21..ddfd722 100644
--- a/src/code/profile.lisp
+++ b/src/code/profile.lisp
@@ -145,7 +145,7 @@
     (values
      ;; ENCAPSULATION-FUN
      (lambda (&more arg-context arg-count)
-       (declare (optimize speed safety sb-c::stack-allocate-dynamic-extent))
+       (declare (optimize speed safety))
        ;; Make sure that we're not recursing infinitely.
        (when (boundp '*computing-profiling-data-for*)
          (unprofile-all) ; to avoid further recursion