wire-format: BABEL:STRING-TO-OCTETS gives us a SIMPLE-ARRAY

diff --git a/wire-format.lisp b/wire-format.lisp
index 99fd18f933f5d2174aca2b5481fb0297db698eb5..449c1e6742233797fbfa4d16506bef6d04be1a72 100644 (file)
--- a/wire-format.lisp
+++ b/wire-format.lisp
@@ -893,7 +893,7 @@
   (let* ((octets (babel:string-to-octets string :encoding :utf-8))
          (len (length octets))
          (idx (encode-uint32 len buffer index)))
-    (declare (type (array (unsigned-byte 8)) octets)
+    (declare (type (simple-array (unsigned-byte 8)) octets)
              (type fixnum len)
              (type (unsigned-byte 32) idx))
     (replace buffer octets :start1 idx)