Re: Bits from a stream

"Alan Manuel K. Gloria" <almkglor@xxxxxxxxx> writes:

Otherwise, your READ-BIT function is wrong. You've not proved it,
it's clear, but did you even try it?
That's weird. I've tried it. It seems to work....


All right, my fault, I expected something else.
Indeed, your routine works.

[323]> (with-open-file (out "/tmp/bits" :direction :output
:element-type '(unsigned-byte 8))
(write-sequence '(#xf0 #xaa #xc0) out))
(240 170 192)
[324]> (with-open-file (in "/tmp/bits" :element-type '(unsigned-byte 8))
(loop repeat 24 do (princ (read-bit in))))
000011110101010100000011
NIL

I was expecting: 111100001010101011000000
(Most significant bits in the bytes first).


--
__Pascal Bourguignon__ http://www.informatimago.com/
-----BEGIN GEEK CODE BLOCK-----
Version: 3.12
GCS d? s++:++ a+ C+++ UL++++ P--- L+++ E+++ W++ N+++ o-- K- w---
O- M++ V PS PE++ Y++ PGP t+ 5+ X++ R !tv b+++ DI++++ D++
G e+++ h+ r-- z?
------END GEEK CODE BLOCK------
.