pin array storage vector, not array itself, in SBCL

Thanks to Miroslav Urbanek for the suggestion.
quil-lang · Apr 3, 2018 · d83151d · d83151d
1 parent aa7305f
commit d83151d
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/with-array-pointers.lisp b/with-array-pointers.lisp
@@ -42,7 +42,8 @@ WARNING: Do not close over these pointers or otherwise store them outside of the
         `(progn ,@body)
         `(let ,(mapcar #'list evaled-symbols forms)
            #+sbcl
-           (sb-sys:with-pinned-objects (,@evaled-symbols)
+           (sb-sys:with-pinned-objects (,@(loop :for sym :in evaled-symbols
+                                                :collect `(sb-ext:array-storage-vector ,sym)))
              (let ,(loop :for s :in symbols
                          :for e :in evaled-symbols
                          :collect `(,s (array-pointer ,e)))