diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2021-02-23 13:31:24 -0700 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-02-23 13:31:24 -0700 |
| commit | 37f68da3c036de3a483882dbbe8fd2c7dd7e8ced (patch) | |
| tree | ce169e98bd8aa894156d824303fb57219606ecfa /src/data.lisp | |
| parent | b68175a943c2c3c07aee56679b4fcd668b3c26c5 (diff) | |
| download | consfigurator-37f68da3c036de3a483882dbbe8fd2c7dd7e8ced.tar.gz | |
fix call to BABEL:STRING-TO-OCTETS
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'src/data.lisp')
| -rw-r--r-- | src/data.lisp | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/data.lisp b/src/data.lisp index be47ff5..8a6a210 100644 --- a/src/data.lisp +++ b/src/data.lisp @@ -159,7 +159,7 @@ This function is called by property :APPLY and :UNAPPLY subroutines." (defmethod %get-data-stream ((data string-data)) (babel-streams:make-in-memory-input-stream - (babel:string-to-octets (data-string data) :UTF-8) + (babel:string-to-octets (data-string data) :encoding :UTF-8) :element-type '(unsigned-byte 8))) (defmethod %get-data-stream ((data file-data)) |