Make ENCODE faster with more optimized type declarations

chaitanyagupta · Nov 26, 2017 · 5844371 · 5844371
1 parent cf1d216
commit 5844371
Showing 1 changed file with 4 additions and 3 deletions.
diff --git a/qbase64.lisp b/qbase64.lisp
@@ -58,10 +58,11 @@
                                (end1 (length bytes))
                                (start2 0)
                                (end2 (length string)))
-    (((bytes (simple-array (unsigned-byte 8))) (string simple-string))
+    (((bytes (simple-array (unsigned-byte 8))) (string simple-base-string))
+     ((bytes (simple-array (unsigned-byte 8))) (string simple-string))
      ((bytes (simple-array (unsigned-byte 8))) (string string))
-     ((bytes (array (unsigned-byte 8)))        (string string))
-     ((bytes (array (unsigned-byte 8)))        (string simple-string))
+     ((bytes array)                            (string simple-base-string))
+     ((bytes array)                            (string simple-string))
      ((bytes array)                            (string string)))
   (declare (type scheme scheme))
   (declare (type positive-fixnum start1 end1 start2 end2))