X-Git-Url: https://git.distorted.org.uk/~mdw/sod/blobdiff_plain/b0ff693c25bf81f935efa15a44fdad6ce95e9f91..8293b90a8f027ed9b7e4ebb566f67e5c783864c9:/src/c-types-parse.lisp

diff --git a/src/c-types-parse.lisp b/src/c-types-parse.lisp
index 39a805e..e0cfc88 100644
--- a/src/c-types-parse.lisp
+++ b/src/c-types-parse.lisp
@@ -233,7 +233,7 @@
 		       (gethash kw *declspec-map*))))))
     (cond ((or (not ds) (and predicate (not (funcall predicate ds))))
 	   (values (list indicator) nil nil))
-	  ((ds-taggedp ds)
+	  ((and (typep ds 'declspec) (ds-taggedp ds))
 	   (scanner-step scanner)
 	   (if (eq (token-type scanner) :id)
 	       (let ((ty (make-c-tagged-type (ds-label ds)