Add serapeum and clean up type specifiers.

1 files changed, 3 insertions, 3 deletions

diff --git a/src/parallel-decoder.lisp b/src/parallel-decoder.lisp
index 8b4f568..7d35157 100644
--- a/src/parallel-decoder.lisp
+++ b/src/parallel-decoder.lisp
@@ -31,7 +31,7 @@
                               (setf pos (+ pos base 1))))))))
 
 (defun mem-write-vector (vector ptr &optional (offset 0) (count (length vector)))
-  (declare (type (simple-array (unsigned-byte 8)) vector)
+  (declare (type octet-vector vector)
            (type fixnum offset count))
   (declare (optimize ;; (speed 3) (safety 0) (space 0)
                      (debug 3)))
@@ -44,7 +44,7 @@
 
 (defun map-over-key-references (function block)
   (loop for i from 0 to (1- (/ (length block) 64))
-        for key-ref = (octets-to-reference-pair (subseq-shared block (* 64 i)))
+        for key-ref = (octets-to-reference-pair (nsubseq block (* 64 i)))
         until (key-reference-null? key-ref)
         do (funcall function key-ref i)))
 
@@ -105,7 +105,7 @@ locally binding a special variable to some value."
              (write-sequence root file :end (unpad-block root))))
         (t (let* ((initial-list
                     (loop for i from 0 to (/ block-size 64)
-                          for key-ref = (octets-to-reference-pair (subseq-shared root (* 64 i)))
+                          for key-ref = (octets-to-reference-pair (nsubseq root (* 64 i)))
                           until (key-reference-null? key-ref)
                           collect key-ref))
                   (list (split-list-equally