Work in progress, recovered from old crybaby.

[sod] / src / proto-c-types.lisp

diff --git a/src/proto-c-types.lisp b/src/proto-c-types.lisp
index 304562ab0d9066e1b9a606bc3c4d8edcf96bc2a6..bc36b2e1b3ff09866ef33a4d3dff204348df6d67 100644 (file)
--- a/src/proto-c-types.lisp
+++ b/src/proto-c-types.lisp
@@ -49,6 +49,14 @@ (defun canonify-qualifiers (qualifiers)
   "Return a canonical list of qualifiers."
   (delete-duplicates (sort (copy-list qualifiers) #'string<)))
 
+(export 'qualify-c-type)
+(defgeneric qualify-c-type (type qualifiers)
+  (:documentation
+   "Return a type like TYPE but with the specified QUALIFIERS.
+
+   The qualifiers of the returned type are the union of the requested
+   QUALIFIERS and the qualifiers already applied to TYPE."))
+
 (export 'c-type-subtype)
 (defgeneric c-type-subtype (type)
   (:documentation