From dd9f45e0f48e92cdab912089afd614880e392a4a Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Thu, 6 May 2021 11:48:12 -0700 Subject: when collecting output, accept Unicode Signed-off-by: Sean Whitton --- src/data.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/data.lisp') diff --git a/src/data.lisp b/src/data.lisp index 2861cd0..de96905 100644 --- a/src/data.lisp +++ b/src/data.lisp @@ -538,7 +538,7 @@ Preprocessing must occur in the root Lisp.")) ;; there will be a lot of spurious warnings due to not ;; compiling. (let ((string (make-array '(0) - :element-type 'base-char + :element-type 'character :fill-pointer 0 :adjustable t))) (handler-case (with-output-to-string (stream string) -- cgit v1.2.3