Commit 75f63656 authored by Pascal J. Bourguignon's avatar Pascal J. Bourguignon

Implemented tests for binary streams; added checks for open streams.

parent 02a9fb1f
......@@ -80,8 +80,10 @@ with a synchronized queue in the middle.
((#:albert #:docbook #:bgcolor) . "white")
((#:albert #:docbook #:textcolor) . "black"))
:depends-on ("trivial-gray-streams"
"bordeaux-threads")
:components ((:file "pipe-stream"))
"bordeaux-threads"
"com.informatimago.clext.closer-weak") ; weak hash-tables are needed for gate.
:components ((:file "gate")
(:file "pipe-stream" :depends-on ("gate")))
#+adsf3 :in-order-to #+adsf3 ((test-op (test-op "com.informatimago.clext.pipe-stream.test")))
#+asdf-unicode :encoding #+asdf-unicode :utf-8)
......
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
......@@ -428,7 +428,7 @@ RETURN: Whether SUFFIX is a suffix of the (subseq SEQUENCE START END).
(defmethod suffixp ((suffix sequence) (sequence sequence) &key (start 0) (end nil) (test (function eql)))
(zerop (or (mismatch suffix sequence :start2 start :end2 end :test test
:from-end t)
0)))
0)) )
......
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