X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fppc%2Fmacros.lisp;h=645c566cc093cba600394ffd82b4c4f2ce0848dd;hb=5d3a728a1d9a91e7218fe53f12f96ab63b846810;hp=4fb7160c5740c2529b55aedfd38bdaae477fd15b;hpb=37a9a1acdb9f9d6bd91b8420fc7fb351b44b11e9;p=sbcl.git

diff --git a/src/compiler/ppc/macros.lisp b/src/compiler/ppc/macros.lisp
index 4fb7160..645c566 100644
--- a/src/compiler/ppc/macros.lisp
+++ b/src/compiler/ppc/macros.lisp
@@ -382,4 +382,5 @@ garbage collection.  This is currently implemented by disabling GC"
     ,@body)
   #!+gencgc
   `(let ((*pinned-objects* (list* ,@objects *pinned-objects*)))
+     (declare (truly-dynamic-extent *pinned-objects*))
      ,@body))