It lives!

[sod] / parse-c-types.lisp

diff --git a/parse-c-types.lisp b/parse-c-types.lisp
index 3613965..63e8b9b 100644 (file)
--- 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)))))