diff options
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))) |