Opened 5 years ago

Last modified 23 months ago

#373 new defect

Two-way-streams and gray streams

Reported by: helmut eller Owned by:
Priority: major Milestone: 1.6.0
Component: streams Version: 1.4.0-dev
Keywords: Cc:
Parent Tickets:


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.
  0: TOP-LEVEL Return to top level.
[1] CL-USER(2):

The expected outcome is that assertion the succeeds.

Subtickets (add)

Change History (3)

comment:1 Changed 5 years ago by mevenson

  • Milestone set to 1.4.0
  • Version set to 1.4.0-dev

comment:2 Changed 3 years ago by mevenson

  • Milestone changed from 1.4.0 to 1.5.0

Ticket retargeted after milestone closed

comment:3 Changed 23 months ago by mevenson

  • Milestone changed from 1.5.0 to 1.6.0

Ticket retargeted after milestone closed

Note: See TracTickets for help on using tickets.