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

[Eric Marsden]

>>>>> "gb" == Gary Byers <gb at clozure.com> writes:

  gb> This should be fixed (and nothing else newly broken) in CVS.
  gb> Building from CVS might generate a few benign warnings (not related
  gb> to this change.)

  I'm not sure that I've built this correctly ; I get some strange
  errors. 


? (WITH-OUTPUT-TO-STRING (S NIL :ELEMENT-TYPE 'CHARACTER) (WRITE-CHAR #\& S))
> Error: :ELEMENT-TYPE argument 'CHARACTER is not a subtype of CHARACTER.
> While executing: MAKE-STRING-OUTPUT-STREAM, in process listener(1).


? (WITH-OUTPUT-TO-STRING (OS)
     (LET ((*TERMINAL-IO* (MAKE-TWO-WAY-STREAM *STANDARD-INPUT* OS)))
        (TERPRI T) (FINISH-OUTPUT T)))
Unhandled exception 11 at 0x3000400fc5b5, context->regs at #x40202ce8


? (LET ((S (COPY-SEQ "     ")))
     (WITH-INPUT-FROM-STRING (IS "abcdefghijk")
        (VALUES (READ-SEQUENCE S IS) S)))
> Error: value #S(CCL::STRING-INPUT-STREAM-IOBLOCK :STREAM #<STRING-INPUT-STREAM  #x300040D927FD> :UNTYI-CHAR NIL :INBUF NIL :OUTBUF NIL :ELEMENT-TYPE CHARACTER :ELEMENT-SHIFT 0 :CHARPOS 0 :DEVICE NIL :ADVANCE-FUNCTION CCL::IOBLOCK-ADVANCE :LISTEN-FUNCTION CCL::IOBLOCK-LISTEN :EOFP-FUNCTION CCL::IOBLOCK-EOFP :FORCE-OUTPUT-FUNCTION CCL::IOBLOCK-FORCE-OUTPUT :CLOSE-FUNCTION #<Compiled-function FALSE #x30004001144F> :INBUF-LOCK NIL :EOF NIL :INTERACTIVE NIL :DIRTY NIL :OUTBUF-LOCK NIL :OWNER NIL :READ-CHAR-FUNCTION CCL::STRING-INPUT-STREAM-IOBLOCK-READ-CHAR :READ-BYTE-FUNCTION CCL::IOBLOCK-NO-BINARY-INPUT :WRITE-BYTE-FUNCTION CCL::IOBLOCK-NO-BINARY-OUTPUT :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::STRING-INPUT-STREAM-IOBLOCK-READ-CHAR :WRITE-SIMPLE-STRING-FUNCTION CCL::IOBLOCK-NO-CHAR-OUTPUT :CHARACTER-READ-VECTOR-FUNCTION CCL::GENERIC-CHARACTER-READ-VECTOR :READ-LINE-FUNCTION CCL::STRING-INPUT-STREAM-IOBLOCK-READ-LINE :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::IOBLOCK-NO-BINARY-OUTPUT :PEEK-CHAR-FUNCTION CCL::STRING-INPUT-STREAM-IOBLOCK-PEEK-CHAR :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 NIL :LINE-TERMINATION NIL :UNREAD-CHAR-FUNCTION CCL::STRING-INPUT-STREAM-IOBLOCK-UNREAD-CHAR :RESERVED2 NIL :RESERVED3 NIL :STRING "abcdefghijk" :START 0 :INDEX 0 :END 11 :OFFSET 0) is not of the expected type STREAM.
> While executing: #<CCL::STANDARD-KERNEL-METHOD STREAM-READ-CHAR (T)>, in process listener(1).

-- 
Eric Marsden