X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fsparc%2Fmacros.lisp;h=4da932500912e0a421616169b445d550debdb6b5;hb=74cf7a4d01664fbf72a662ba093ad67ca243b524;hp=40108169e9b0b7c332bc87268947bb351c5bf356;hpb=1d06300e09f767a38bbe6d5b38232ca334ab1913;p=sbcl.git

diff --git a/src/compiler/sparc/macros.lisp b/src/compiler/sparc/macros.lisp
index 4010816..4da9325 100644
--- a/src/compiler/sparc/macros.lisp
+++ b/src/compiler/sparc/macros.lisp
@@ -372,4 +372,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))