gmane.lisp.flexi-streams.devel

Re: substitution-char does not suppressexternal-format-encoding-error

Anton Vodonosov — 2012-02-09T22:25:17

[Sorry, accidentially hit Enter and sent unfinished letter.
 So, once again: ]

To make these two aspects - length calculation and error recovery - consistent,
the following approach may be good:

Length calculation never signals encoding error. Instead, it takes into
account that wrong byte sequences may be replaced by a character,
provided via *substitution-char* or use-value restart. I.e. every wrong
byte sequence is counted as one character.

In decoding process which follows the length calculation two cases
are possible:
1. some error is not recovered (no *substitution-char* provided
   or use-value invoked). The decoding fails completely and it 
   doesn't matter what length was calculated.
2. All the wrong sequences were substituted. In this case
   the length where all the wrong sequences are counted as
   one character exactly matches the need of decoding process.

Unfortunately I can not work on patch for this now and in the near future.

Best regards,
- Anton

10.02.2012, 01:21, "Edi Weitz" <edi< at >agharta.de>:

_______________________________________________
flexi-streams-devel mailing list
flexi-streams-devel< at >common-lisp.net
http://lists.common-lisp.net/cgi-bin/mailman/listinfo/flexi-streams-devel

Re: substitution-char does not suppressexternal-format-encoding-error

Anton Vodonosov — 2012-02-09T22:19:43

To make these two aspects - length calculation and error recovery - consistent,
the following approach may be good:

Length calculation never signals encoding error. Instead, it takes into
account that wrong byte sequences may be replaced by a character,
provided via *substitution-char* or use-value restart. I.e. every wrong
byte sequence is counted as one character.

