diff options
| author | Piotr Szarmanski | 2022-09-25 19:54:42 +0200 |
|---|---|---|
| committer | Piotr Szarmanski | 2022-09-25 19:54:42 +0200 |
| commit | 8db501749d47964b436bc63cafb80a17bfd42396 (patch) | |
| tree | d6982ac6eff1aeed514f7c11ee5df46a1930805d /tests/encode-tests.lisp | |
| parent | 67d00dc4ce131d5cc46f4041dbf40391697e281d (diff) | |
Add parallel decoder.
Diffstat (limited to 'tests/encode-tests.lisp')
| -rw-r--r-- | tests/encode-tests.lisp | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/encode-tests.lisp b/tests/encode-tests.lisp index c6b50d4..6c04444 100644 --- a/tests/encode-tests.lisp +++ b/tests/encode-tests.lisp @@ -37,11 +37,11 @@ "urn:eris:BIAD77QDJMFAKZYH2DXBUZYAP3MXZ3DJZVFYQ5DFWC6T65WSFCU5S2IT4YZGJ7AC4SYQMP2DM2ANS2ZTCP3DJJIRV733CRAAHOSWIYZM3M")) ;; simple gray stream class for this particular construction. -(defclass null-stream (fundamental-binary-stream) +(defclass null-stream (fundamental-binary-input-stream) ((counter :initform 0 :accessor counter) (max-counter :initarg :max-counter))) -(defmethod stream-read-sequence ((stream null-stream) seq &optional start end) +(defmethod stream-read-sequence ((stream null-stream) seq start end &key) (with-slots (counter max-counter) stream (if (eql counter max-counter) 0 |