X-Git-Url: http://git.kpe.io/?p=cl-base64.git;a=blobdiff_plain;f=encode.lisp;fp=encode.lisp;h=1c4a4ec11add7094aecf295c04566ecd6f12517d;hp=dcddc1ad4bef1f2a1c11af08f4cd8f5468e3b068;hb=ecff5c5549684a5636a0436961b879177dc1039f;hpb=9d5a88ecfd67b28c1c2b3b3497f2237e37032691

diff --git a/encode.lisp b/encode.lisp
index dcddc1a..1c4a4ec 100644
--- a/encode.lisp
+++ b/encode.lisp
@@ -33,7 +33,7 @@
 (defun round-next-multiple (x n)
   "Round x up to the next highest multiple of n."
   (declare (fixnum n)
-           (optimize (speed 3) (safety 0) (space 0)))
+           (optimize (speed 3) (safety 1) (space 0)))
   (let ((remainder (mod x n)))
     (declare (fixnum remainder))
     (if (zerop remainder)
@@ -57,7 +57,7 @@ with a #\Newline."
                       (:usb8-array
                        '((type (array (unsigned-byte 8) (*)) input))))
               (fixnum columns)
-              (optimize (speed 3) (safety 0) (space 0)))
+              (optimize (speed 3) (safety 1) (space 0)))
      (let ((pad (if uri *uri-pad-char* *pad-char*))
            (encode-table (if uri *uri-encode-table* *encode-table*)))
        (declare (simple-string encode-table)
@@ -212,7 +212,7 @@ with a #\Newline."
   "Encode an integer to base64 format."
   (declare (integer input)
            (fixnum columns)
-           (optimize (speed 3) (space 0) (safety 0)))
+           (optimize (speed 3) (space 0) (safety 1)))
   (let ((pad (if uri *uri-pad-char* *pad-char*))
         (encode-table (if uri *uri-encode-table* *encode-table*)))
     (declare (simple-string encode-table)
@@ -271,7 +271,7 @@ with a #\Newline."
   "Encode an integer to base64 format."
   (declare (integer input)
            (fixnum columns)
-           (optimize (speed 3) (space 0) (safety 0)))
+           (optimize (speed 3) (space 0) (safety 1)))
   (let ((pad (if uri *uri-pad-char* *pad-char*))
         (encode-table (if uri *uri-encode-table* *encode-table*)))
     (declare (simple-string encode-table)