In decoding process which follows the length calculation two cases
are possible:
1. some error is not recovered (no *substitution-char* provided
or use-value 
    restait doesn't matter what length was calculated
2.



10.02.2012, 01:21, "Edi Weitz" <edi< at >agharta.de>:

_______________________________________________
flexi-streams-devel mailing list
flexi-streams-devel< at >common-lisp.net
http://lists.common-lisp.net/cgi-bin/mailman/listinfo/flexi-streams-devel

Re: substitution-char does not suppressexternal-format-encoding-error

Edi Weitz — 2012-02-09T21:21:07

Sorry for the delay.  I think this is more or less "on purpose."
(It's been a while since I wrote that stuff...)

The recover-from-encoding-error helper function is used when during
decoding we encounter something which "looks like" a character (so to
say) but isn't one - in which case we can e.g. replace it with the
substitution character.

I think the error you mention happens earlier - when the length is checked.

Of course, one could argue that one could just as well use the same
restart here.  Maybe you can just submit a patch (including
documentation if needed and ideally with new tests) and convince Hans
to make a new release?

Thanks,
Edi.


On Sat, Jan 21, 2012 at 1:06 PM, Dmitriy Ivanov <divanov11< at >gmail.com> wrote:

substitution-char does not suppressexternal-format-encoding-error

Dmitriy Ivanov — 2012-01-21T12:06:17

Hello folks,

I have bumped into the following error while playing with Hunchentoot.
(It is originated from url-decoding GET parameters with
 *hunchentoot-default-external-format*.)

(let ((flex:*substitution-char* #\?))
  (flex:octets-to-string #(#xC1 #xC2 #xC3 #xC4) :external-format :utf-8))
=> "??"

(let ((flex:*substitution-char* #\?))
  (flex:octets-to-string #(#xC0 #xC1 #xC2 #xC3 #xC4) :external-format
:utf-8))
-> signals: This sequence can't be decoded using UTF-8 as it is too short.
1
octet missing at then end.

The reason is rather "simple": the decoder invokes the following chain of calls:
  compute-number-of-chars -> check-end -> signal-encoding-error

This contrasts to the most of decoder code, which directly calls
   recover-from-encoding-error
instead of
  signal-encoding-error.
--
Sincerely,
Dmitriy Ivanov
lisp.ystok.ru

unit test failure on sbcl

Anton Vodonosov — 2011-10-29T14:27:30

Hello.

When running asdf:test-op on the flexi-streams 1.0.7 with SBCL some failures occur.

The error message is 

Test (STRING=
      (FLEXI-STREAMS-TEST::OLD-OCTETS-TO-STRING
       FLEXI-STREAMS-TEST::OCTETS-VECTOR :EXTERNAL-FORMAT
       FLEXI-STREAMS-TEST::EXTERNAL-FORMAT)
      STRING) failed signalling error of type TYPE-ERROR: The value 0
                                                          is not of type
                                                            (MEMBER NIL T).

If I comment lines 341, 342 in test.lisp, the error does not occur.

I googled for that error and found a code snippet 
(http://paste.lisp.org/display/73334) which reproduces the
error:

(with-input-from-string (in "123456")
  (let ((stream (flex:make-flexi-stream in))                                                   
        (buffer (make-sequence 'string 3)))
    (read-sequence buffer stream)))

The code is not correct because it creates flexi-stream on top of character but not binary
stream. But the error message is the same, probably it might help you identify the 
reason why the tests fail.

Best regards,
- Anton

My open source libraries (aka "ediware")

Edi Weitz — 2011-08-31T15:11:30

[My apologies if you receive multiple copies of this email.]


Hi everybody!

As some of you will know, I'll start on a new job tomorrow.  This new
job won't involve much hacking, if at all, and thus it doesn't look
like I'll have a lot of time to maintain my open source libraries in
the near future.  I have no plans to suddenly disappear from the CL
world, but don't expect new releases of any of my libs any time soon.
(At least none published by me or on my server.)

Luckily, Hans Hübner - who already did most of the maintenance and
development work for Hunchentoot in the last two years or so - offered
to coordinate further development via github.  See his full
announcement at
<http://netzhansa.blogspot.com/2011/08/ediware-moving-to-github.html>.

I'll continue to read the mailing lists for my libs and I'm still
interested in fixing bugs you might find in the release tarballs
available on my web server.  However, I will likely not bother to
discuss or work on new features or compatibility code for
implementations other than LispWorks (which happens to be the one I'm
using).

Lastly, I hope to see a lot of you in Amsterdam
<http://weitz.de/eclm2011/> in October.  The number of registrations
so far has been pretty disappointing, but you still have three weeks
left to change your mind... :)

Take care,
Edi.

Re: a patch for chineses's cp936(gbk)encoding support.

Edi Weitz — 2011-03-03T08:02:25

Sorry for the long delay.  I finally found the time to look at the
patch.  Unfortunately, it doesn't work for me.  If I run the tests, I
get an error.  I'm attaching a backtrace.

Thanks,
Edi.



Condition: No character which corresponds to octet #xAFE4.

Call to ERROR (offset 67)
  SYSTEM::ESTRING : FLEXI-STREAMS:EXTERNAL-FORMAT-ENCODING-ERROR
  SYSTEM::EARGS   : (:FORMAT-CONTROL "No character which corresponds
to octet #x~X." :FORMAT-ARGUMENTS (45028) :EXTERNAL-FORMAT
#<FLEXI-STREAMS::FLEXI-GBK-FORMAT (:GBK :EOL-STYLE :LF :LITTLE-ENDIAN
T) 229B8E57>)

Catch frame: (FLEXI-STREAMS::RECOVER-FROM-ENCODING-ERROR . RESTART-CASE)

Catch frame: (FLEXI-STREAMS::RECOVER-FROM-ENCODING-ERROR . 1)

Call to FLEXI-STREAMS::RECOVER-FROM-ENCODING-ERROR (offset 382)
  FLEXI-STREAMS::EXTERNAL-FORMAT            :
#<FLEXI-STREAMS::FLEXI-GBK-FORMAT (:GBK :EOL-STYLE :LF :LITTLE-ENDIAN
T) 229B8E57>
  FLEXI-STREAMS::FORMAT-CONTROL             : "No character which
corresponds to octet #x~X."
  FLEXI-STREAMS::FORMAT-ARGS                : (45028)
  DBG::G                                    :
(FLEXI-STREAMS::RECOVER-FROM-ENCODING-ERROR . RESTART-CASE)
  DBG::G                                    : #<Function 1 subfunction
of FLEXI-STREAMS::RECOVER-FROM-ENCODING-ERROR 2194D172>
  CONDITIONS::*RESTART-CLUSTERS*  {Special} : ((#<RESTART USE-VALUE
22A82EAB>) (#<RESTART ASDF:RETRY 22A82E5B> #<RESTART ASDF:ACCEPT
22A82E03>) (#<RESTART ABORT 22A82D9F>) (#<RESTART ABORT 216B0553>))

Call to (METHOD FLEXI-STREAMS::OCTETS-TO-CHAR-CODE
(FLEXI-STREAMS::FLEXI-GBK-FORMAT T)) (offset 245)
  FORMAT                : #<FLEXI-STREAMS::FLEXI-GBK-FORMAT (:GBK
:EOL-STYLE :LF :LITTLE-ENDIAN T) 229B8E57>
  FLEXI-STREAMS::READER : #<Closure FLEXI-STREAMS::READER subfunction
of (METHOD STREAM:STREAM-READ-CHAR (FLEXI-STREAMS:FLEXI-INPUT-STREAM))
30FE382>

Binding frame:
  FLEXI-STREAMS::*CURRENT-UNREADER* : NIL

Call to (METHOD STREAM:STREAM-READ-CHAR
(FLEXI-STREAMS:FLEXI-INPUT-STREAM)) (offset 242)
  STREAM : :DONT-KNOW

Call to (METHOD STREAM:STREAM-READ-LINE (STREAM:FUNDAMENTAL-STREAM)) (offset 66)
  STREAM : #<FLEXI-STREAMS:FLEXI-INPUT-STREAM 22A8363F>

Call to READ-LINE (offset 105)
  STREAM              : #<FLEXI-STREAMS:FLEXI-INPUT-STREAM 22A8363F>
  SYSTEM::EOF-ERROR-P : NIL
  SYSTEM::EOF-VALUE   : NIL
  SYSTEM::RECURSIVE-P : :DONT-KNOW

Call to FLEXI-STREAMS-TEST::COPY-STREAM (offset 112)
  FLEXI-STREAMS-TEST::STREAM-IN           :
#<STREAM::LATIN-1-FILE-STREAM
c:\home\lisp\flexi-streams\test\xjt_gbk_lf.txt>
  FLEXI-STREAMS-TEST::EXTERNAL-FORMAT-IN  :
#<FLEXI-STREAMS::FLEXI-GBK-FORMAT (:GBK :EOL-STYLE :LF :LITTLE-ENDIAN
T) 229B8E57>
  FLEXI-STREAMS-TEST::STREAM-OUT          :
#<STREAM::LATIN-1-FILE-STREAM
C:\Users\edi\AppData\Local\Temp\odd-streams-test\xjt_gbk_lf.txt>
  FLEXI-STREAMS-TEST::EXTERNAL-FORMAT-OUT :
#<FLEXI-STREAMS::FLEXI-GBK-FORMAT (:GBK :EOL-STYLE :LF :LITTLE-ENDIAN
T) 229B8E57>
  FLEXI-STREAMS-TEST::IN                  :
#<FLEXI-STREAMS:FLEXI-INPUT-STREAM 22A8363F>
  FLEXI-STREAMS-TEST::OUT                 :
#<FLEXI-STREAMS:FLEXI-OUTPUT-STREAM 22A835B3>
  FLEXI-STREAMS-TEST::LINE                : NIL

Catch frame: #<Unbound Marker>

Catch frame: #<Unbound Marker>

Call to FLEXI-STREAMS-TEST::COPY-FILE (offset 267)
  FLEXI-STREAMS-TEST::PATH-IN             :
#P"c:/home/lisp/flexi-streams/test/xjt_gbk_lf.txt"
  FLEXI-STREAMS-TEST::EXTERNAL-FORMAT-IN  :
#<FLEXI-STREAMS::FLEXI-GBK-FORMAT (:GBK :EOL-STYLE :LF :LITTLE-ENDIAN
T) 229B8E57>
  FLEXI-STREAMS-TEST::PATH-OUT            :
#P"C:/Users/edi/AppData/Local/Temp/odd-streams-test/xjt_gbk_lf.txt"
  FLEXI-STREAMS-TEST::EXTERNAL-FORMAT-OUT :
#<FLEXI-STREAMS::FLEXI-GBK-FORMAT (:GBK :EOL-STYLE :LF :LITTLE-ENDIAN
T) 229B8E57>
  FLEXI-STREAMS-TEST::DIRECTION-OUT       : :OUTPUT
  FLEXI-STREAMS-TEST::DIRECTION-IN        : :INPUT
  DBG::INTERNAL-STREAM                    :
#<STREAM::LATIN-1-FILE-STREAM
c:\home\lisp\flexi-streams\test\xjt_gbk_lf.txt>
  DELETE                                  : T
  FLEXI-STREAMS-TEST::IN                  :
#<STREAM::LATIN-1-FILE-STREAM
c:\home\lisp\flexi-streams\test\xjt_gbk_lf.txt>
  DBG::INTERNAL-STREAM                    :
#<STREAM::LATIN-1-FILE-STREAM
C:\Users\edi\AppData\Local\Temp\odd-streams-test\xjt_gbk_lf.txt>
  DELETE                                  : T
  FLEXI-STREAMS-TEST::OUT                 :
#<STREAM::LATIN-1-FILE-STREAM
C:\Users\edi\AppData\Local\Temp\odd-streams-test\xjt_gbk_lf.txt>

Binding frame:
  FLEXI-STREAMS-TEST::*COPY-FUNCTION* : NIL

Call to FLEXI-STREAMS-TEST::COMPARE-FILES (offset 2620)
  FLEXI-STREAMS-TEST::VERBOSE                       : NIL
  DBG::SHOW-PROGRESS-P  {Closing}                   : 1
  DBG::SUCCESSP                                     : T
  DBG::TESTCOUNT  {Closing}                         : 1513
  DBG::|internal-flet-name-for-MAYBE-SHOW-PROGRESS| : #<Closure
FLEXI-STREAMS-TEST::MAYBE-SHOW-PROGRESS subfunction of
FLEXI-STREAMS-TEST::COMPARE-FILES 30FE4A2>
  FLEXI-STREAMS-TEST::COMPARE-FILES-ARGS-LIST       :
((#1="kafka_utf8_lf.txt" #2=#<FLEXI-STREAMS::FLEXI-UTF-8-FORMAT
(:UTF-8 :EOL-STYLE :LF) 229B57BB> #1# #2#) (#1# #2#
#3="kafka_utf8_cr.txt" #4=#<FLEXI-STREAMS::FLEXI-CR-UTF-8-FORMAT
(:UTF-8 :EOL-STYLE :CR) 229B57FB>) (#1# #2# #5="kafka_utf8_crlf.txt"
#6=#<FLEXI-STREAMS::FLEXI-CRLF-UTF-8-FORMAT (:UTF-8 :EOL-STYLE :CRLF)
229B583B>) (#1# #2# #7="kafka_latin1_lf.txt"
#8=#<FLEXI-STREAMS::FLEXI-LATIN-1-FORMAT (:ISO-8859-1 :EOL-STYLE :LF)
229B5B6F>) (#1# #2# #9="kafka_latin1_cr.txt"
#10=#<FLEXI-STREAMS::FLEXI-CR-LATIN-1-FORMAT (:ISO-8859-1 :EOL-STYLE
:CR) 229B5BB7>) (#1# #2# #11="kafka_latin1_crlf.txt"
#12=#<FLEXI-STREAMS::FLEXI-CRLF-LATIN-1-FORMAT (:ISO-8859-1 :EOL-STYLE
:CRLF) 229B5C03>) (#1# #2# #13="kafka_cp1252_lf.txt"
#14=#<FLEXI-STREAMS::FLEXI-8-BIT-FORMAT (:CODE-PAGE :ID 1252
:EOL-STYLE :LF) 229B5C4B>) (#1# #2# #15="kafka_cp1252_cr.txt"
#16=#<FLEXI-STREAMS::FLEXI-CR-8-BIT-FORMAT (:CODE-PAGE :ID 1252
:EOL-STYLE :CR) 229B5C93>) (#1# #2# #17="kafka_cp1252_crlf.txt"
#18=#<FLEXI-STREAMS::FLEXI-CRLF-8-BIT-FORMAT (:CODE-PAGE :ID 1252
:EOL-STYLE :CRLF) 229B5CDF>) (#3# #4# #1# #2#) (#3# #4# #3# #4#) (#3#
#4# #5# #6#) (#3# #4# #7# #8#) (#3# #4# #9# #10#) (#3# #4# #11# #12#)
(#3# #4# #13# #14#) (#3# #4# #15# #16#) (#3# #4# #17# #18#) (#5# #6#
#1# #2#) (#5# #6# #3# #4#) (#5# #6# #5# #6#) (#5# #6# #7# #8#) (#5#
#6# #9# #10#) (#5# #6# #11# #12#) (#5# #6# #13# #14#) (#5# #6# #15#
#16#) (#5# #6# #17# #18#) (#7# #8# #1# #2#) (#7# #8# #3# #4#) (#7# #8#
#5# #6#) (#7# #8# #7# #8#) (#7# #8# #9# #10#) (#7# #8# #11# #12#) (#7#
#8# #13# #14#) (#7# #8# #15# #16#) (#7# #8# #17# #18#) (#9# #10# #1#
#2#) (#9# #10# #3# #4#) (#9# #10# #5# #6#) (#9# #10# #7# #8#) (#9#
#10# #9# #10#) (#9# #10# #11# #12#) (#9# #10# #13# #14#) (#9# #10#
#15# #16#) (#9# #10# #17# #18#) (#11# #12# #1# #2#) (#11# #12# #3#
#4#) (#11# #12# #5# #6#) (#11# #12# #7# #8#) (#11# #12# #9# #10#)
(#11# #12# #11# #12#) (#11# #12# #13# #14#) (#11# #12# #15# #16#)
(#11# #12# #17# #18#) (#13# #14# #1# #2#) (#13# #14# #3# #4#) (#13#
#14# #5# #6#) (#13# #14# #7# #8#) (#13# #14# #9# #10#) (#13# #14# #11#
#12#) (#13# #14# #13# #14#) (#13# #14# #15# #16#) (#13# #14# #17#
#18#) (#15# #16# #1# #2#) (#15# #16# #3# #4#) (#15# #16# #5# #6#)
(#15# #16# #7# #8#) (#15# #16# #9# #10#) (#15# #16# #11# #12#) (#15#
#16# #13# #14#) (#15# #16# #15# #16#) (#15# #16# #17# #18#) (#17# #18#
#1# #2#) (#17# #18# #3# #4#) (#17# #18# #5# #6#) (#17# #18# #7# #8#)
(#17# #18# #9# #10#) (#17# #18# #11# #12#) (#17# #18# #13# #14#) (#17#
#18# #15# #16#) (#17# #18# #17# #18#) (#19="tilton_utf8_lf.txt"
#20=#<FLEXI-STREAMS::FLEXI-UTF-8-FORMAT (:UTF-8 :EOL-STYLE :LF)
229B701B> #19# #20#) (#19# #20# #21="tilton_utf8_cr.txt"
#22=#<FLEXI-STREAMS::FLEXI-CR-UTF-8-FORMAT (:UTF-8 :EOL-STYLE :CR)
229B705B>) (#19# #20# #23="tilton_utf8_crlf.txt"
#24=#<FLEXI-STREAMS::FLEXI-CRLF-UTF-8-FORMAT (:UTF-8 :EOL-STYLE :CRLF)
229B709F>) (#19# #20# #25="tilton_ascii_lf.txt"
#26=#<FLEXI-STREAMS::FLEXI-ASCII-FORMAT (:US-ASCII :EOL-STYLE :LF)
229B70E7>) (#19# #20# #27="tilton_ascii_cr.txt"
#28=#<FLEXI-STREAMS::FLEXI-CR-ASCII-FORMAT (:US-ASCII :EOL-STYLE :CR)
229B712F>) (#19# #20# #29="tilton_ascii_crlf.txt"
#30=#<FLEXI-STREAMS::FLEXI-CRLF-ASCII-FORMAT (:US-ASCII :EOL-STYLE
:CRLF) 229B717B>) (#21# #22# #19# #20#) (#21# #22# #21# #22#) (#21#
#22# #23# #24#) (#21# #22# #25# #26#) (#21# #22# #27# #28#) (#21# #22#
#29# #30#) (#23# #24# #19# #20#) (#23# #24# #21# #22#) (#23# #24# #23#
#24#) (#23# #24# #25# #26#) (#23# #24# #27# #28#) (#23# #24# #29#
#30#) (#25# #26# #19# #20#) (#25# #26# #21# #22#) (#25# #26# #23#
#24#) (#25# #26# #25# #26#) (#25# #26# #27# #28#) (#25# #26# #29#
#30#) (#27# #28# #19# #20#) (#27# #28# #21# #22#) (#27# #28# #23#
#24#) (#27# #28# #25# #26#) (#27# #28# #27# #28#) (#27# #28# #29#
#30#) (#29# #30# #19# #20#) (#29# #30# #21# #22#) (#29# #30# #23#
#24#) (#29# #30# #25# #26#) (#29# #30# #27# #28#) (#29# #30# #29#
#30#) (#31="hebrew_utf8_lf.txt"
#32=#<FLEXI-STREAMS::FLEXI-UTF-8-FORMAT (:UTF-8 :EOL-STYLE :LF)
229B7A2B> #31# #32#) (#31# #32# #33="hebrew_utf8_cr.txt"
#34=#<FLEXI-STREAMS::FLEXI-CR-UTF-8-FORMAT (:UTF-8 :EOL-STYLE :CR)
229B7A6B>) (#31# #32# #35="hebrew_utf8_crlf.txt"
#36=#<FLEXI-STREAMS::FLEXI-CRLF-UTF-8-FORMAT (:UTF-8 :EOL-STYLE :CRLF)
229B7AAF>) (#31# #32# #37="hebrew_latin8_lf.txt"
#38=#<FLEXI-STREAMS::FLEXI-8-BIT-FORMAT (:ISO-8859-8 :EOL-STYLE :LF)
229B7AFB>) (#31# #32# #39="hebrew_latin8_cr.txt"
#40=#<FLEXI-STREAMS::FLEXI-CR-8-BIT-FORMAT (:ISO-8859-8 :EOL-STYLE
:CR) 229B7B47>) (#31# #32# #41="hebrew_latin8_crlf.txt"
#42=#<FLEXI-STREAMS::FLEXI-CRLF-8-BIT-FORMAT (:ISO-8859-8 :EOL-STYLE
:CRLF) 229B7B93>) (#33# #34# #31# #32#) (#33# #34# #33# #34#) (#33#
#34# #35# #36#) (#33# #34# #37# #38#) (#33# #34# #39# #40#) (#33# #34#
#41# #42#) (#35# #36# #31# #32#) (#35# #36# #33# #34#) (#35# #36# #35#
#36#) (#35# #36# #37# #38#) (#35# #36# #39# #40#) (#35# #36# #41#
#42#) (#37# #38# #31# #32#) (#37# #38# #33# #34#) (#37# #38# #35#
#36#) (#37# #38# #37# #38#) (#37# #38# #39# #40#) (#37# #38# #41#
#42#) (#39# #40# #31# #32#) (#39# #40# #33# #34#) (#39# #40# #35#
#36#) (#39# #40# #37# #38#) (#39# #40# #39# #40#) (#39# #40# #41#
#42#) (#41# #42# #31# #32#) (#41# #42# #33# #34#) (#41# #42# #35#
#36#) (#41# #42# #37# #38#) (#41# #42# #39# #40#) (#41# #42# #41#
#42#) (#43="russian_utf8_lf.txt"
#44=#<FLEXI-STREAMS::FLEXI-UTF-8-FORMAT (:UTF-8 :EOL-STYLE :LF)
229B8443> #43# #44#) (#43# #44# #45="russian_utf8_cr.txt"
#46=#<FLEXI-STREAMS::FLEXI-CR-UTF-8-FORMAT (:UTF-8 :EOL-STYLE :CR)
229B8483>) (#43# #44# #47="russian_utf8_crlf.txt"
#48=#<FLEXI-STREAMS::FLEXI-CRLF-UTF-8-FORMAT (:UTF-8 :EOL-STYLE :CRLF)
229B84C7>) (#43# #44# #49="russian_koi8r_lf.txt"
#50=#<FLEXI-STREAMS::FLEXI-8-BIT-FORMAT (:KOI8-R :EOL-STYLE :LF)
229B8513>) (#43# #44# #51="russian_koi8r_cr.txt"
#52=#<FLEXI-STREAMS::FLEXI-CR-8-BIT-FORMAT (:KOI8-R :EOL-STYLE :CR)
229B855F>) (#43# #44# #53="russian_koi8r_crlf.txt"
#54=#<FLEXI-STREAMS::FLEXI-CRLF-8-BIT-FORMAT (:KOI8-R :EOL-STYLE
:CRLF) 229B85AB>) (#45# #46# #43# #44#) (#45# #46# #45# #46#) (#45#
#46# #47# #48#) (#45# #46# #49# #50#) (#45# #46# #51# #52#) (#45# #46#
#53# #54#) (#47# #48# #43# #44#) (#47# #48# #45# #46#) (#47# #48# #47#
#48#) (#47# #48# #49# #50#) (#47# #48# #51# #52#) (#47# #48# #53#
#54#) (#49# #50# #43# #44#) (#49# #50# #45# #46#) (#49# #50# #47#
#48#) (#49# #50# #49# #50#) (#49# #50# #51# #52#) (#49# #50# #53#
#54#) (#51# #52# #43# #44#) (#51# #52# #45# #46#) (#51# #52# #47#
#48#) (#51# #52# #49# #50#) (#51# #52# #51# #52#) (#51# #52# #53#
#54#) (#53# #54# #43# #44#) (#53# #54# #45# #46#) (#53# #54# #47#
#48#) (#53# #54# #49# #50#) (#53# #54# #51# #52#) (#53# #54# #53#
#54#) (#55="xjt_gbk_lf.txt" #56=#<FLEXI-STREAMS::FLEXI-GBK-FORMAT
(:GBK :EOL-STYLE :LF :LITTLE-ENDIAN T) 229B8E57> #55# #56#) (#55# #56#
#57="xjt_gbk_cr.txt" #58=#<FLEXI-STREAMS::FLEXI-CR-GBK-FORMAT (:GBK
:EOL-STYLE :CR :LITTLE-ENDIAN T) 229B8E93>) (#55# #56#
#59="xjt_gbk_crlf.txt" #60=#<FLEXI-STREAMS::FLEXI-CRLF-GBK-FORMAT
(:GBK :EOL-STYLE :CRLF :LITTLE-ENDIAN T) 229B8ED3>) (#57# #58# #55#
#56#) (#57# #58# #57# #58#) (#57# #58# #59# #60#) (#59# #60# #55#
#56#) (#59# #60# #57# #58#) (#59# #60# #59# #60#)
(#61="unicode_demo_utf8_lf.txt"
#62=#<FLEXI-STREAMS::FLEXI-UTF-8-FORMAT (:UTF-8 :EOL-STYLE :LF)
229B9137> #61# #62#) (#61# #62# #63="unicode_demo_utf8_cr.txt"
#64=#<FLEXI-STREAMS::FLEXI-CR-UTF-8-FORMAT (:UTF-8 :EOL-STYLE :CR)
229B917F>) (#61# #62# #65="unicode_demo_utf8_crlf.txt"
#66=#<FLEXI-STREAMS::FLEXI-CRLF-UTF-8-FORMAT (:UTF-8 :EOL-STYLE :CRLF)
229B91C7>) (#61# #62# #67="unicode_demo_ucs2_lf_le.txt"
#68=#<FLEXI-STREAMS::FLEXI-UTF-16-LE-FORMAT (:UTF-16 :EOL-STYLE :LF
:LITTLE-ENDIAN T) 229B920F>) (#61# #62#
#69="unicode_demo_ucs2_cr_le.txt"
#70=#<FLEXI-STREAMS::FLEXI-CR-UTF-16-LE-FORMAT (:UTF-16 :EOL-STYLE :CR
:LITTLE-ENDIAN T) 229B9257>) (#61# #62#
#71="unicode_demo_ucs2_crlf_le.txt"
#72=#<FLEXI-STREAMS::FLEXI-CRLF-UTF-16-LE-FORMAT (:UTF-16 :EOL-STYLE
:CRLF :LITTLE-ENDIAN T) 229B92A3>) (#61# #62#
#73="unicode_demo_ucs2_lf_be.txt"
#74=#<FLEXI-STREAMS::FLEXI-UTF-16-BE-FORMAT (:UTF-16 :EOL-STYLE :LF
:LITTLE-ENDIAN NIL) 229B92EB>) (#61# #62#
#75="unicode_demo_ucs2_cr_be.txt"
#76=#<FLEXI-STREAMS::FLEXI-CR-UTF-16-BE-FORMAT (:UTF-16 :EOL-STYLE :CR
:LITTLE-ENDIAN NIL) 229B9333>) (#61# #62#
#77="unicode_demo_ucs2_crlf_be.txt"
#78=#<FLEXI-STREAMS::FLEXI-CRLF-UTF-16-BE-FORMAT (:UTF-16 :EOL-STYLE
:CRLF :LITTLE-ENDIAN NIL) 229B937F>) (#61# #62#
#79="unicode_demo_ucs4_lf_le.txt"
#80=#<FLEXI-STREAMS::FLEXI-UTF-32-LE-FORMAT (:UTF-32 :EOL-STYLE :LF
:LITTLE-ENDIAN T) 229B93C7>) (#61# #62#
#81="unicode_demo_ucs4_cr_le.txt"
#82=#<FLEXI-STREAMS::FLEXI-CR-UTF-32-LE-FORMAT (:UTF-32 :EOL-STYLE :CR
:LITTLE-ENDIAN T) 229B940F>) (#61# #62#
#83="unicode_demo_ucs4_crlf_le.txt"
#84=#<FLEXI-STREAMS::FLEXI-CRLF-UTF-32-LE-FORMAT (:UTF-32 :EOL-STYLE
:CRLF :LITTLE-ENDIAN T) 229B945B>) (#61# #62#
#85="unicode_demo_ucs4_lf_be.txt"
#86=#<FLEXI-STREAMS::FLEXI-UTF-32-BE-FORMAT (:UTF-32 :EOL-STYLE :LF
:LITTLE-ENDIAN NIL) 229B94A3>) (#61# #62#
#87="unicode_demo_ucs4_cr_be.txt"
#88=#<FLEXI-STREAMS::FLEXI-CR-UTF-32-BE-FORMAT (:UTF-32 :EOL-STYLE :CR
:LITTLE-ENDIAN NIL) 229B94EB>) (#61# #62#
#89="unicode_demo_ucs4_crlf_be.txt"
#90=#<FLEXI-STREAMS::FLEXI-CRLF-UTF-32-BE-FORMAT (:UTF-32 :EOL-STYLE
:CRLF :LITTLE-ENDIAN NIL) 229B9537>) (#63# #64# #61# #62#) (#63# #64#
#63# #64#) (#63# #64# #65# #66#) (#63# #64# #67# #68#) (#63# #64# #69#
#70#) (#63# #64# #71# #72#) (#63# #64# #73# #74#) (#63# #64# #75#
#76#) (#63# #64# #77# #78#) (#63# #64# #79# #80#) (#63# #64# #81#
#82#) (#63# #64# #83# #84#) (#63# #64# #85# #86#) (#63# #64# #87#
#88#) (#63# #64# #89# #90#) (#65# #66# #61# #62#) (#65# #66# #63#
#64#) (#65# #66# #65# #66#) (#65# #66# #67# #68#) (#65# #66# #69#
#70#) (#65# #66# #71# #72#) (#65# #66# #73# #74#) (#65# #66# #75#
#76#) (#65# #66# #77# #78#) (#65# #66# #79# #80#) (#65# #66# #81#
#82#) (#65# #66# #83# #84#) (#65# #66# #85# #86#) (#65# #66# #87#
#88#) (#65# #66# #89# #90#) (#67# #68# #61# #62#) (#67# #68# #63#
#64#) (#67# #68# #65# #66#) (#67# #68# #67# #68#) (#67# #68# #69#
#70#) (#67# #68# #71# #72#) (#67# #68# #73# #74#) (#67# #68# #75#
#76#) (#67# #68# #77# #78#) (#67# #68# #79# #80#) (#67# #68# #81#
#82#) (#67# #68# #83# #84#) (#67# #68# #85# #86#) (#67# #68# #87#
#88#) (#67# #68# #89# #90#) (#69# #70# #61# #62#) (#69# #70# #63#
#64#) (#69# #70# #65# #66#) (#69# #70# #67# #68#) (#69# #70# #69#
#70#) (#69# #70# #71# #72#) (#69# #70# #73# #74#) (#69# #70# #75#
#76#) (#69# #70# #77# #78#) (#69# #70# #79# #80#) (#69# #70# #81#
#82#) (#69# #70# #83# #84#) (#69# #70# #85# #86#) (#69# #70# #87#
#88#) (#69# #70# #89# #90#) (#71# #72# #61# #62#) (#71# #72# #63#
#64#) (#71# #72# #65# #66#) (#71# #72# #67# #68#) (#71# #72# #69#
#70#) (#71# #72# #71# #72#) (#71# #72# #73# #74#) (#71# #72# #75#
#76#) (#71# #72# #77# #78#) (#71# #72# #79# #80#) (#71# #72# #81#
#82#) (#71# #72# #83# #84#) (#71# #72# #85# #86#) (#71# #72# #87#
#88#) (#71# #72# #89# #90#) (#73# #74# #61# #62#) (#73# #74# #63#
#64#) (#73# #74# #65# #66#) (#73# #74# #67# #68#) (#73# #74# #69#
#70#) (#73# #74# #71# #72#) (#73# #74# #73# #74#) (#73# #74# #75#
#76#) (#73# #74# #77# #78#) (#73# #74# #79# #80#) (#73# #74# #81#
#82#) (#73# #74# #83# #84#) (#73# #74# #85# #86#) (#73# #74# #87#
#88#) (#73# #74# #89# #90#) (#75# #76# #61# #62#) (#75# #76# #63#
#64#) (#75# #76# #65# #66#) (#75# #76# #67# #68#) (#75# #76# #69#
#70#) (#75# #76# #71# #72#) (#75# #76# #73# #74#) (#75# #76# #75#
#76#) (#75# #76# #77# #78#) (#75# #76# #79# #80#) (#75# #76# #81#
#82#) (#75# #76# #83# #84#) (#75# #76# #85# #86#) (#75# #76# #87#
#88#) (#75# #76# #89# #90#) (#77# #78# #61# #62#) (#77# #78# #63#
#64#) (#77# #78# #65# #66#) (#77# #78# #67# #68#) (#77# #78# #69#
#70#) (#77# #78# #71# #72#) (#77# #78# #73# #74#) (#77# #78# #75#
#76#) (#77# #78# #77# #78#) (#77# #78# #79# #80#) (#77# #78# #81#
#82#) (#77# #78# #83# #84#) (#77# #78# #85# #86#) (#77# #78# #87#
#88#) (#77# #78# #89# #90#) (#79# #80# #61# #62#) (#79# #80# #63#
#64#) (#79# #80# #65# #66#) (#79# #80# #67# #68#) (#79# #80# #69#
#70#) (#79# #80# #71# #72#) (#79# #80# #73# #74#) (#79# #80# #75#
#76#) (#79# #80# #77# #78#) (#79# #80# #79# #80#) (#79# #80# #81#
#82#) (#79# #80# #83# #84#) (#79# #80# #85# #86#) (#79# #80# #87#
#88#) (#79# #80# #89# #90#) (#81# #82# #61# #62#) (#81# #82# #63#
#64#) (#81# #82# #65# #66#) (#81# #82# #67# #68#) (#81# #82# #69#
#70#) (#81# #82# #71# #72#) (#81# #82# #73# #74#) (#81# #82# #75#
#76#) (#81# #82# #77# #78#) (#81# #82# #79# #80#) (#81# #82# #81#
#82#) (#81# #82# #83# #84#) (#81# #82# #85# #86#) (#81# #82# #87#
#88#) (#81# #82# #89# #90#) (#83# #84# #61# #62#) (#83# #84# #63#
#64#) (#83# #84# #65# #66#) (#83# #84# #67# #68#) (#83# #84# #69#
#70#) (#83# #84# #71# #72#) (#83# #84# #73# #74#) (#83# #84# #75#
#76#) (#83# #84# #77# #78#) (#83# #84# #79# #80#) (#83# #84# #81#
#82#) (#83# #84# #83# #84#) (#83# #84# #85# #86#) (#83# #84# #87#
#88#) (#83# #84# #89# #90#) (#85# #86# #61# #62#) (#85# #86# #63#
#64#) (#85# #86# #65# #66#) (#85# #86# #67# #68#) (#85# #86# #69#
#70#) (#85# #86# #71# #72#) (#85# #86# #73# #74#) (#85# #86# #75#
#76#) (#85# #86# #77# #78#) (#85# #86# #79# #80#) (#85# #86# #81#
#82#) (#85# #86# #83# #84#) (#85# #86# #85# #86#) (#85# #86# #87#
#88#) (#85# #86# #89# #90#) (#87# #88# #61# #62#) (#87# #88# #63#
#64#) (#87# #88# #65# #66#) (#87# #88# #67# #68#) (#87# #88# #69#
#70#) (#87# #88# #71# #72#) (#87# #88# #73# #74#) (#87# #88# #75#
#76#) (#87# #88# #77# #78#) (#87# #88# #79# #80#) (#87# #88# #81#
#82#) (#87# #88# #83# #84#) (#87# #88# #85# #86#) (#87# #88# #87#
#88#) (#87# #88# #89# #90#) (#89# #90# #61# #62#) (#89# #90# #63#
#64#) (#89# #90# #65# #66#) (#89# #90# #67# #68#) (#89# #90# #69#
#70#) (#89# #90# #71# #72#) (#89# #90# #73# #74#) (#89# #90# #75#
#76#) (#89# #90# #77# #78#) (#89# #90# #79# #80#) (#89# #90# #81#
#82#) (#89# #90# #83# #84#) (#89# #90# #85# #86#) (#89# #90# #87#
#88#) (#89# #90# #89# #90#))
  FLEXI-STREAMS-TEST::*COPY-FUNCTION*  {Special}    :
FLEXI-STREAMS-TEST::COPY-STREAM
  DBG::|tail-|                                      :
(FLEXI-STREAMS-TEST::COPY-STREAM*)
  FLEXI-STREAMS-TEST::PATH-IN                       : "xjt_gbk_lf.txt"
  FLEXI-STREAMS-TEST::EXTERNAL-FORMAT-IN            :
#<FLEXI-STREAMS::FLEXI-GBK-FORMAT (:GBK :EOL-STYLE :LF :LITTLE-ENDIAN
T) 229B8E57>
  FLEXI-STREAMS-TEST::PATH-OUT                      : "xjt_gbk_lf.txt"
  FLEXI-STREAMS-TEST::EXTERNAL-FORMAT-OUT           :
