Add sugar coating to get mime-type from pathname designators extension.
diff --git a/mime-types.lisp b/mime-types.lisp
index b20bab6..c391a99 100644
--- a/mime-types.lisp
+++ b/mime-types.lisp
@@ -29,6 +29,12 @@
(gethash ext *mime-type/extension*)
(call-next-method)))
+(defmethod mime-type ((pathname pathname))
+ (mime-type (intern-extension (pathname-type pathname))))
+
+(defmethod mime-type ((file file-stream))
+ (mime-type (pathname file)))
+
(defmethod (setf mime-type) (value (ext symbol))
(if (extension-p ext)
(setf (gethash ext *mime-type/extension*) value)