(setf (gethash ,name *simple-type-map*) ,(car types)))
(defctype ,names ,(car types) :export ,export)
(define-c-type-syntax ,(car names) (&rest quals)
(setf (gethash ,name *simple-type-map*) ,(car types)))
(defctype ,names ,(car types) :export ,export)
(define-c-type-syntax ,(car names) (&rest quals)