#<FLEXI-STREAMS::FLEXI-GBK-FORMAT (:GBK :EOL-STYLE :LF :LITTLE-ENDIAN
T) 229B8E57>
  DBG::|tail-|                                      :
((#1="xjt_gbk_lf.txt" #2=#<FLEXI-STREAMS::FLEXI-GBK-FORMAT (:GBK
:EOL-STYLE :LF :LITTLE-ENDIAN T) 229B8E57> #3="xjt_gbk_cr.txt"
#4=#<FLEXI-STREAMS::FLEXI-CR-GBK-FORMAT (:GBK :EOL-STYLE :CR
:LITTLE-ENDIAN T) 229B8E93>) (#1# #2# #5="xjt_gbk_crlf.txt"
#6=#<FLEXI-STREAMS::FLEXI-CRLF-GBK-FORMAT (:GBK :EOL-STYLE :CRLF
:LITTLE-ENDIAN T) 229B8ED3>) (#3# #4# #1# #2#) (#3# #4# #3# #4#) (#3#
#4# #5# #6#) (#5# #6# #1# #2#) (#5# #6# #3# #4#) (#5# #6# #5# #6#)
(#7="unicode_demo_utf8_lf.txt" #8=#<FLEXI-STREAMS::FLEXI-UTF-8-FORMAT
(:UTF-8 :EOL-STYLE :LF) 229B9137> #7# #8#) (#7# #8#
#9="unicode_demo_utf8_cr.txt"
#10=#<FLEXI-STREAMS::FLEXI-CR-UTF-8-FORMAT (:UTF-8 :EOL-STYLE :CR)
229B917F>) (#7# #8# #11="unicode_demo_utf8_crlf.txt"
#12=#<FLEXI-STREAMS::FLEXI-CRLF-UTF-8-FORMAT (:UTF-8 :EOL-STYLE :CRLF)
229B91C7>) (#7# #8# #13="unicode_demo_ucs2_lf_le.txt"
#14=#<FLEXI-STREAMS::FLEXI-UTF-16-LE-FORMAT (:UTF-16 :EOL-STYLE :LF
:LITTLE-ENDIAN T) 229B920F>) (#7# #8#
#15="unicode_demo_ucs2_cr_le.txt"
#16=#<FLEXI-STREAMS::FLEXI-CR-UTF-16-LE-FORMAT (:UTF-16 :EOL-STYLE :CR
:LITTLE-ENDIAN T) 229B9257>) (#7# #8#
#17="unicode_demo_ucs2_crlf_le.txt"
#18=#<FLEXI-STREAMS::FLEXI-CRLF-UTF-16-LE-FORMAT (:UTF-16 :EOL-STYLE
:CRLF :LITTLE-ENDIAN T) 229B92A3>) (#7# #8#
#19="unicode_demo_ucs2_lf_be.txt"
#20=#<FLEXI-STREAMS::FLEXI-UTF-16-BE-FORMAT (:UTF-16 :EOL-STYLE :LF
:LITTLE-ENDIAN NIL) 229B92EB>) (#7# #8#
#21="unicode_demo_ucs2_cr_be.txt"
#22=#<FLEXI-STREAMS::FLEXI-CR-UTF-16-BE-FORMAT (:UTF-16 :EOL-STYLE :CR
:LITTLE-ENDIAN NIL) 229B9333>) (#7# #8#
#23="unicode_demo_ucs2_crlf_be.txt"
#24=#<FLEXI-STREAMS::FLEXI-CRLF-UTF-16-BE-FORMAT (:UTF-16 :EOL-STYLE
:CRLF :LITTLE-ENDIAN NIL) 229B937F>) (#7# #8#
#25="unicode_demo_ucs4_lf_le.txt"
#26=#<FLEXI-STREAMS::FLEXI-UTF-32-LE-FORMAT (:UTF-32 :EOL-STYLE :LF
:LITTLE-ENDIAN T) 229B93C7>) (#7# #8#
#27="unicode_demo_ucs4_cr_le.txt"
#28=#<FLEXI-STREAMS::FLEXI-CR-UTF-32-LE-FORMAT (:UTF-32 :EOL-STYLE :CR
:LITTLE-ENDIAN T) 229B940F>) (#7# #8#
#29="unicode_demo_ucs4_crlf_le.txt"
#30=#<FLEXI-STREAMS::FLEXI-CRLF-UTF-32-LE-FORMAT (:UTF-32 :EOL-STYLE
:CRLF :LITTLE-ENDIAN T) 229B945B>) (#7# #8#
#31="unicode_demo_ucs4_lf_be.txt"
#32=#<FLEXI-STREAMS::FLEXI-UTF-32-BE-FORMAT (:UTF-32 :EOL-STYLE :LF
:LITTLE-ENDIAN NIL) 229B94A3>) (#7# #8#
#33="unicode_demo_ucs4_cr_be.txt"
#34=#<FLEXI-STREAMS::FLEXI-CR-UTF-32-BE-FORMAT (:UTF-32 :EOL-STYLE :CR
:LITTLE-ENDIAN NIL) 229B94EB>) (#7# #8#
#35="unicode_demo_ucs4_crlf_be.txt"
#36=#<FLEXI-STREAMS::FLEXI-CRLF-UTF-32-BE-FORMAT (:UTF-32 :EOL-STYLE
:CRLF :LITTLE-ENDIAN NIL) 229B9537>) (#9# #10# #7# #8#) (#9# #10# #9#
#10#) (#9# #10# #11# #12#) (#9# #10# #13# #14#) (#9# #10# #15# #16#)
(#9# #10# #17# #18#) (#9# #10# #19# #20#) (#9# #10# #21# #22#) (#9#
#10# #23# #24#) (#9# #10# #25# #26#) (#9# #10# #27# #28#) (#9# #10#
#29# #30#) (#9# #10# #31# #32#) (#9# #10# #33# #34#) (#9# #10# #35#
#36#) (#11# #12# #7# #8#) (#11# #12# #9# #10#) (#11# #12# #11# #12#)
(#11# #12# #13# #14#) (#11# #12# #15# #16#) (#11# #12# #17# #18#)
(#11# #12# #19# #20#) (#11# #12# #21# #22#) (#11# #12# #23# #24#)
(#11# #12# #25# #26#) (#11# #12# #27# #28#) (#11# #12# #29# #30#)
(#11# #12# #31# #32#) (#11# #12# #33# #34#) (#11# #12# #35# #36#)
(#13# #14# #7# #8#) (#13# #14# #9# #10#) (#13# #14# #11# #12#) (#13#
#14# #13# #14#) (#13# #14# #15# #16#) (#13# #14# #17# #18#) (#13# #14#
#19# #20#) (#13# #14# #21# #22#) (#13# #14# #23# #24#) (#13# #14# #25#
#26#) (#13# #14# #27# #28#) (#13# #14# #29# #30#) (#13# #14# #31#
#32#) (#13# #14# #33# #34#) (#13# #14# #35# #36#) (#15# #16# #7# #8#)
(#15# #16# #9# #10#) (#15# #16# #11# #12#) (#15# #16# #13# #14#) (#15#
#16# #15# #16#) (#15# #16# #17# #18#) (#15# #16# #19# #20#) (#15# #16#
#21# #22#) (#15# #16# #23# #24#) (#15# #16# #25# #26#) (#15# #16# #27#
#28#) (#15# #16# #29# #30#) (#15# #16# #31# #32#) (#15# #16# #33#
#34#) (#15# #16# #35# #36#) (#17# #18# #7# #8#) (#17# #18# #9# #10#)
(#17# #18# #11# #12#) (#17# #18# #13# #14#) (#17# #18# #15# #16#)
(#17# #18# #17# #18#) (#17# #18# #19# #20#) (#17# #18# #21# #22#)
(#17# #18# #23# #24#) (#17# #18# #25# #26#) (#17# #18# #27# #28#)
(#17# #18# #29# #30#) (#17# #18# #31# #32#) (#17# #18# #33# #34#)
(#17# #18# #35# #36#) (#19# #20# #7# #8#) (#19# #20# #9# #10#) (#19#
#20# #11# #12#) (#19# #20# #13# #14#) (#19# #20# #15# #16#) (#19# #20#
#17# #18#) (#19# #20# #19# #20#) (#19# #20# #21# #22#) (#19# #20# #23#
#24#) (#19# #20# #25# #26#) (#19# #20# #27# #28#) (#19# #20# #29#
#30#) (#19# #20# #31# #32#) (#19# #20# #33# #34#) (#19# #20# #35#
#36#) (#21# #22# #7# #8#) (#21# #22# #9# #10#) (#21# #22# #11# #12#)
(#21# #22# #13# #14#) (#21# #22# #15# #16#) (#21# #22# #17# #18#)
(#21# #22# #19# #20#) (#21# #22# #21# #22#) (#21# #22# #23# #24#)
(#21# #22# #25# #26#) (#21# #22# #27# #28#) (#21# #22# #29# #30#)
(#21# #22# #31# #32#) (#21# #22# #33# #34#) (#21# #22# #35# #36#)
(#23# #24# #7# #8#) (#23# #24# #9# #10#) (#23# #24# #11# #12#) (#23#
#24# #13# #14#) (#23# #24# #15# #16#) (#23# #24# #17# #18#) (#23# #24#
#19# #20#) (#23# #24# #21# #22#) (#23# #24# #23# #24#) (#23# #24# #25#
#26#) (#23# #24# #27# #28#) (#23# #24# #29# #30#) (#23# #24# #31#
#32#) (#23# #24# #33# #34#) (#23# #24# #35# #36#) (#25# #26# #7# #8#)
(#25# #26# #9# #10#) (#25# #26# #11# #12#) (#25# #26# #13# #14#) (#25#
#26# #15# #16#) (#25# #26# #17# #18#) (#25# #26# #19# #20#) (#25# #26#
#21# #22#) (#25# #26# #23# #24#) (#25# #26# #25# #26#) (#25# #26# #27#
#28#) (#25# #26# #29# #30#) (#25# #26# #31# #32#) (#25# #26# #33#
#34#) (#25# #26# #35# #36#) (#27# #28# #7# #8#) (#27# #28# #9# #10#)
(#27# #28# #11# #12#) (#27# #28# #13# #14#) (#27# #28# #15# #16#)
(#27# #28# #17# #18#) (#27# #28# #19# #20#) (#27# #28# #21# #22#)
(#27# #28# #23# #24#) (#27# #28# #25# #26#) (#27# #28# #27# #28#)
(#27# #28# #29# #30#) (#27# #28# #31# #32#) (#27# #28# #33# #34#)
(#27# #28# #35# #36#) (#29# #30# #7# #8#) (#29# #30# #9# #10#) (#29#
#30# #11# #12#) (#29# #30# #13# #14#) (#29# #30# #15# #16#) (#29# #30#
#17# #18#) (#29# #30# #19# #20#) (#29# #30# #21# #22#) (#29# #30# #23#
#24#) (#29# #30# #25# #26#) (#29# #30# #27# #28#) (#29# #30# #29#
#30#) (#29# #30# #31# #32#) (#29# #30# #33# #34#) (#29# #30# #35#
#36#) (#31# #32# #7# #8#) (#31# #32# #9# #10#) (#31# #32# #11# #12#)
(#31# #32# #13# #14#) (#31# #32# #15# #16#) (#31# #32# #17# #18#)
(#31# #32# #19# #20#) (#31# #32# #21# #22#) (#31# #32# #23# #24#)
(#31# #32# #25# #26#) (#31# #32# #27# #28#) (#31# #32# #29# #30#)
(#31# #32# #31# #32#) (#31# #32# #33# #34#) (#31# #32# #35# #36#)
(#33# #34# #7# #8#) (#33# #34# #9# #10#) (#33# #34# #11# #12#) (#33#
#34# #13# #14#) (#33# #34# #15# #16#) (#33# #34# #17# #18#) (#33# #34#
#19# #20#) (#33# #34# #21# #22#) (#33# #34# #23# #24#) (#33# #34# #25#
#26#) (#33# #34# #27# #28#) (#33# #34# #29# #30#) (#33# #34# #31#
#32#) (#33# #34# #33# #34#) (#33# #34# #35# #36#) (#35# #36# #7# #8#)
(#35# #36# #9# #10#) (#35# #36# #11# #12#) (#35# #36# #13# #14#) (#35#
#36# #15# #16#) (#35# #36# #17# #18#) (#35# #36# #19# #20#) (#35# #36#
#21# #22#) (#35# #36# #23# #24#) (#35# #36# #25# #26#) (#35# #36# #27#
#28#) (#35# #36# #29# #30#) (#35# #36# #31# #32#) (#35# #36# #33#
#34#) (#35# #36# #35# #36#))
  FLEXI-STREAMS-TEST::PATH-IN                       : "xjt_gbk_lf.txt"
  FLEXI-STREAMS-TEST::EXTERNAL-FORMAT-IN            :
#<FLEXI-STREAMS::FLEXI-GBK-FORMAT (:GBK :EOL-STYLE :LF :LITTLE-ENDIAN
T) 229B8E57>
  FLEXI-STREAMS-TEST::PATH-OUT                      : "xjt_gbk_lf.txt"
  FLEXI-STREAMS-TEST::EXTERNAL-FORMAT-OUT           :
#<FLEXI-STREAMS::FLEXI-GBK-FORMAT (:GBK :EOL-STYLE :LF :LITTLE-ENDIAN
T) 229B8E57>
  FLEXI-STREAMS-TEST::FULL-PATH-IN                  :
#P"c:/home/lisp/flexi-streams/test/xjt_gbk_lf.txt"
  FLEXI-STREAMS-TEST::FULL-PATH-OUT                 :
#P"C:/Users/edi/AppData/Local/Temp/odd-streams-test/xjt_gbk_lf.txt"
  FLEXI-STREAMS-TEST::FULL-PATH-ORIG                :
#P"c:/home/lisp/flexi-streams/test/xjt_gbk_lf.txt"
  DBG::|dolist-|                                    : (:OUTPUT :IO)
  FLEXI-STREAMS-TEST::DIRECTION-OUT                 : :OUTPUT
  DBG::|dolist-|                                    : (:INPUT :IO)
  FLEXI-STREAMS-TEST::DIRECTION-IN                  : :INPUT

Call to FLEXI-STREAMS-TEST:RUN-ALL-TESTS (offset 39)
  FLEXI-STREAMS-TEST::VERBOSE  : NIL
  FLEXI-STREAMS-TEST::SUCCESSP : T

Call to FUNCALL (offset 25)
  FUNCTION          : FLEXI-STREAMS-TEST:RUN-ALL-TESTS
  SYSTEM::ARGUMENTS : NIL

Interpreted call to (METHOD ASDF:PERFORM (ASDF:TEST-OP (EQL
(ASDF:FIND-SYSTEM (QUOTE FLEXI-STREAMS-SYSTEM::FLEXI-STREAMS))))):
  FLEXI-STREAMS-SYSTEM::O : #<ASDF:TEST-OP (:FORCE T) 229CD873>
  FLEXI-STREAMS-SYSTEM::C : #<ASDF:SYSTEM "flexi-streams" 216B1693>
  #:G3596                 : (#<Function (METHOD ASDF:PERFORM
(ASDF:TEST-OP ASDF:COMPONENT)) 2178916A> #<Function (METHOD
ASDF:PERFORM (ASDF:OPERATION ASDF:MODULE)) 2176F7B2>)
  #:G3598                 : #<ASDF:SYSTEM "flexi-streams" 216B1693>
  #:G3597                 : #<ASDF:TEST-OP (:FORCE T) 229CD873>

Block environment contour:
Tag environment contour:
Function environment contour
Variable environment contour: ()
Binding frame:
  CLOS::*NEXT-METHODS* : NIL

Call to CLOS::METHOD-COMBINATION-TEMPLATE (offset 75)

Catch frame: ((SUBFUNCTION 1 ASDF:OPERATE) . RESTART-CASE)

Catch frame: ((SUBFUNCTION 1 ASDF:OPERATE) . 2)

Catch frame: ((SUBFUNCTION 1 ASDF:OPERATE) . 1)

Call to (SUBFUNCTION 1 ASDF:OPERATE) (offset 563)
  ASDF::OP  {Closing}                       : #<ASDF:TEST-OP (:FORCE
T) 229CD873>
  ASDF:COMPONENT  {Closing}                 : #<ASDF:SYSTEM
"flexi-streams" 216B1693>
  DBG::|tail-|                              : NIL
  DBG::G                                    : ((SUBFUNCTION 1
ASDF:OPERATE) . RESTART-CASE)
  DBG::G                                    : #<Closure 2 subfunction
of (SUBFUNCTION 1 ASDF:OPERATE) 30FEAF2>
  DBG::G                                    : #<Closure 1 subfunction
of ASDF:OPERATE 30FEADA>
  CONDITIONS::*RESTART-CLUSTERS*  {Special} : ((#<RESTART ASDF:RETRY
22A82E5B> #<RESTART ASDF:ACCEPT 22A82E03>) (#<RESTART ABORT 22A82D9F>)
(#<RESTART ABORT 216B0553>))
  ASDF::STEPS  {Closed}                     : ((#1=#<ASDF:TEST-OP
(:FORCE T) 229CD873> . #<ASDF:CL-SOURCE-FILE "packages" 216B18E7>)
(#1# . #<ASDF:CL-SOURCE-FILE "mapping" 216B1A7F>) (#1# .
#<ASDF:CL-SOURCE-FILE "ascii" 216B1C7B>) (#1# . #<ASDF:CL-SOURCE-FILE
"koi8-r" 216B1E9B>) (#1# . #<ASDF:CL-SOURCE-FILE "iso-8859" 216B20DF>)
(#1# . #<ASDF:CL-SOURCE-FILE "enc-cn-tbl" 216B2347>) (#1# .
#<ASDF:CL-SOURCE-FILE "code-pages" 216B25D3>) (#1# .
#<ASDF:CL-SOURCE-FILE "specials" 216B2883>) (#1# .
#<ASDF:CL-SOURCE-FILE "util" 216B2B57>) (#1# . #<ASDF:CL-SOURCE-FILE
"conditions" 216B2E4F>) (#1# . #<ASDF:CL-SOURCE-FILE "external-format"
216B316B>) (#1# . #<ASDF:CL-SOURCE-FILE "length" 216B34AB>) (#1# .
#<ASDF:CL-SOURCE-FILE "encode" 216B380F>) (#1# . #<ASDF:CL-SOURCE-FILE
"decode" 216B3B97>) (#1# . #<ASDF:CL-SOURCE-FILE "in-memory"
216B3F43>) (#1# . #<ASDF:CL-SOURCE-FILE "stream" 216B4313>) (#1# .
#<ASDF:CL-SOURCE-FILE "lw-char-stream" 216B4707>) (#1# .
#<ASDF:CL-SOURCE-FILE "output" 216B4B1F>) (#1# . #<ASDF:CL-SOURCE-FILE
"input" 216B4F5B>) (#1# . #<ASDF:CL-SOURCE-FILE "io" 216B53BB>) (#1# .
#<ASDF:CL-SOURCE-FILE "strings" 216B583F>) (#1# . #<ASDF:SYSTEM
"flexi-streams" 216B1693>))

Binding frame:
  COMPILER::*INSIDE-COMPILATION-UNIT* : NIL

Binding frame:
  COMPILER::*UNKNOWN-FUNCTIONS* : NIL

Call to COMPILER::DO-COMPILATION-UNIT (offset 80)
  COMPILER::CONTINUATION : #<Closure 1 subfunction of ASDF:OPERATE 229C9B22>
  COMPILER::DO-MESSAGES  : T
  COMPILER::SUMMARIZE    : NIL

Binding frame:
  COMPILER::*COMPILATION-UNIT-PATHNAMES* : NIL

Binding frame:
  COMPILER::*INITIAL-COMPILATION-ENVIRONMENT* : NIL

Call to COMPILER::WITH-COMPILATION-UNIT-INTERNAL (offset 143)
  COMPILER::CONTINUATION : #<Closure 1 subfunction of ASDF:OPERATE 229C9B22>
  COMPILER::OVERRIDE     : NIL
  COMPILER::SUMMARIZE    : NIL
  COMPILER::ENVIRONMENT  : NIL

Binding frame:
  ASDF::*VERBOSE-OUT* : NIL

Call to ASDF:OPERATE (offset 287)
  ASDF::OPERATION-CLASS          : ASDF:TEST-OP
  ASDF:SYSTEM                    : "flexi-streams"
  ASDF::ARGS                     : (:FORCE T)
  ASDF::VERBOSE                  : T
  ASDF:VERSION                   : NIL
  ASDF::OP                       : #<ASDF:TEST-OP (:FORCE T) 229CD873>
  ASDF::*VERBOSE-OUT*  {Special} : #<EDITOR::EDITOR-OUTPUT-STREAM
#<EDITOR:BUFFER Background Output> 21F19ADF>
  ASDF:SYSTEM                    : #<ASDF:SYSTEM "flexi-streams" 216B1693>
  ASDF::STEPS  {Closing}         : ((#1=#<ASDF:TEST-OP (:FORCE T)
229CD873> . #<ASDF:CL-SOURCE-FILE "packages" 216B18E7>) (#1# .
#<ASDF:CL-SOURCE-FILE "mapping" 216B1A7F>) (#1# .
#<ASDF:CL-SOURCE-FILE "ascii" 216B1C7B>) (#1# . #<ASDF:CL-SOURCE-FILE
"koi8-r" 216B1E9B>) (#1# . #<ASDF:CL-SOURCE-FILE "iso-8859" 216B20DF>)
(#1# . #<ASDF:CL-SOURCE-FILE "enc-cn-tbl" 216B2347>) (#1# .
#<ASDF:CL-SOURCE-FILE "code-pages" 216B25D3>) (#1# .
#<ASDF:CL-SOURCE-FILE "specials" 216B2883>) (#1# .
#<ASDF:CL-SOURCE-FILE "util" 216B2B57>) (#1# . #<ASDF:CL-SOURCE-FILE
"conditions" 216B2E4F>) (#1# . #<ASDF:CL-SOURCE-FILE "external-format"
216B316B>) (#1# . #<ASDF:CL-SOURCE-FILE "length" 216B34AB>) (#1# .
#<ASDF:CL-SOURCE-FILE "encode" 216B380F>) (#1# . #<ASDF:CL-SOURCE-FILE
"decode" 216B3B97>) (#1# . #<ASDF:CL-SOURCE-FILE "in-memory"
216B3F43>) (#1# . #<ASDF:CL-SOURCE-FILE "stream" 216B4313>) (#1# .
#<ASDF:CL-SOURCE-FILE "lw-char-stream" 216B4707>) (#1# .
#<ASDF:CL-SOURCE-FILE "output" 216B4B1F>) (#1# . #<ASDF:CL-SOURCE-FILE
"input" 216B4F5B>) (#1# . #<ASDF:CL-SOURCE-FILE "io" 216B53BB>) (#1# .
#<ASDF:CL-SOURCE-FILE "strings" 216B583F>) (#1# . #<ASDF:SYSTEM
"flexi-streams" 216B1693>))

Catch frame: CAPI::ABORT-CALLBACK-CATCH

Binding frame:
  CAPI::*TOP-LEVEL-INTERFACE* : NIL

Call to (METHOD EDITOR::IN-APPLY-WITH-CURRENT-CONTACT-WINDOW
(CAPI:EDITOR-PANE T T)) (offset 53)
  CAPI::PANE : #<CAPI:COLLECTOR-PANE
LISPWORKS-TOOLS::BACKGROUND-OUTPUT-PANE  21F2CC83>
  FUNCTION   : #<Closure CAPI::WITH-RANDOM-TYPEOUT-FUNC subfunction of
CAPI::FUNCALL-BACKGROUND-JOB-WITH-TYPEOUT-AUX 229B1692>
  CAPI::ARGS : (#<EDITOR::EDITOR-OUTPUT-STREAM #<EDITOR:BUFFER
Background Output> 21F2BF7B>)

Binding frame:
  EDITOR::*CURRENT-CONTACT-WINDOW* : NIL

Call to EDITOR::APPLY-WITH-CURRENT-CONTACT-WINDOW (offset 57)
  EDITOR::WINDOW : #<EDITOR::WM-WINDOW "Background Output" 216B68AF>
  FUNCTION       : #<Closure CAPI::WITH-RANDOM-TYPEOUT-FUNC
subfunction of CAPI::FUNCALL-BACKGROUND-JOB-WITH-TYPEOUT-AUX 229B1692>
  EDITOR::ARGS   : (#<EDITOR::EDITOR-OUTPUT-STREAM #<EDITOR:BUFFER
Background Output> 21F2BF7B>)

Catch frame: #<Unbound Marker>

Call to CAPI::INTERNAL-DO-WITH-RANDOM-TYPEOUT (offset 101)
  CAPI::FUNC           : #<Closure CAPI::WITH-RANDOM-TYPEOUT-FUNC
subfunction of CAPI::FUNCALL-BACKGROUND-JOB-WITH-TYPEOUT-AUX 229B1692>
  STREAM               : #<EDITOR::EDITOR-OUTPUT-STREAM
#<EDITOR:BUFFER Background Output> 21F2BF7B>
  CAPI::PANE           : #<CAPI:LISTENER-PANE CAPI:EDITOR-PANE  21F24E2F>
  CAPI:COLLECTOR-PANE  : #<CAPI:COLLECTOR-PANE
LISPWORKS-TOOLS::BACKGROUND-OUTPUT-PANE  21F2CC83>
  CAPI::ALREADY-MAPPED : NIL

Binding frame:
  *QUERY-IO* : #<Synonym stream to *TERMINAL-IO*>

Binding frame:
  *STANDARD-INPUT* : #<Synonym stream to *TERMINAL-IO*>

Binding frame:
  *TRACE-OUTPUT* : #<Synonym stream to *TERMINAL-IO*>

Binding frame:
  *ERROR-OUTPUT* : #<Synonym stream to *TERMINAL-IO*>

Binding frame:
  *STANDARD-OUTPUT* : #<Synonym stream to *TERMINAL-IO*>

Catch frame: #:|progv-cathcer49881|

Call to CAPI::BIND-STANDARD-STREAMS-AND-EXECUTE (offset 227)
  STREAM          : #<EDITOR::EDITOR-OUTPUT-STREAM #<EDITOR:BUFFER
Background Output> 21F2BF7B>
  CAPI::FUNC-ARGS : (CAPI::INTERNAL-DO-WITH-RANDOM-TYPEOUT #<Closure
CAPI::WITH-RANDOM-TYPEOUT-FUNC subfunction of
CAPI::FUNCALL-BACKGROUND-JOB-WITH-TYPEOUT-AUX 229B1692>
#<EDITOR::EDITOR-OUTPUT-STREAM #<EDITOR:BUFFER Background Output>
21F2BF7B> #<CAPI:LISTENER-PANE CAPI:EDITOR-PANE  21F24E2F>
#<CAPI:COLLECTOR-PANE LISPWORKS-TOOLS::BACKGROUND-OUTPUT-PANE
21F2CC83> NIL)

Catch frame: (MP::BACKGROUND-EXECUTE-LOOP . RESTART-CASE)

Catch frame: (MP::BACKGROUND-EXECUTE-LOOP . 1)

Catch frame: MP::ABORT-JOB

Catch frame: #<Unbound Marker>

Binding frame:
  *PACKAGE* : #<The COMMON-LISP-USER package, 32/64 internal, 0/4 external>

Call to MP::BACKGROUND-EXECUTE-LOOP (offset 751)

Catch frame: MP::PROCESS-TAG

Catch frame: (MP::PROCESS-SG-FUNCTION . 1)

Catch frame: (MP::PROCESS-SG-FUNCTION . 1)

Binding frame:
  MP:*CURRENT-PROCESS* : NIL

Binding frame:
  MP::*ACTIONS-AFTER-SLEEPING* : NIL

Binding frame:
  MP::*ACTIONS-BEFORE-SLEEPING* : NIL

Binding frame:
  SYSTEM::*READER-STATE* : #<SYSTEM::READER-STATE In 0 out 0 2177015F>

Binding frame:
  *PACKAGE* : #<The COMMON-LISP-USER package, 32/64 internal, 0/4 external>

Binding frame:
  WIN32::*PROCESS-DC* : NIL

Binding frame:
  WIN32::*DDE-THREAD-INSTANCE* : NIL

Binding frame:
  EDITOR::*CURRENT-BUFFER* : NIL

Binding frame:
  EDITOR::*CURRENT-WINDOW* : NIL

Binding frame:
  EDITOR::*EDITOR-STATE* : NIL

Binding frame:
  EDITOR::*EDITOR-INPUT-STYLE* : #S(EDITOR:EDITOR-INPUT-STYLE
:KEY-BINDINGS #<EDITOR::KEY-TABLE #<EQUALP Hash Table{344} 2066CBAB> 2
342> :DELETE-SELECTION-MODE NIL :LOGICAL-CHARACTERS #<EQUALP Hash
Table{22} 2063A23B> :EXECUTE-MODE #<EDITOR::MODE-OBJECT "Execute"
2070A86B> :ECHO-MODE #<EDITOR::MODE-OBJECT "Echo Area" 2070ACCF>
:PLIST NIL :INTERRUPT-KEYS (#S(SYSTEM::GESTURE-SPEC :DATA 103
:MODIFIERS 2) #S(SYSTEM::GESTURE-SPEC :DATA 71 :MODIFIERS 2)) :STYLE
:EMACS :POINT-ALWAYS-VISIBLE T :USE-FACE-TO-FULL-WIDTH-P T)

Binding frame:
  CAPI::*USE-ACCELERATORS* : T

Binding frame:
  CAPI-WIN32-LIB::*ALT-IS-META-KEY* : T

Catch frame: #:|progv-cathcer236969|

Call to MP::PROCESS-SG-FUNCTION (offset 509)
  MP::STACK-ARG : 0
  MP::SYMBOLS   : NIL
  VALUES        : NIL

Call to SYSTEM::%%FIRST-CALL-TO-STACK (offset 40)


SYSTEM::%%FIRST-CALL-TO-STACK

 Generation 0:  Total Size 1781K, Allocated 331K, Free 1441K
          Segment 2008DB80: Total Size 507K, Allocated 201K, Free 302K
                    minimum free space 64K,
                      Awaiting promotion = 0K, sweeps before promotion =10
          Segment 22A11B70: Total Size 1273K, Allocated 129K, Free 1139K
                    minimum free space 0K,
                      Awaiting promotion = 40K, sweeps before promotion =2
 Generation 1:  Total Size 11445K, Allocated 10747K, Free 677K
          Segment 21941B70: Total Size 2112K, Allocated 2065K, Free 42K
                    minimum free space 0K,
                      Awaiting promotion = 649K, sweeps before promotion =4
          Segment 22251B70: Total Size 7936K, Allocated 7513K, Free 418K
                    minimum free space 0K,
                      Awaiting promotion = 0K, sweeps before promotion =4
          Segment 2070CB18: Total Size 68K, Allocated 48K, Free 15K
                    minimum free space 3K,
                      Awaiting promotion = 31K, sweeps before promotion =4
          Segment 21621B70: Total Size 1088K, Allocated 998K, Free 85K
                    minimum free space 0K,
                      Awaiting promotion = 591K, sweeps before promotion =4
          Segment 200517E0: Total Size 240K, Allocated 121K, Free 115K
                    minimum free space 0K, static
 Generation 2:  Total Size 9348K, Allocated 5757K, Free 3578K
          Segment 21B51B70: Total Size 7168K, Allocated 3585K, Free 3578K
                    minimum free space 0K,
                      Awaiting promotion = 0K, sweeps before promotion =4
          Segment 21731B70: Total Size 2112K, Allocated 2107K, Free 0K
                    minimum free space 0K,
                      Awaiting promotion = 0K, sweeps before promotion =4
          Segment 20E6CB18: Total Size 68K, Allocated 64K, Free 0K
                    minimum free space 117K,
                      Awaiting promotion = 0K, sweeps before promotion =4
 Generation 3:  Total Size 21451K, Allocated 21311K, Free 128K
          Segment 2071DB90: Total Size 7483K, Allocated 7479K, Free 0K
                    minimum free space 0K,
                      Awaiting promotion = 0K, sweeps before promotion =10
          Segment 20E7DB90: Total Size 7823K, Allocated 7691K, Free 128K
                    minimum free space 0K,
                      Awaiting promotion = 0K, sweeps before promotion =10
          Segment 2010CB18: Total Size 6144K, Allocated 6139K, Free 0K
                    minimum free space 3K,
                      Awaiting promotion = 0K, sweeps before promotion =10

Total Size 44352K, Allocated 38147K, Free 5825K


2010/2/5 Edi Weitz <edi< at >agharta.de>:

_______________________________________________
flexi-streams-devel mailing list
flexi-streams-devel< at >common-lisp.net
http://common-lisp.net/cgi-bin/mailman/listinfo/flexi-streams-devel

Re: Flexi Streams fails to compile and install on MacPorts ECL

Edi Weitz — 2011-03-03T07:25:29

Maybe Xu Jingtao was right and that was the patch you needed.  In that
case, could you please confirm that this patch is needed for ECL as
well and if the tests pass?  Otherwise, please send a full backtrace.

Thanks,
Edi.


On Tue, Mar 1, 2011 at 11:12 PM, Andrew Pennebaker
<andrew.pennebaker< at >gmail.com> wrote:

Re: Flexi Streams fails to compile and install onMacPorts ECL

Edi Weitz — 2011-03-03T07:23:41

Thanks, I've applied this patch to the BKNR repository.  Does CMUCL
pass all tests after this change?

(I don't think this is the OP's problem, though.)

Re: Flexi Streams fails to compile and install onMacPorts ECL

Xu Jingtao — 2011-03-02T01:40:23

I redefined the type char-code-integer in mapping.lisp under cmucl.
this idea is from here: http://comments.gmane.org/gmane.lisp.cmucl.general/6316
=============================================================================
(deftype char-code-integer ()
  "The subtype of integers which can be returned by the function CHAR-CODE."
  #-:cmu '(integer 0 #.(1- char-code-limit))
  #+:cmu '(integer 0 65533))
=============================================================================
Maybe you could try to redefine it under ecl.

>

Flexi Streams fails to compile and install onMacPorts ECL

Andrew Pennebaker — 2011-03-01T22:12:50

Specs:

flexi-streams 1.0.7
Quicklisp 2010121400
ECL 11.1.1
MacPorts 1.9.2
Mac OS X 10.6.6
MacBook Pro 5,1

Trace:


...

;;;   Invoking external command:
;;;   /usr/bin/gcc-4.2 -o
/Users/andrew/.cache/common-lisp/ecl-11.1.1-macosx-x86/Users/andrew/quicklisp/dists/quicklisp/software/flexi-streams-1.0.7/mapping.fas
-L/Users/andrew/macports/lib/
/private/var/folders/N-/N-IxaaKuFae5ik1WKxV6wE+++TI/-Tmp-/eclinit87rR0W.o
/Users/andrew/.cache/common-lisp/ecl-11.1.1-macosx-x86/Users/andrew/quicklisp/dists/quicklisp/software/flexi-streams-1.0.7/mapping.o
-bundle -L/Users/andrew/macports/lib -arch x86_64
-L/Users/andrew/macports/lib -arch x86_64 -lecl -lm
In function COERCE, the value of variable is
        65533
which is not of expected type (INTEGER -128 127)

Available restarts:

1. (ABORT) ABORT
2. (TRY-RECOMPILING) Try recompiling ascii
3. (RETRY) Retry compiling component ("flexi-streams" "ascii").
4. (ACCEPT) Continue, treating compiling component ("flexi-streams" "ascii")
as having been successful.
5. (ABORT) Give up on "hunchentoot"
6. (RESTART-TOPLEVEL) Go back to Top-Level REPL.

Broken at SI:BYTECODES. [Evaluation of: (QUICKLISP-CLIENT:QUICKLOAD
"hunchentoot")]

Cheers,
Andrew Pennebaker
_______________________________________________
flexi-streams-devel mailing list
flexi-streams-devel< at >common-lisp.net
http://common-lisp.net/cgi-bin/mailman/listinfo/flexi-streams-devel

gbk patch of flexi-streams.

jingtao xu — 2011-02-21T11:31:04

hi all

i have published my gbk(cp936,gb2312) encoding support for flexi-streams.
this patch passed all tests and use the best fit mapping table.
flexi-streams-devel< at >common-lisp.net

the git reposity url: https://github.com/jingtaozf/flexi-streams

Could weitz apply this patch to his official site?

With Best Regards.

jingtao.
_______________________________________________
flexi-streams-devel mailing list
flexi-streams-devel< at >common-lisp.net
http://common-lisp.net/cgi-bin/mailman/listinfo/flexi-streams-devel

gbk patch to flexi-streams.

Xu Jingtao — 2011-02-21T10:33:13

hi all:
I have put one patch of flexi-streams to github:
This patch has passed all tests and use the new encoding map table.
https://github.com/jingtaozf/flexi-streams

Re: UNREAD-BYTE and PEEK-BYTE onIN-MEMORY-INPUT-STREAM

Edi Weitz — 2010-12-12T01:16:47

Hi Daniel,

As the documentation says, you can use in-memory streams as the
underlying streams for flexi streams.  If you do that, you'll have the
operations you wanted.

HTH,
Edi.


On Sat, Dec 11, 2010 at 7:48 PM, Daniel Oliveira <psykon< at >gmail.com> wrote:

UNREAD-BYTE and PEEK-BYTE onIN-MEMORY-INPUT-STREAM

Daniel Oliveira — 2010-12-11T18:48:39

Hello, i'm using FLEXI-STREAMS and i have a problem, UNREAD-BYTE and
PEEK-BYTE aren't defined for IN-MEMORY-INPUT-STREAM's, is there a reason why
they can't be or why it doesn't make sense for them to be?
_______________________________________________
flexi-streams-devel mailing list
flexi-streams-devel< at >common-lisp.net
http://common-lisp.net/cgi-bin/mailman/listinfo/flexi-streams-devel

Re: a patch for chineses's cp936(gbk)encoding support.

Edi Weitz — 2010-02-05T15:58:03

Thanks, I'll take a look at this when I'm less busy than now.

Again, please use the mailing list for patches and questions - see Cc.

Thanks,
Edi.


On Fri, Feb 5, 2010 at 11:31 AM, jingtaozf <jingtaozf< at >gmail.com> wrote:

_______________________________________________
flexi-streams-devel mailing list
flexi-streams-devel< at >common-lisp.net
http://common-lisp.net/cgi-bin/mailman/listinfo/flexi-streams-devel

Re: Flexi-streams problem with SBCL 1.0.34

Edi Weitz — 2010-01-07T23:17:00

Yeah, flexi-streams might returned vectors with fill pointers.  But it
doesn't claim otherwise.  Looks like this is a bug on the side of the
caller.

Cheers,
Edi.

On Thu, Jan 7, 2010 at 11:42 PM, Fred Gibson <fred< at >streamfocus.com> wrote:

Re: Flexi-streams problem with SBCL 1.0.34

Fred Gibson — 2010-01-07T22:42:44

It looks like the problem is with the resultant data type although the
printed representation is identical in both results:

ZS3> (flexi-streams:STRING-TO-OCTETS "XXiXWAxW93c" :EXTERNAL-FORMAT :UTF-8)
#(88 88 105 88 87 65 120 87 57 51 99)
ZS3> (describe *)
#(88 88 105 88 87 65 120 87 57 51 99)
  [specialized vector]

Element-type: (UNSIGNED-BYTE 8)
Fill-pointer: 11
Size: 15
Adjustable: yes
Displaced-to: NIL
Displaced-offset: 0
Storage vector: #<(SIMPLE-ARRAY (UNSIGNED-BYTE 8) (15)) {D0760BF}>
; No value
ZS3> (acl-compat.excl:string-to-octets "XXiXWAxW93c" :EXTERNAL-FORMAT :UTF-8)
  0: (SB-EXT:STRING-TO-OCTETS "XXiXWAxW93c" :EXTERNAL-FORMAT :UTF-8)
  0: SB-EXT:STRING-TO-OCTETS returned #(88 88 105 88 87 65 120 87 57 51 99)
#(88 88 105 88 87 65 120 87 57 51 99)
ZS3> (describe *)
#(88 88 105 88 87 65 120 87 57 51 99)
  [simple specialized vector]

Element-type: (UNSIGNED-BYTE 8)
Length: 11
; No value

I'm not sure which type is right, only that the acl-compat type is
what's needed for ironclad and zs3 to run.

On Thu, Jan 7, 2010 at 1:28 PM, Edi Weitz <edi< at >agharta.de> wrote:

Re: Flexi-streams problem with SBCL 1.0.34

Edi Weitz — 2010-01-07T21:28:44

I'm not familiar with ironclad or zs3.  Could you maybe send a full
backtrace and a simple way to reproduce the problem?

Thanks,
Edi.


On Thu, Jan 7, 2010 at 9:29 PM, Fred Gibson <fred< at >streamfocus.com> wrote:

Flexi-streams problem with SBCL 1.0.34

Fred Gibson — 2010-01-07T20:29:00

I found a problem with the flexi-streams:string-to-octets function.  I
was getting the following back-trace when using it:

(ironclad:make-hmac (string-octets key) :sha1)  from zs3:make-digester gives:

The value #(55 98 50 52 104 75 97 65 50 54 ...)
is not of type
 (SIMPLE-ARRAY (UNSIGNED-BYTE 8) (*)).
 [Condition of type TYPE-ERROR]

Restarts:
 0: [DEFAULT-DEBUGGER] Use default debugger.
 1: [ABORT] Return to SLIME's top level.
 2: [TERMINATE-THREAD] Terminate this thread (#<THREAD "repl-thread"
RUNNING {ACA40D1}>)

Backtrace:
 0: ((SB-PCL::FAST-METHOD SHARED-INITIALIZE :AFTER (IRONCLAD::HMAC
T)) #<unavailable argument> #<unavail..
    Locals:
      SB-DEBUG::ARG-0 = 10
      SB-DEBUG::ARG-1 = :<NOT-AVAILABLE>
      SB-DEBUG::ARG-2 = :<NOT-AVAILABLE>
      SB-DEBUG::ARG-3 = #<HMAC(SHA1) {F0DD561}>
      SB-DEBUG::ARG-4 = :<NOT-AVAILABLE>
 1: ((LAMBDA (SB-PCL::|.P0.| SB-PCL::|.P1.| SB-PCL::|.P2.|))
#<unavailable argument> #<unavailable argum..
    Locals:
      SB-DEBUG::ARG-0 = :<NOT-AVAILABLE>
      SB-DEBUG::ARG-1 = :<NOT-AVAILABLE>
      SB-DEBUG::ARG-2 = :<NOT-AVAILABLE>

zs3's string-octets uses flexi-streams:string-to-octets

The workaround I'm using for now is instead going to acl-compat's
string-to-octets function from acl-excl.lisp:

(defun string-to-octets (string &key (null-terminate t) (start 0)
                       end mb-vector make-mb-vector?
                       (external-format :default))
 "This function returns a lisp-usb8-vector and the number of bytes copied."
 (declare (ignore external-format))
 ;; The end parameter is different in ACL's lambda list, but this
 ;; variant lets us give an argument :end nil explicitly, and the
 ;; right thing will happen
 (unless end (setf end (length string)))
 (let* ((number-of-octets (if null-terminate (1+ (- end start))
                             (- end start)))
       (mb-vector (cond
                    ((and mb-vector (>= (length mb-vector) number-of-octets))
                     mb-vector)
                    ((or (not mb-vector) make-mb-vector?)
                     (make-array (list number-of-octets)
                                 :element-type '(unsigned-byte 8)
                                 :initial-element 0))
                    (t (error "Was given a vector of length ~A, ~
                               but needed at least length ~A."
                              (length mb-vector) number-of-octets)))))
  (declare (type (simple-array (unsigned-byte 8) (*)) mb-vector))
  (loop for from-index from start below end
     for to-index upfrom 0
     do (progn
          (setf (aref mb-vector to-index)
                (char-code (aref string from-index)))))
  (when null-terminate
    (setf (aref mb-vector (1- number-of-octets)) 0))
  (values mb-vector number-of-octets)))

which seems to work fine.

My best,

Fred Gibson

Founder / Software Developer
http://www.streamfocus.com

(c)2010 Organon Technologies LLC

Re: a patch for chineses's cp936(gbk)encoding support.

Edi Weitz — 2009-10-29T15:08:36

[I've put the mailing list on Cc where I think we should continue this.]

First of all, I'd be happy to include this into the flexi-streams
distribution.  There are a couple of issues with the patch, though.
What I saw from briefly looking at it:

1. There are several new functions and macros which don't have a
documentation string.

2. There are tabs in the files and sometimes the indentation seems wrong.

3. There are parts of the code which are commented out.  If they
aren't used, they shouldn't be in there.

4. There's at least one file (seems like a variant of the ASDF system
definition) which shouldn't be in there at all.

5. The link in the HTML documentation is wrong.

6. Isn't get-multibyte-mapper the wrong name?  You don't get the mapper, do you?

7. And the function itself looks like Scheme to me.  I think it'd be
easier to understand using normal iteration.

8. I don't understand why the encoding factor is 1.5.  Is the comment
correct or just copied?

9. I'm not familiar with CP936.  Is it correct that there's only a
big-endian version?

10. One of the new files contains DOS line endings.

There's probably more.

If you could go over these and send a cleaned-up version of the patch,
I'll review it.  FWIW, here are some guidelines:

  http://weitz.de/patches.html

Thanks,
Edi.

gmane.lisp.flexi-streams.devel

Re: *substitution-char* does not suppressexternal-format-encoding-error

Re: *substitution-char* does not suppressexternal-format-encoding-error

Re: *substitution-char* does not suppressexternal-format-encoding-error

*substitution-char* does not suppressexternal-format-encoding-error

unit test failure on sbcl

My open source libraries (aka "ediware")

Re: a patch for chineses's cp936(gbk)encoding support.

Re: Flexi Streams fails to compile and install on MacPorts ECL

Re: Flexi Streams fails to compile and install onMacPorts ECL

Re: Flexi Streams fails to compile and install onMacPorts ECL

Flexi Streams fails to compile and install onMacPorts ECL

gbk patch of flexi-streams.

gbk patch to flexi-streams.

Re: UNREAD-BYTE and PEEK-BYTE onIN-MEMORY-INPUT-STREAM

UNREAD-BYTE and PEEK-BYTE onIN-MEMORY-INPUT-STREAM

Re: a patch for chineses's cp936(gbk)encoding support.

Re: Flexi-streams problem with SBCL 1.0.34

Re: Flexi-streams problem with SBCL 1.0.34

Re: Flexi-streams problem with SBCL 1.0.34

Flexi-streams problem with SBCL 1.0.34

Re: a patch for chineses's cp936(gbk)encoding support.

Re: substitution-char does not suppressexternal-format-encoding-error

Re: substitution-char does not suppressexternal-format-encoding-error

Re: substitution-char does not suppressexternal-format-encoding-error

substitution-char does not suppressexternal-format-encoding-error