Loading trivial-utf-8.lisp +1 −1 Original line number Original line Diff line number Diff line Loading @@ -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)) Loading Loading
trivial-utf-8.lisp +1 −1 Original line number Original line Diff line number Diff line Loading @@ -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)) Loading