+;;; Types.
+
+(defmethod coerce-property-value
+ ((value string) (type (eql :id)) (wanted (eql :type)))
+ (or (and (boundp '*module-type-map*)
+ (gethash value *module-type-map*))
+ (find-simple-c-type value)
+ (error "Unknown type `~A'." value)))
+