X-Git-Url: https://git.distorted.org.uk/~mdw/sod/blobdiff_plain/1d8cc67a3f4ded443f5efc673a616883cbae9c50..9ec578d9fe450b7e7f9030dc9d930185593aa991:/src/class-make-impl.lisp

diff --git a/src/class-make-impl.lisp b/src/class-make-impl.lisp
index ae65392..09ce441 100644
--- a/src/class-make-impl.lisp
+++ b/src/class-make-impl.lisp
@@ -210,7 +210,10 @@
   ;; Check that the arguments are named if we have a method body.
   (with-slots (body type) method
     (unless (or (not body)
-		(every #'argument-name (c-function-arguments type)))
+		(every (lambda (arg)
+			 (or (argument-name arg)
+			     (eq (argument-type arg) (c-type void))))
+		       (c-function-arguments type)))
       (error "Abstract declarators not permitted in method definitions")))
 
   ;; Check the method type.