Skip to content
Snippets Groups Projects
Commit 8d699700 authored by clinton's avatar clinton
Browse files

Restore definition of `mime-part-p'

Ignore-this: f36a4606e4e9ef436bd1122915ed7a9f
* Was (hopefully unintentionally) removed during the 'refactor'

darcs-hash:c16fa01b8cae438b6788d770e3c108ff2462cbf0
parent 6da6084e
No related branches found
No related tags found
No related merge requests found
......@@ -51,6 +51,10 @@ You may also want to look at UCW for a real-world example."))
(content-charset :accessor content-charset :initform nil)
(headers :accessor headers :initform '())))
(defgeneric mime-part-p (object)
(:method ((object mime-part)) t)
(:method ((object t)) nil))
(defun print-mime-part (part &optional (stream *trace-output*))
(check-type part mime-part)
(format stream "Headers:~%")
......
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