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

turn print-mime-part into a defun -- one less warning

Ignore-this: 4547e2c268f8e1554af70f35f7fb67fb

darcs-hash:fab8c7334b01e33282ebbf1769de386357ffc8d5
parent 54d13c8a
No related branches found
No related tags found
No related merge requests found
......@@ -58,7 +58,8 @@ You may also want to look at UCW for a real-world example."))
(:method ((object mime-part)) t)
(:method ((object t)) nil))
(defmethod print-mime-part ((part mime-part) &optional (stream *trace-output*))
(defun print-mime-part (part &optional (stream *trace-output*))
(check-type part mime-part)
(format stream "Headers:~%")
(dolist (header (headers part))
(format stream "~S: ~S~:{; ~S=~S~}~%"
......
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