X-Git-Url: https://git.distorted.org.uk/~mdw/sod/blobdiff_plain/e43d353268fc869045f757932d78d6073db9de6e..e85df3ff84611b7c790f9ffb46dfca77e2a717c0:/src/class-utilities.lisp diff --git a/src/class-utilities.lisp b/src/class-utilities.lisp index d57d07d..573c677 100644 --- a/src/class-utilities.lisp +++ b/src/class-utilities.lisp @@ -161,7 +161,7 @@ (every (lambda (message-arg method-arg) (if (eq message-arg :ellipsis) (c-type-equal-p (argument-type method-arg) - (c-type va-list)) + c-type-va-list) (c-type-equal-p (argument-type message-arg) (argument-type method-arg)))) message-args method-args)))