diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2021-05-06 11:48:12 -0700 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-05-06 12:51:27 -0700 |
| commit | dd9f45e0f48e92cdab912089afd614880e392a4a (patch) | |
| tree | 5f571228bbd1e7e55501d74664242de302559e99 /src | |
| parent | 83e25a4b4d37ca1ea69b840d5323de897be0a54d (diff) | |
| download | consfigurator-dd9f45e0f48e92cdab912089afd614880e392a4a.tar.gz | |
when collecting output, accept Unicode
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'src')
| -rw-r--r-- | src/combinator.lisp | 2 | ||||
| -rw-r--r-- | src/data.lisp | 2 |
2 files changed, 2 insertions, 2 deletions
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 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) |