>>>>> "Andras" == Andras Simon <[EMAIL PROTECTED]> writes:
Andras> USER(1): (with-open-file
Andras> (f "/tmp/ex" :direction :output :if-exists :supersede :element-type
'(unsigned-byte 8))
Andras> (write-sequence
Andras> (make-array '(3) :element-type '(unsigned-byte 8) :initial-element 0)
f :start 2 :end 3))
Andras> Error in function COMMON-LISP::WRITE-N-X8-BYTES:
Andras> SYSTEM:OUTPUT-RAW-BYTES called with :END before :START!
[snip]
Andras> The reason I think may be this:
Andras> src/code/stream.lisp:
Andras> (defun write-simple-array-out (seq stream start end)
Andras> (...)
Andras> (flet ((write-n-x8-bytes (stream data start end byte-size)
Andras> (let* ((x8-mult (truncate byte-size 8))
Andras> (numbytes (* (- end start) x8-mult))
Andras> )
Andras> (system:output-raw-bytes stream data start numbytes)))
Andras> ^^^^^^^^
Thanks for the bug report! That's obviously a typo, along the fact
that start needs to a byte count for output-raw-bytes.
Ray
