Skip to content
Snippets Groups Projects
Commit d8df7568 authored by ram's avatar ram
Browse files

Really fixed the WITH-ARRAY-DATA syntax this time for sure, truly.

parent 9d317f88
No related branches found
No related tags found
No related merge requests found
...@@ -143,7 +143,8 @@ ...@@ -143,7 +143,8 @@
(start (fill-pointer vec))) (start (fill-pointer vec)))
(dotimes (i len) (dotimes (i len)
(vector-push-extend 0 vec)) (vector-push-extend 0 vec))
(lisp::with-array-data ((data vec)) (lisp::with-array-data ((data vec) (ig1) (ig2))
(declare (ignore ig1 ig2))
(%primitive byte-blt bits 0 data start (+ start len)))) (%primitive byte-blt bits 0 data start (+ start len))))
(undefined-value)) (undefined-value))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment