diff --git a/code/debug-info.lisp b/code/debug-info.lisp index e1321e1501f3e2f954c6487c05a1ec86bb1cc7e4..c88cabbfc2a2130fb502fdbf68a98b06236ec5c3 100644 --- a/code/debug-info.lisp +++ b/code/debug-info.lisp @@ -143,7 +143,7 @@ (start (fill-pointer vec))) (dotimes (i len) (vector-push-extend 0 vec)) - (lisp::with-array-data (data vec) + (lisp::with-array-data ((data vec)) (%primitive byte-blt bits 0 data start (+ start len)))) (undefined-value))