summaryrefslogtreecommitdiff
path: root/src/hash-backend.lisp
diff options
context:
space:
mode:
Diffstat (limited to 'src/hash-backend.lisp')
-rw-r--r--src/hash-backend.lisp5
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)))