Commits

llibra committed b164031

Cleaned up declarations.

Comments (0)

Files changed (2)

                            (encoding :utf-8))
   (declare (optimize speed (debug 0) (safety 0))
            (type simple-string string)
-           (type (function (octet) (or (eql t) null)) test))
+           (type (function (octet) boolean) test))
   (labels ((->octet (c1 c2 pos)
              (aif (char-pair-octet c1 c2)
                   it
                            (www-form nil)
                            (encoding :utf-8))
   (declare (optimize speed (debug 0) (safety 0))
-           (type (function (octet) (or (eql t) null)) test))
+           (type (function (octet) boolean) test))
   (do* ((octets (string-to-octets string :encoding encoding))
         (length (length octets))
         (buffer (make-string (* length 3)))
         (i 0 (1+ i))
         (j 0 (1+ j)))
        ((= i length) (shrink-vector buffer j))
-    (declare (type octets octets) (type fixnum i j length))
+    (declare (type octets octets) (type fixnum i j))
     (let ((octet (aref octets i)))
       (declare (type octet octet))
       (cond ((funcall test octet)