Skip to content
Snippets Groups Projects
Commit a1662ab8 authored by Attila Lendvai's avatar Attila Lendvai
Browse files

added optimize speed

darcs-hash:aef6483753dd6deeece3e8f5187851d4bcb058d5
parent 34f996a3
No related branches found
No related tags found
No related merge requests found
......@@ -118,6 +118,7 @@ READ-MIME. See READ-MIME's documentation for details."
(read-mime source (ascii-string-to-boundary-array boundary) callback))
(defmethod read-mime ((source stream) (boundary array) callback)
(declare (optimize speed))
;; read up to the first part
(read-until-next-boundary source boundary #'identity :assume-first-boundary t)
;; read headers and boundries until we're done
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment