Commit de70bacd authored by Gabor Melis's avatar Gabor Melis
Browse files

fix typo in declaration

parent 8fe6e63d
Loading
Loading
Loading
Loading
+1 −1
Original line number Original line Diff line number Diff line
@@ -22,7 +22,7 @@
(defun utf-8-byte-length (string)
(defun utf-8-byte-length (string)
  "Calculate the amount of bytes needed to encode a string."
  "Calculate the amount of bytes needed to encode a string."
  (declare (type string string)
  (declare (type string string)
           #'*optimize*)
           #.*optimize*)
  (let* ((string (coerce string 'simple-string))
  (let* ((string (coerce string 'simple-string))
         (length (length string)))
         (length (length string)))
    (declare (type fixnum length))
    (declare (type fixnum length))