(export 'canonify-qualifiers)
(defun canonify-qualifiers (qualifiers)
- "Return a canonical list of qualifiers."
- (delete-duplicates (sort (copy-list qualifiers) #'string<)))
+ "Return a canonical list of qualifiers.
+
+ Duplicates and `nil' entries are deleted, and the remaining entries are
+ sorted."
+ (sort (delete-duplicates (delete nil (copy-list qualifiers))) #'string<))
(export 'qualify-c-type)
(defgeneric qualify-c-type (type qualifiers)
((char= ch #\-)
(write-char #\_ out))
(t
- (error "Bad character in C name ~S." name))))))
+ (error "Bad character in C name ~S" name))))))
(t name)))
;;;--------------------------------------------------------------------------