CMU Common Lisp 18d, running on hugi.math-inst.hu
Send questions to [EMAIL PROTECTED] and bug reports to [EMAIL PROTECTED]
Loaded subsystems:
Python 1.0, target Intel x86
CLOS based on PCL version: September 16 92 PCL (f)
USER(1): (with-open-file
(f "/tmp/ex" :direction :output :if-exists :supersede :element-type '(unsigned-byte
8))
(write-sequence
(make-array '(3) :element-type '(unsigned-byte 8) :initial-element 0) f :start 2
:end 3))
Error in function COMMON-LISP::WRITE-N-X8-BYTES:
SYSTEM:OUTPUT-RAW-BYTES called with :END before :START!
Restarts:
0: [CONTINUE] Just go on as if nothing happened...
1: [ABORT ] Return to Top-Level.
Debug (type H for help)
(COMMON-LISP::WRITE-N-X8-BYTES #<Stream for file "/tmp/ex"> #(0 0 0) 2 3 8)
Source: (SYSTEM:OUTPUT-RAW-BYTES STREAM DATA START NUMBYTES)
0]
The reason I think may be this:
src/code/stream.lisp:
(defun write-simple-array-out (seq stream start end)
(...)
(flet ((write-n-x8-bytes (stream data start end byte-size)
(let* ((x8-mult (truncate byte-size 8))
(numbytes (* (- end start) x8-mult))
)
(system:output-raw-bytes stream data start numbytes)))
^^^^^^^^
(...)
src/code/fd-stream.lisp:
(in-package "SYSTEM")
(...)
(defun output-raw-bytes (stream thing &optional start end)
^^^
(...)
Andras
