diff options
| author | Piotr Szarmanski | 2022-12-30 20:50:05 +0100 |
|---|---|---|
| committer | Piotr Szarmanski | 2022-12-30 20:50:05 +0100 |
| commit | 219e118a80858e05e7b9917f9d0996af70982ae4 (patch) | |
| tree | d4a30ac582f98b77a79a164d40f9a7e794e1c6b4 /tests/decode-tests.lisp | |
| parent | 618ee634557122b3b3c5012405603b28c0001d13 (diff) | |
| parent | 5afc44c1082ae7088511f318aa9bd3d4b25ba3c6 (diff) | |
Merge branch 'no-allocate-buffers'
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*))) |