about summary refs log tree commit diff
diff options
context:
space:
mode:
authorsterni <sternenseemann@systemli.org>2023-04-09T14·29+0200
committerclbot <clbot@tvl.fyi>2023-04-29T12·55+0000
commit7e6595dbf411423e779ff7a26092ed593ffcd8fc (patch)
tree76f7534047fa77f293604d82e801c8ba2a0960c5
parent2464ea7303601cf5ee1dc4b3439d91ff182001b0 (diff)
fix(3p/lisp/mime4cl): correctly define find-mime-text-part r/6119
The generic function itself needs to be defined using defgeneric,
defmethod is used for a defining method of a generic function, i.e. how
it should behave when confronted with a certain class.

Change-Id: Idd38afa02b56c5002e215decfff7f0c25267eab5
Reviewed-on: https://cl.tvl.fyi/c/depot/+/8532
Autosubmit: sterni <sternenseemann@systemli.org>
Reviewed-by: sterni <sternenseemann@systemli.org>
Tested-by: BuildkiteCI
-rw-r--r--third_party/lisp/mime4cl/mime.lisp2
1 files changed, 1 insertions, 1 deletions
diff --git a/third_party/lisp/mime4cl/mime.lisp b/third_party/lisp/mime4cl/mime.lisp
index eec7f87dfa19..a5917db67fc4 100644
--- a/third_party/lisp/mime4cl/mime.lisp
+++ b/third_party/lisp/mime4cl/mime.lisp
@@ -979,7 +979,7 @@ is a string."))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
-(defmethod find-mime-text-part (msg)
+(defgeneric find-mime-text-part (msg)
   (:documentation
    "Return message if it is a text message or first text part.
    If no suitable text part is found, return NIL."))