[Ecls-list] Reading binary file

[jjkola at email.com]

Hello!

I tried reading binary file with element-type set to '(unsigned-byte 8). Problem was that read-sequence started to complain that the stream isn't character stream. I used imago from common-lisp.net to read a image file. Here is some information about incident:

#<input stream test.png> is not a character stream
Broken at READ-SEQUENCE.
>> :bds
BDS[0]: *DEBUGGER-HOOK* = NIL
    FRS[1]: ---> IHS[2],BDS[0]
BDS[1]: *DEBUGGER-HOOK* = #<compiled-function 00d7fd68>
BDS[2]: + = NIL
BDS[3]: ++ = NIL
BDS[4]: +++ = NIL
BDS[5]: - = NIL
BDS[6]: * = NIL
BDS[7]: ** = NIL
BDS[8]: *** = NIL
BDS[9]: / = NIL
BDS[10]: // = NIL
BDS[11]: /// = NIL
BDS[12]: SI:*BREAK-ENABLE* = T
BDS[13]: SI::*TPL-LEVEL* = -1
BDS[14]: SI::*TPL-COMMANDS* = (("Top level commands" # # # ...)
                               ("Help commands" # # #))
BDS[15]: SI::*TPL-PROMPT-HOOK* = NIL
BDS[16]: SI::*IHS-BASE* = 0
BDS[17]: SI::*IHS-TOP* = 0
BDS[18]: SI::*IHS-CURRENT* = 0
BDS[19]: SI::*FRS-BASE* = 0
BDS[20]: SI::*FRS-TOP* = 0
BDS[21]: *READ-SUPPRESS* = NIL
BDS[22]: SI::*QUIT-TAGS* = NIL
BDS[23]: SI::*QUIT-TAG* = (NIL)
BDS[24]: SI::*TPL-LEVEL* = -1
    FRS[2]: ---> IHS[2],BDS[24]
BDS[25]: *PACKAGE* = #<"COMMON-LISP-USER" package>
BDS[26]: *READTABLE* = #<readtable 00a91db0>
BDS[27]: *LOAD-PATHNAME* = NIL
BDS[28]: *LOAD-TRUENAME* = NIL
    FRS[3]: ---> IHS[4],BDS[28]
    FRS[4]: ---> IHS[4],BDS[28]
    FRS[5]: ---> IHS[5],BDS[28]
    FRS[6]: ---> IHS[6],BDS[28]
    FRS[7]: ---> IHS[7],BDS[28]
    FRS[8]: ---> IHS[7],BDS[28]
    FRS[9]: ---> IHS[8],BDS[28]
    FRS[10]: ---> IHS[9],BDS[28]
BDS[29]: *STANDARD-INPUT* = #<synonym stream to *TERMINAL-IO*>
BDS[30]: *STANDARD-OUTPUT* = #<synonym stream to *TERMINAL-IO*>
BDS[31]: *PRINT-PRETTY* = T
BDS[32]: *PRINT-CIRCLE* = NIL
BDS[33]: *READTABLE* = #<readtable 00a91db0>
BDS[34]: SI::*BREAK-MESSAGE* = NIL
BDS[35]: SI::*BREAK-LEVEL* = 0
BDS[36]: SI::*BREAK-ENV* = NIL
BDS[37]: SI::*TPL-COMMANDS* = (("Top level commands" # # # ...)
                               ("Help commands" # # #))
BDS[38]: SI::*TPL-PROMPT-HOOK* = NIL
BDS[39]: SI::*IHS-BASE* = 0
BDS[40]: SI::*IHS-TOP* = 2
BDS[41]: SI::*IHS-CURRENT* = 1
BDS[42]: SI::*FRS-BASE* = 0
BDS[43]: SI::*FRS-TOP* = 1
BDS[44]: *READ-SUPPRESS* = NIL
BDS[45]: SI::*QUIT-TAGS* = ((NIL))
BDS[46]: SI::*QUIT-TAG* = ((NIL))
BDS[47]: SI::*TPL-LEVEL* = 0
>> :b
Backtrace: READ-SEQUENCE > imago::read-byte-array > imago::read-png-signature >
read-png > read-image > load-image > load > eval

> *features*
(:MINGW32 :IEEE-FLOATING-POINT :DFFI :CLOS-STREAMS :CMU-FORMAT :MINGW32 :DLOPEN
 :CLOS :BOEHM-GC :ANSI-CL :COMMON-LISP :ECL :COMMON :ATHLON :FFI)

When I tried same commands in other lisp environments, they worked without a hitch.

Regards,

Jyrki Jaakkola