[flexi-streams-devel] Flexi-streams test suite failing on OpenMCL

[Tiarnan O'Corrain]

Hi--

The flexi-streams test suite is failing on OpenMCL "Version 1.0
(DarwinPPC32)" on

Test "hebrew_utf8_lf.txt" (:UTF-8 :EOL-STYLE :LF) [INPUT]
 --> (:UTF-8 :EOL-STYLE :LF) [OUTPUT].

I think this is also preventing Hunchentoot from working on recent
OpenMCL versions


Backtrace:

  0: (#<STANDARD-METHOD STREAM-READ-CHAR
(FLEXI-STREAMS::FLEXI-UTF-8-INPUT-STREAM)>
#<FLEXI-STREAMS::FLEXI-UTF-8-INPUT-STREAM #x8800FAE>)
  1: (READ-CHAR #<FLEXI-STREAMS::FLEXI-UTF-8-INPUT-STREAM #x8800FAE>)
  2: (CCL::GENERIC-READ-LINE #<FLEXI-STREAMS::FLEXI-UTF-8-INPUT-STREAM
#x8800FAE>)
  3: (READ-LINE #<FLEXI-STREAMS::FLEXI-UTF-8-INPUT-STREAM #x8800FAE>)
  4: (FLEXI-STREAMS-TEST::COPY-STREAM #<FILE-BINARY-INPUT-STREAM
("home:src;site;flexi-streams-0.11.2;test;hebrew_utf8_lf.txt"/14)
#x8801956> #<EXTERNAL-FORMAT (:UTF-8 :EOL-STYLE :LF) #x86F703E>
#<FILE-BINARY-OUTPUT-STREAM
("/tmp/flexi-streams-test/hebrew_utf8_lf.txt"/17) #x8801296>
#<EXTERNAL-FORMAT (:UTF-8 :EOL-STYLE :LF) #x86F703E>)
  5: (FLEXI-STREAMS-TEST::COPY-FILE
#P"home:src;site;flexi-streams-0.11.2;test;hebrew_utf8_lf.txt"
#<EXTERNAL-FORMAT (:UTF-8 :EOL-STYLE :LF) #x86F703E>
#P"/tmp/flexi-streams-test/hebrew_utf8_lf.txt" #<EXTERNAL-FORMAT
(:UTF-8 :EOL-STYLE :LF) #x86F703E> ':OUTPUT ':INPUT)
  6: (FLEXI-STREAMS-TEST::COMPARE-FILES "hebrew_utf8_lf.txt"
"hebrew_utf8_lf.txt" '((#1="hebrew_utf8_lf.txt"
        #2=#<EXTERNAL-FORMAT (:UTF-8 :EOL-STYLE :LF) #x86F703E>
        "hebrew_utf8_cr.txt"
        #<EXTERNAL-FORMAT (:UTF-8 :EOL-STYLE :CR) #x86F6FFE>)
       (#1# #2# "hebrew_utf8_crlf.txt"
        #<EXTERNAL-FORMAT (:UTF-8 :EOL-STYLE :CRLF) #x86F6FBE>)
       (#1# #2# "hebrew_latin8_lf.txt"
        #<EXTERNAL-FORMAT (:ISO-8859-8 :EOL-STYLE :LF) #x86F6F7E>)
       (#1# #2# "hebrew_latin8_cr.txt"
        #<EXTERNAL-FORMAT (:ISO-8859-8 :EOL-STYLE :CR) #x86F6F3E>)
..))) '(#1="hebrew_utf8_lf.txt" ..)
  7: (FLEXI-STREAMS-TEST::RUN-TESTS)
  8: (CCL::%%BEFORE-AND-AFTER-COMBINED-METHOD-DCODE '(NIL
       #<STANDARD-METHOD ASDF:PERFORM (ASDF:TEST-OP
                                       (EQL
                                        #<SYSTEM "flexi-streams" #x84933B6>))>
       . 5339982))
  9: (CCL::%%STANDARD-COMBINED-METHOD-DCODE '(#<RESTART ASDF:RETRY
#x14EFA36> #<RESTART ASDF:ACCEPT #x14EFA5E>) #<RESTART ASDF:RETRY
#x14EFA36>)
 10: (ASDF:OPERATE 'ASDF:TEST-OP ':FLEXI-STREAMS)
 11: (CCL::CALL-CHECK-REGS 'ASDF:OOS)
 12: (SWANK::EVAL-REGION "(asdf:oos 'asdf:test-op :flexi-streams)
     " 'T)
 13: (#<Anonymous Function #x845173E> "(asdf:oos 'asdf:test-op :flexi-streams)
     ")
 14: (SWANK::CALL-WITH-BUFFER-SYNTAX #<COMPILED-LEXICAL-CLOSURE #x86F1C26>)
 15: (SWANK:LISTENER-EVAL "(asdf:oos 'asdf:test-op :flexi-streams)
     ")
 16: (CCL::CALL-CHECK-REGS 'SWANK:LISTENER-EVAL)
 17: (#<Anonymous Function #x843A05E> '(SWANK:LISTENER-EVAL
        "(asdf:oos 'asdf:test-op :flexi-streams)
     ") 16 "COMMON-LISP-USER")
 18: (#<Anonymous Function #x83C9086> #<Compiled-function
SWANK:SWANK-DEBUGGER-HOOK #x845050E> #<COMPILED-LEXICAL-CLOSURE
#x86F1C46>)
 19: (FUNCALL 'SWANK::EVAL-FOR-EMACS)
 20: (#<Anonymous Function #x841943E>)
 21: (#<Anonymous Function #x83C9086> #<Compiled-function
SWANK:SWANK-DEBUGGER-HOOK #x845050E> #<Anonymous Function #x841943E>)
 22: (SWANK::CALL-WITH-REDIRECTED-IO #<COMPILED-LEXICAL-CLOSURE
#x86F1C66> #<CONNECTION  #x848243E>)
 23: (SWANK::CALL-WITH-CONNECTION #<CONNECTION  #x848243E> #<Anonymous
Function #x841943E>)
 24: (SWANK::HANDLE-REQUEST #<CONNECTION  #x848243E>)
 25: (SWANK::REPL-LOOP 'NIL)
 26: (SWANK::CALL-WITH-BINDINGS 'NIL #<COMPILED-LEXICAL-CLOSURE #x8484A3E>)
 27: (CCL::RUN-PROCESS-INITIAL-FORM '(#<COMPILED-LEXICAL-CLOSURE
#x847DB86>) #<PROCESS repl-thread(5) [Active] #x847DBBE>)
 28: (#<Anonymous Function #x80DB61E> '(#<COMPILED-LEXICAL-CLOSURE
#x847DB86>) 0)
 29: (#<Anonymous Function #x80CE806> 788576 #<LISP-THREAD repl-thread
[tcr @ #x302180] #x847DCAE>)