diff options
| author | Piotr Szarmanski | 2022-12-30 18:29:24 +0100 |
|---|---|---|
| committer | Piotr Szarmanski | 2022-12-30 18:29:24 +0100 |
| commit | 5afc44c1082ae7088511f318aa9bd3d4b25ba3c6 (patch) | |
| tree | d4a30ac582f98b77a79a164d40f9a7e794e1c6b4 /tests/decode-tests.lisp | |
| parent | 855e79b7ffa37ac64de51defa18104ed897576b3 (diff) | |
Implement buffer reuse encoding.
This implements a buffer reuse mechanism in eris-encode. This is also a
backwards incompatible change, as the provided OUTPUT-FUNCTION now has an
additional argument and has to return an octet-vector buffer of equal size. This
is not yet implemented optimally, but should amount to a reduce of memory usage
and GC required, especially for larger files.
Diffstat (limited to 'tests/decode-tests.lisp')
| -rw-r--r-- | tests/decode-tests.lisp | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/tests/decode-tests.lisp b/tests/decode-tests.lisp index 27ff4e3..5053d11 100644 --- a/tests/decode-tests.lisp +++ b/tests/decode-tests.lisp @@ -22,7 +22,8 @@ (defvar *stream* nil) (defun hashtable-encode (block ref) - (setf (gethash ref *table*) block)) + (setf (gethash ref *table*) (copy-seq block)) + block) (defun hashtable-decode (ref) (copy-seq (gethash ref *table*))) |