It lives!

[sod] / parse-c-types.lisp

diff --git a/parse-c-types.lisp b/parse-c-types.lisp
index 361396500165bbe3272448a9e34de3461fb3a12d..63e8b9b277a04c7486dab45af6ed4883148bbd69 100644 (file)
--- a/parse-c-types.lisp
+++ b/parse-c-types.lisp
@@ -398,9 +398,8 @@ (defun parse-c-declarator (lexer type &key abstractp dottedp)
               (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)))))