[Openmcl-devel] BUG: missing methods STREAM-WRITE-VECTOR and STREAM-READ-VECTOR

[Eric Marsden]

Some more stream-related bugs:


? (WITH-INPUT-FROM-STRING (IS "!?*")
     (LET ((*TERMINAL-IO* (MAKE-TWO-WAY-STREAM IS (MAKE-BROADCAST-STREAM))))
        (CLEAR-INPUT T)))
Error reporting error
? for help
[12496] OpenMCL kernel debugger: K


? (WITH-INPUT-FROM-STRING (*STANDARD-INPUT* "345") (CLEAR-INPUT NIL))
> Error: value NIL is not of the expected type STRUCTURE.
> While executing: CCL::%IOBLOCK-CLEAR-INPUT, in process listener(1).


? (with-input-from-string (s "foo") (file-position s))
> Error: value #<STRING-INPUT-STREAM  #x300040D5A47D> is not of the expected type STREAM.
> While executing: #<CCL::STANDARD-KERNEL-METHOD CCL::STREAM-POSITION (T)>, in process listener(1).


? (with-open-file (out "/tmp/out" :direction :output :if-exists :supersede :element-type '(unsigned-byte 1)) (write-byte 1 out))
> Error: Undefined function CCL::%GENERAL-IOBLOCK-WRITE-BYTE called with arguments (#S(CCL::FILE-IOBLOCK :STREAM #<BASIC-FILE-BINARY-OUTPUT-STREAM ("/tmp/out"/4 ISO-8859-1) #x300040E9BAED> :UNTYI-CHAR NIL :INBUF NIL :OUTBUF #<IO-BUFFER  BIT 0/0/2048 #x300040E9B8AD> :ELEMENT-TYPE (INTEGER 0 1) :ELEMENT-SHIFT 0 :CHARPOS 0 :DEVICE 4 :ADVANCE-FUNCTION CCL::IOBLOCK-ADVANCE :LISTEN-FUNCTION CCL::FD-STREAM-LISTEN :EOFP-FUNCTION CCL::IOBLOCK-EOFP :FORCE-OUTPUT-FUNCTION CCL::OUTPUT-FILE-FORCE-OUTPUT :CLOSE-FUNCTION CCL::FD-STREAM-CLOSE :INBUF-LOCK NIL :EOF NIL :INTERACTIVE NIL :DIRTY NIL :OUTBUF-LOCK NIL :OWNER #<PROCESS listener(1) [Active] #x300040D7940D> :READ-CHAR-FUNCTION CCL::IOBLOCK-NO-CHAR-INPUT :READ-BYTE-FUNCTION CCL::IOBLOCK-NO-BINARY-INPUT :WRITE-BYTE-FUNCTION CCL::%GENERAL-IOBLOCK-WRITE-BYTE :WRITE-CHAR-FUNCTION CCL::IOBLOCK-NO-CHAR-OUTPUT :ENCODING NIL :PENDING-BYTE-ORDER-MARK NIL :LITERAL-CHAR-CODE-LIMIT 256 :ENCODE-OUTPUT-FUNCTION NIL :DECODE-INPUT-FUNCTION NIL :READ-CHAR-WHEN-LOCKED-FUNCTION CCL::IOBLOCK-NO-CHAR-INPUT :WRITE-SIMPLE-STRING-FUNCTION CCL::IOBLOCK-NO-CHAR-OUTPUT :CHARACTER-READ-VECTOR-FUNCTION CCL::IOBLOCK-NO-CHAR-INPUT :READ-LINE-FUNCTION CCL::IOBLOCK-NO-CHAR-INPUT :WRITE-CHAR-WHEN-LOCKED-FUNCTION CCL::IOBLOCK-NO-CHAR-OUTPUT :READ-BYTE-WHEN-LOCKED-FUNCTION CCL::IOBLOCK-NO-BINARY-INPUT :WRITE-BYTE-WHEN-LOCKED-FUNCTION CCL::%GENERAL-IOBLOCK-WRITE-BYTE :PEEK-CHAR-FUNCTION CCL::IOBLOCK-NO-CHAR-INPUT :NATIVE-BYTE-ORDER T :READ-CHAR-WITHOUT-TRANSLATION-WHEN-LOCKED-FUNCTION CCL::IOBLOCK-NO-CHAR-INPUT :WRITE-CHAR-WITHOUT-TRANSLATION-WHEN-LOCKED-FUNCTION CCL::IBLOCK-NO-CHAR-OUTPUT :SHARING :PRIVATE :LINE-TERMINATION NIL :UNREAD-CHAR-FUNCTION CCL::IOBLOCK-NO-CHAR-INPUT :RESERVED2 NIL :RESERVED3 NIL :OCTET-POS 0 :FILEEOF 0) 1) .
> While executing: WRITE-BYTE, in process listener(1).


? (with-open-file (out "/tmp/out" :direction :output :if-exists :supersede :element-type '(unsigned-byte 65)) (write-byte 1 out))
> Error: (INTEGER 0 36893488147419103231) is not an ivector subtype.
> While executing: MAKE-HEAP-IVECTOR, in process listener(1).

-- 
Eric Marsden