diff options
| -rw-r--r-- | streams/stream.lisp | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/streams/stream.lisp b/streams/stream.lisp index d59a3317d..33387af86 100644 --- a/streams/stream.lisp +++ b/streams/stream.lisp @@ -54,3 +54,9 @@ :whence :seek-set))) (setf (offset stream) new-offset))))) +(defun %create-adjustable-array (&optional (size 0)) + (make-array size + :fill-pointer size + :adjustable t + :element-type '(unsigned-byte 8))) + |