fix: explicitly make adjustable array

veer66 · Mar 20, 2023 · ca83bd0 · ca83bd0
1 parent d55f687
commit ca83bd0
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/utf8-input-stream.lisp b/utf8-input-stream.lisp
@@ -154,7 +154,10 @@
 (defmethod stream-read-line ((s character-input-stream))
   (declare (optimize (speed 3) (debug 0) (safety 0)))
   (let ((ctx (ctx s))
-	(ch-vec (make-array *line-tmp-size* :fill-pointer 0 :element-type 'character)))    
+	(ch-vec (make-array *line-tmp-size*
+			    :fill-pointer 0
+			    :element-type 'character
+			    :adjustable t)))    
     (macrolet ((return-val (last?)
 		 `(return (values (vector-to-string ch-vec)
 				  ,last?))))