diff options
Diffstat (limited to 'third_party/lisp/mime4cl/mime.lisp')
| -rw-r--r-- | third_party/lisp/mime4cl/mime.lisp | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/third_party/lisp/mime4cl/mime.lisp b/third_party/lisp/mime4cl/mime.lisp index eeddea970603..18c9e7bbb029 100644 --- a/third_party/lisp/mime4cl/mime.lisp +++ b/third_party/lisp/mime4cl/mime.lisp @@ -500,6 +500,7 @@ separated by PART-BOUNDARY." (encode-mime-part (mime-body part) stream)) (defmethod encode-mime-part ((part mime-multipart) stream) + (declare (ignore stream)) ; call-next-method ;; choose a boundary if not already set (let* ((original-boundary (get-mime-type-parameter part :boundary)) (boundary (choose-boundary (mime-parts part) original-boundary))) @@ -998,9 +999,6 @@ is a string.")) (:documentation "Return the string describing the MIME part.")) -(defmethod mime-type-string ((part mime-unknown-part)) - (mime-type part)) - (defmethod mime-type-string ((part mime-text)) (format nil "text/~A" (mime-subtype part))) |