#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