[ clisp-Bugs-422022 ] (signed-byte n) streams (n>8, n!=8k)

[<no...@so...>]

Bugs item #422022, was updated on 2001-05-07 07:45
You can respond by visiting: 
http://sourceforge.net/tracker/?func=detail&atid=101355&aid=422022&group_id=1355

Category: clisp
Group: lisp error
Status: Open
Resolution: None
Priority: 5
Submitted By: Sam Steingold (sds)
Assigned to: Sam Steingold (sds)
Summary: (signed-byte n) streams (n>8, n!=8k)

Initial Comment:
(defun bin-stream-test (&key (size (1+ (integer-length
most-positive-fixnum)))
                        (type 'signed-byte) (file-name
"/tmp/foocl")
                        (bytes '(17 -17 4517 -1217)))
  (with-open-file (foo file-name :direction :output
                       :element-type (list type size))
    (dolist (byte bytes)
      (write-byte byte foo)))
  (unwind-protect
       (with-open-file (foo file-name :direction :input
                            :element-type (list type size))
         (list* (stream-element-type foo) (file-length foo)
               (loop for byte in bytes for nb =
(read-byte foo) collect nb
                     unless (= nb byte)
                     do (warn "[(~s ~s)] ~s != ~s" type
size byte nb))))
    (delete-file file-name)))

 (loop for i from 20 to 40 collect (bin-stream-test
:size i))
 
WARNING:
[(SIGNED-BYTE 20)] -17 != 65519
WARNING:
[(SIGNED-BYTE 20)] -1217 != 64319
WARNING:
[(SIGNED-BYTE 21)] 4517 != -61019
WARNING:
[(SIGNED-BYTE 22)] -1217 != 64319
WARNING:
[(SIGNED-BYTE 25)] -17 != 16777199
WARNING:
[(SIGNED-BYTE 25)] -1217 != 16775999
WARNING:
[(SIGNED-BYTE 26)] -17 != 16777199
WARNING:
[(SIGNED-BYTE 26)] -1217 != 16775999
WARNING:
[(SIGNED-BYTE 27)] -17 != 16777199
WARNING:
[(SIGNED-BYTE 27)] -1217 != 16775999
WARNING:
[(SIGNED-BYTE 28)] -17 != 16777199
WARNING:
[(SIGNED-BYTE 28)] -1217 != 16775999
WARNING:
[(SIGNED-BYTE 29)] 4517 != -16772699
WARNING:
[(SIGNED-BYTE 30)] -1217 != 16775999
WARNING:
[(SIGNED-BYTE 33)] -17 != 4294967279
WARNING:
[(SIGNED-BYTE 33)] -1217 != 4294966079
WARNING:
[(SIGNED-BYTE 34)] -17 != 4294967279
WARNING:
[(SIGNED-BYTE 34)] -1217 != 4294966079
WARNING:
[(SIGNED-BYTE 35)] -17 != 4294967279
WARNING:
[(SIGNED-BYTE 35)] -1217 != 4294966079
WARNING:
[(SIGNED-BYTE 36)] -17 != 4294967279
WARNING:
[(SIGNED-BYTE 36)] -1217 != 4294966079
WARNING:
[(SIGNED-BYTE 37)] 4517 != -4294962779
WARNING:
[(SIGNED-BYTE 38)] -1217 != 4294966079
(((SIGNED-BYTE 20) 4 17 65519 4517 64319)
 ((SIGNED-BYTE 21) 4 17 -17 -61019 -1217)
 ((SIGNED-BYTE 22) 4 17 -17 4517 64319)
 ((SIGNED-BYTE 23) 4 17 -17 4517 -1217)
 ((SIGNED-BYTE 24) 4 17 -17 4517 -1217)
 ((SIGNED-BYTE 25) 4 17 16777199 4517 16775999)
 ((SIGNED-BYTE 26) 4 17 16777199 4517 16775999)
 ((SIGNED-BYTE 27) 4 17 16777199 4517 16775999)
 ((SIGNED-BYTE 28) 4 17 16777199 4517 16775999)
 ((SIGNED-BYTE 29) 4 17 -17 -16772699 -1217)
 ((SIGNED-BYTE 30) 4 17 -17 4517 16775999)
 ((SIGNED-BYTE 31) 4 17 -17 4517 -1217)
 ((SIGNED-BYTE 32) 4 17 -17 4517 -1217)
 ((SIGNED-BYTE 33) 4 17 4294967279 4517 4294966079)
 ((SIGNED-BYTE 34) 4 17 4294967279 4517 4294966079)
 ((SIGNED-BYTE 35) 4 17 4294967279 4517 4294966079)
 ((SIGNED-BYTE 36) 4 17 4294967279 4517 4294966079)
 ((SIGNED-BYTE 37) 4 17 -17 -4294962779 -1217)
 ((SIGNED-BYTE 38) 4 17 -17 4517 4294966079)
 ((SIGNED-BYTE 39) 4 17 -17 4517 -1217)
 ((SIGNED-BYTE 40) 4 17 -17 4517 -1217))

----------------------------------------------------------------------

You can respond by visiting: 
http://sourceforge.net/tracker/?func=detail&atid=101355&aid=422022&group_id=1355