X-Git-Url: https://git.distorted.org.uk/~mdw/sod/blobdiff_plain/1d8cc67a3f4ded443f5efc673a616883cbae9c50..9ec578d9fe450b7e7f9030dc9d930185593aa991:/src/c-types-parse.lisp

diff --git a/src/c-types-parse.lisp b/src/c-types-parse.lisp
index 5f2e438..4a8e1d7 100644
--- a/src/c-types-parse.lisp
+++ b/src/c-types-parse.lisp
@@ -369,13 +369,13 @@
 	       (argument-list ()
 		 ;; [ argument [ `,' argument ]* ]
 
-		 (parse (list ()
-			      (seq ((base-type (parse-c-type scanner))
-				    (dtor (parse-declarator scanner
-							    base-type
-							    :abstractp t)))
-				(make-argument (cdr dtor) (car dtor)))
-			      #\,)))
+		 (parse (list (:min 0)
+			  (seq ((base-type (parse-c-type scanner))
+				(dtor (parse-declarator scanner
+							base-type
+							:abstractp t)))
+			       (make-argument (cdr dtor) (car dtor)))
+			  #\,)))
 
 	       (postfix-lparen ()
 		 ;; Postfix: `(' argument-list `)'