From c80b657c0bf77604b5187858e06c27296049ca02 Mon Sep 17 00:00:00 2001
From: =?utf8?q?Alejandro=20R=20Sede=C3=B1o?= <asedeno@google.com>
Date: Fri, 26 Apr 2013 11:49:27 -0400
Subject: [PATCH] wire-format: BABEL:STRING-TO-OCTETS gives us a SIMPLE-ARRAY

---
 wire-format.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/wire-format.lisp b/wire-format.lisp
index 99fd18f..449c1e6 100644
--- 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)
-- 
2.45.2