kmx.io/cl-thot

diff --git a/mime.lisp b/mime.lisp
index e2e7576..9020615 100644
--- a/mime.lisp
+++ b/mime.lisp
@@ -10,7 +10,7 @@
 
 (defgeneric ext (x))
 
-(defmethod ext ((x string))
+(defmethod ext ((x simple-string))
   (cond ((string= "" x))
         ((char= #\. (char x 0))
          (let ((sym (intern x :file-extensions)))