(setf (gethash ,name *simple-type-map*) ,(car types)))
(defctype ,names ,(car types) :export ,export)
(define-c-type-syntax ,(car names) (&rest quals)
+ ,(format nil "Return a possibly-qualified `~A' type." (car types))
`(make-simple-type ,',(car types) (list ,@quals)))))))
(export 'find-simple-c-type)