      )
 (numeric-literal? (parse-expr"261"))
 
-(->> "-0x235"
-     radix
-     )
-
-(->> "int *V1 = 1.99, v2 = -265"
+(->> "unsigned int *V1 = 1.99, v2 = -265"
      parse-expr
-     .getDeclarators
-     last
-     .getInitializer
-     .getInitializerClause
+     .getDeclSpecifier
+     ;public-methods
+     ;(map :name)
+     ;.getType
+     ;decl-type
+     ;.isUnsigned
      )
 
 ; https://www.safaribooksonline.com/library/view/c-in-a/0596006977/ch04.html


(s/defrecord TD ;TypeDescription
    [number-type :- s/Keyword bits :- s/Int])
(def DeclSpec IASTSimpleDeclSpecifier)
(def TypeKind IBasicType$Kind)

(def type-components
  [

      (any-pred? (fn [[type expr]]
                   (and (numeric-literal? expr)
                        (#{:int} (:number-type type))
                        (not (<= context-lower (parse-numeric-literal expr) context-upper))))
                 (map vector arg-types arg-exprs))
  )))

