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/combinator.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/combinator.lisp') diff --git a/src/combinator.lisp b/src/combinator.lisp index 02e558c..2101132 100644 --- a/src/combinator.lisp +++ b/src/combinator.lisp @@ -107,7 +107,7 @@ apply the elements of REQUIREMENTS in reverse order." ;; note that the :FAILED-CHANGE value is only used within this function and ;; should not be returned by property subroutines, per the spec (defun apply-and-print (propapps &optional unapply) - (let ((buffer (make-array '(0) :element-type 'base-char + (let ((buffer (make-array '(0) :element-type 'character :fill-pointer 0 :adjustable t)) (return-value :no-change) ;; Remove any null propapps because we don't want to print anything -- cgit v1.2.3