X-Git-Url: https://git.distorted.org.uk/~mdw/sod/blobdiff_plain/71ecc48e20c8651175b16f37ee66ca08a36cc1c6..a07d8d005f69c0f9f5da2e09c6ee39cb1e1801aa:/parse-c-types.lisp?ds=sidebyside

diff --git a/parse-c-types.lisp b/parse-c-types.lisp
index 3613965..63e8b9b 100644
--- a/parse-c-types.lisp
+++ b/parse-c-types.lisp
@@ -398,9 +398,8 @@
 	       (eq (token-type lexer) :id))
       (let ((name (token-value lexer)))
 	(next-token lexer)
-	(cond ((and dottedp
-		    (eq (token-type lexer) #\.))
-	       (let ((sub (require-token :id :default (gensym))))
+	(cond ((and dottedp (require-token lexer #\. :errorp nil))
+	       (let ((sub (require-token lexer :id :default (gensym))))
 		 (setf item (cons name sub))))
 	      (t
 	       (setf item name)))))