Hello,<br><br>I wanted to test closure-html so I installed and attempted to load it in LispWorks 6 on Windows.<br><br><blockquote style="margin: 0pt 0pt 0pt 0.8ex; border-left: 1px solid rgb(204, 204, 204); padding-left: 1ex;" class="gmail_quote">
CL-USER 3 > (asdf:load-system 'closure-html)<br><br>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.<br>  1 (abort) Return to level 0.<br>
  2 Return to top loop level 0.<br><br>Type :b for backtrace or :c <option number> to proceed.<br>Type :bug-form "<subject>" for a bug report template or :? for other options.<br><br>CL-USER 4 : 1 > :b<br>
Call to ERROR<br>Call to STREAM::EXTERNAL-FORMAT-STREAM-DEFAULTED-ELEMENT-TYPE<br>Call to STREAM::EXTERNAL-FORMAT-OPEN<br>Call to OPEN<br>Call to ASDF:FIND-SYSTEM<br>Call to ASDF:OPERATE<br>Call to ASDF:LOAD-SYSTEM<br>Call to EVAL<br>
Call to CAPI::CAPI-TOP-LEVEL-FUNCTION<br>Call to CAPI::INTERACTIVE-PANE-TOP-LOOP<br>Call to MP::PROCESS-SG-FUNCTION<br><br>CL-USER 5 : 1 > <br></blockquote><div><br>This diff corrects it for me. I don't have another lisp to test it immediately to see if this needs to be conditional.<br>
<br>--- a/system/asdf/asdf.lisp<br>+++ b/system/asdf/asdf.lisp<br>@@ -1022,7 +1022,7 @@ to `~a` which is not a directory.~@:>"<br>                    (< (car in-memory) (safe-file-write-date on-disk))))<br>       (let ((package (make-temporary-package)))<br>
         (unwind-protect<br>-             (with-open-file (asd on-disk :if-does-not-exist nil)<br>+             (with-open-file (asd on-disk :if-does-not-exist nil :element-type :default)<br>                (if asd<br>                    (let ((*package* package))<br>
                      (asdf-message<br> <br><br>Is this correct or is there something broken on my end?<br></div>