src/method-impl.lisp: Handle varargs methods in `next-method-type'.

diff --git a/src/method-impl.lisp b/src/method-impl.lisp
index 49c667640ac5f9d84433451f8ee78d42efabc6d4..26dce5d05cb30d80ccbe2b4183815ce84f9f6356 100644 (file)
--- a/src/method-impl.lisp
+++ b/src/method-impl.lisp
@@ -192,12 +192,17 @@ (defmethod slot-unbound (class
                         (slot-name (eql 'next-method-type)))
   (declare (ignore class))
   (let* ((message (sod-method-message method))
-        (type (sod-message-type message)))
+        (return-type (c-type-subtype (sod-message-type message)))
+        (msgargs (sod-message-argument-tail message))
+        (arguments (if (varargs-message-p message)
+                       (cons (make-argument *sod-master-ap*
+                                            (c-type va-list))
+                             (butlast msgargs))
+                       msgargs)))
     (setf (slot-value method 'next-method-type)
-         (c-type (fun (lisp (c-type-subtype type))
+         (c-type (fun (lisp return-type)
                       ("me" (* (class (sod-method-class method))))
-                      .
-                      (c-function-arguments type))))))
+                      . arguments)))))
 
 (defmethod slot-unbound (class
                         (method delegating-direct-method)