[Armedbear-ticket] [armedbear] #373: Two-way-streams and gray streams

[armedbear]

#373: Two-way-streams and gray streams
--------------------------+-----------------
 Reporter:  helmut eller  |      Owner:
     Type:  defect        |     Status:  new
 Priority:  major         |  Milestone:
Component:  streams       |    Version:
 Keywords:                |
--------------------------+-----------------
 ABCL runs into troubles with the following example:
 {{{
 shell> cat test.lisp
 (in-package cl-user)

 (require 'gray-streams)

 (defclass out (gray-streams:fundamental-character-output-stream)
   ((buffer :initform (make-array 200 :element-type 'character
                                  :adjustable t :fill-pointer 0)
            :reader out-buffer)))

 (defmethod gray-streams:stream-write-char ((s out) (c character))
   (vector-push-extend c (out-buffer s)))

 (let ((out (make-instance 'out)))
   (write-string "foo" (make-two-way-stream *standard-input* out))
   (assert (equal "foo" (out-buffer out))))

 shell> abcl
 Armed Bear Common Lisp 1.4.0-dev-svn-14730
 Java 1.7.0_03 Oracle Corporation
 OpenJDK Client VM
 Low-level initialization completed in 0.841 seconds.
 Startup completed in 4.419 seconds.
 Loading /home/helmut/.abclrc completed in 0.108 seconds.
 Type ":help" for a list of available commands.
 CL-USER(1): (load "test.lisp")
 Error loading /raid/home/helmut/lisp/test.lisp at line 16 (offset 488)
 #<THREAD "interpreter" {8A408D}>: Debugger invoked on condition of type
 TYPE-ERROR
   The value #<OUT {940A15}> is not of type STREAM.
 Restarts:
   0: TOP-LEVEL Return to top level.
 [1] CL-USER(2):
 }}}
 The expected outcome is that assertion the succeeds.

--
Ticket URL: <http://abcl.org/trac/ticket/373>
armedbear <http://abcl.org>
armedbear