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 /src/hash-backend.lisp | |
| parent | 618ee634557122b3b3c5012405603b28c0001d13 (diff) | |
| parent | 5afc44c1082ae7088511f318aa9bd3d4b25ba3c6 (diff) | |
Merge branch 'no-allocate-buffers'
Diffstat (limited to 'src/hash-backend.lisp')
| -rw-r--r-- | src/hash-backend.lisp | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/hash-backend.lisp b/src/hash-backend.lisp index 91dc673..0fa095a 100644 --- a/src/hash-backend.lisp +++ b/src/hash-backend.lisp @@ -32,9 +32,10 @@ output-function (lambda (block reference) (declare (type octet-vector block reference)) (setf (gethash reference hash-table) - block)))))) + (copy-seq block)) + block))))) -(defmethod fetch-read-capability (read-capability (backend hash-backend) &key &allow-other-keys) +(defmethod fetch-data (read-capability (backend hash-backend) &key &allow-other-keys) (declare (type read-capability read-capability)) (with-slots (fetch-function) backend (eris-decode read-capability fetch-function :cache-capacity nil))) |