diff options
Diffstat (limited to 'users/sterni/mblog/mblog.lisp')
| -rw-r--r-- | users/sterni/mblog/mblog.lisp | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/users/sterni/mblog/mblog.lisp b/users/sterni/mblog/mblog.lisp index 36a31376c8..005850fba8 100644 --- a/users/sterni/mblog/mblog.lisp +++ b/users/sterni/mblog/mblog.lisp @@ -1,5 +1,5 @@ ;; SPDX-License-Identifier: GPL-3.0-only -;; SPDX-FileCopyrightText: Copyright (C) 2022 by sterni +;; SPDX-FileCopyrightText: Copyright (C) 2022-2023 by sterni ;; SPDX-FileCopyrightText: Copyright (C) 2006-2010 by Walter C. Pelissero (in-package :mblog) @@ -26,12 +26,10 @@ :if-does-not-exist :create) ,@body)) -(defvar *copy-buffer-size* 4096) - (defun redirect-stream (in out) "Consume input stream IN and write all its content to output stream OUT. The streams' element types need to match." - (let ((buf (make-array *copy-buffer-size* :element-type (stream-element-type in)))) + (let ((buf (make-array config:*general-buffer-size* :element-type (stream-element-type in)))) (loop for pos = (read-sequence buf in) while (> pos 0) do (write-sequence buf out :end pos)))) |