[asdf-devel] Error loading closure-html

[Faré]

Can anyone remind me why we are not just using probe-file there???
To make sure we have read permissions? But if we don't, we DESERVE to
lose, and erroring out later would be a GOOD THING.

[ François-René ÐVB Rideau | Reflection&Cybernethics | http://fare.tunes.org ]
Tradition is the matter of which civilization is made.
Anyone who rejects tradition per se should be left naked in a desert island.
                — Faré

On 27 March 2010 11:32, Futu Ranon <futuranon at gmail.com> wrote:
> 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?
>
> _______________________________________________
> asdf-devel mailing list
> asdf-devel at common-lisp.net
> http://common-lisp.net/cgi-bin/mailman/listinfo/asdf-devel