about summary refs log tree commit diff
path: root/users/sterni/mblog/mblog.lisp
diff options
context:
space:
mode:
authorsterni <sternenseemann@systemli.org>2023-03-17T16·36+0100
committerclbot <clbot@tvl.fyi>2023-03-24T18·32+0000
commit80e168b22d602e2d2b8b872beadacc64460bd670 (patch)
treeb87796e4df8a06583feffca6a9a16ff735432be0 /users/sterni/mblog/mblog.lisp
parentfee0c83915918f60c55c25a9c48c59b4e92eb598 (diff)
feat(sterni/mblog): implement environment based config mechanism r/6040
Change-Id: I091c0d5decc0a1eb3d24e81b713434ab391c677d
Reviewed-on: https://cl.tvl.fyi/c/depot/+/8347
Reviewed-by: sterni <sternenseemann@systemli.org>
Autosubmit: sterni <sternenseemann@systemli.org>
Tested-by: BuildkiteCI
Diffstat (limited to 'users/sterni/mblog/mblog.lisp')
-rw-r--r--users/sterni/mblog/mblog.lisp6
1 files changed, 2 insertions, 4 deletions
diff --git a/users/sterni/mblog/mblog.lisp b/users/sterni/mblog/mblog.lisp
index 36a31376c8df..005850fba8dd 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))))