X-Git-Url: https://git.distorted.org.uk/~mdw/sod/blobdiff_plain/0a8f78ec333b8193d1155b5839aea67bb62cf480..refs/heads/mdw/progfmt:/src/c-types-impl.lisp

diff --git a/src/c-types-impl.lisp b/src/c-types-impl.lisp
index e5ead1b..7a2ff16 100644
--- a/src/c-types-impl.lisp
+++ b/src/c-types-impl.lisp
@@ -236,6 +236,7 @@
 	   (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)