diff options
| author | Flavio Cruz <flaviocruz@gmail.com> | 2008-09-05 14:02:47 +0000 |
|---|---|---|
| committer | Flavio Cruz <flaviocruz@gmail.com> | 2008-09-05 14:02:47 +0000 |
| commit | e79bd41d544c2f7f7a322ed70aaea3e712d76e8e (patch) | |
| tree | ee150b219d5755014e606243ecd12b25c1d87161 | |
| parent | 96efb8bf8e3b99ccc203bc6e55f1e047972e24e4 (diff) | |
Move %create-adjustable-array to here.
| -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))) + |