(setf (gethash name map) ds
(gethash label map) ds))))))
map)
- "Maps symbolic labels and textual names to DECLSPEC instances.")
+ "Maps symbolic labels and textual names to `declspec' instances.")
;; A collection of declaration specifiers, and how to merge them together.
we'll just have to live with that.
(Why are instances immutable? Because it's much easier to merge a new
- specifier into an existing collection, and then check that the resulting
- thing is valid rather than having to deal with all of the possible
+ specifier into an existing collection and then check that the resulting
+ thing is valid, rather than having to deal with all of the possible
special cases of what the new thing might be. And if the merged
collection isn't good, I must roll back to the previous version. So I
don't get to take advantage of a mutable structure.)"))
(defun scan-declspec
(scanner &key (predicate (constantly t)) (indicator :declspec))
- "Scan a DECLSPEC from SCANNER.
+ "Scan a `declspec' from SCANNER.
If PREDICATE is provided then only succeed if (funcall PREDICATE DECLSPEC)
is true, where DECLSPEC is the raw declaration specifier or C-type object,