Commit f9d7314b authored by Pascal J. Bourguignon's avatar Pascal J. Bourguignon

Added character-io tests. Corrected pipe-enqueue-sequence for character i/o.

parent 75f63656
This diff is collapsed.
......@@ -462,8 +462,14 @@ when it's the case, end-of-file is detected upon reading on an empty pipe.")
(defmethod pipe-enqueue-element ((pipe queued-pipe) element)
(pipe-enqueue-sequence pipe (vector element) 0 1))
(declaim (inline subsequence))
(defun subsequence (element-type sequence start end)
(make-array (- end start)
:element-type element-type
:initial-contents sequence))
(defmethod pipe-enqueue-sequence ((pipe queued-pipe) sequence start end)
(let ((blkl (list (make-block (subseq sequence start end)))))
(let ((blkl (list (make-block (subsequence (pipe-element-type pipe) sequence start end)))))
(with-lock-held ((lock pipe))
(if (tail pipe)
(setf (cdr (tail pipe)) blkl
......
......@@ -131,7 +131,7 @@ License:
(defvar *verbose-progress* nil
"Whether to display dots or exclamation points while testing.")
(defvar *test-output* *standard-output*)
(defvar *test-output* (make-synonym-stream '*standard-output*))
;; Private:
(defvar *last-success-p* nil)
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment