Commit 76fa9af240f8c51d0771e1b2b4f32ffa504a2dba

Thomas de Grivel 2018-06-16T16:43:43

fix ext for clisp

1
2
3
4
5
6
7
8
9
10
11
12
13
diff --git a/mime.lisp b/mime.lisp
index d94dd0e..9400f0d 100644
--- a/mime.lisp
+++ b/mime.lisp
@@ -10,7 +10,7 @@
 
 (defgeneric ext (x))
 
-(defmethod ext ((x simple-string))
+(defmethod ext ((x string))
   (cond ((string= "" x))
         ((char= #\. (char x 0))
          (let ((sym (intern x :file-extensions)))