[asdf-devel] Error loading closure-html

[Futu Ranon]

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?
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://mailman.common-lisp.net/pipermail/asdf-devel/attachments/20100327/249d182a/attachment.html>