Hello,

I wanted to test closure-html so I installed and attempted to load it in LispWorks 6 on Windows.

CL-USER 3 > (asdf:load-system 'closure-html)

Error: External format (:UTF-8 :EOL-STYLE :LF) produces characters of type SIMPLE-CHAR, which is not a subtype of the specified element-type BASE-CHAR.
1 (abort) Return to level 0.
2 Return to top loop level 0.

Type :b for backtrace or :c <option number> to proceed.
Type :bug-form "<subject>" for a bug report template or :? for other options.

CL-USER 4 : 1 > :b
Call to ERROR
Call to STREAM::EXTERNAL-FORMAT-STREAM-DEFAULTED-ELEMENT-TYPE
Call to STREAM::EXTERNAL-FORMAT-OPEN
Call to OPEN
Call to ASDF:FIND-SYSTEM
Call to ASDF:OPERATE
Call to ASDF:LOAD-SYSTEM
Call to EVAL
Call to CAPI::CAPI-TOP-LEVEL-FUNCTION
Call to CAPI::INTERACTIVE-PANE-TOP-LOOP
Call to MP::PROCESS-SG-FUNCTION

CL-USER 5 : 1 >

This diff corrects it for me. I don't have another lisp to test it immediately to see if this needs to be conditional.

--- a/system/asdf/asdf.lisp
+++ b/system/asdf/asdf.lisp
@@ -1022,7 +1022,7 @@ to `~a` which is not a directory.~@:>"
                    (< (car in-memory) (safe-file-write-date on-disk))))
       (let ((package (make-temporary-package)))
         (unwind-protect
-             (with-open-file (asd on-disk :if-does-not-exist nil)
+             (with-open-file (asd on-disk :if-does-not-exist nil :element-type :default)
                (if asd
                    (let ((*package* package))
                      (asdf-message

Is this correct or is there something broken on my end?