4.13.11 Generating names for CLOS classes and accessors

Names of types are generated by mapping CamelCaseNames to dash-separated-names and interning them in specified package. Additionally, prefix from beginning of the name may be stripped ("GtkWidget" has prefix "Gtk", after stripping it maps to widget). Some names may require special processing (e.g., "GObject", "GInitiallyUnowned" should map to class names in gobject package; "GtkWindow" and "GdkWindow" should receive different symbol-names so that they can both be imported in one package).

Accessors for slots are generated by concatenating class name, dash and slot name, producing names like class-slot: container-child, button-label, etc.

Name generation affected by following variables:

• *strip-prefix* A string variable specifying the prefix that should to be stripped from the names to generate symbols (e.g., if (equal "Gtk" *strip-prefix*), then type named "GtkWidget" will map to class named widget.
• *lisp-name-exceptions* A plist mapping from strings (type names) to symbols (class names) that have special name processing. Example:

            `(("GObject" gobject:g-object)
              ("GtkObject" ,(intern "GTK-OBJECT" (find-package :gtk)))
              ("GInitiallyUnowned" gobject::g-initially-unowned)
              ("GtkWindow" ,(intern "GTK-WINDOW" (find-package :gtk)))
              ("GtkUIManager" ,(intern "UI-MANAGER" (find-package :gtk)))
              ("GtkUIManagerItemType" ,(intern "UI-MANAGER-ITEM-TYPE" (find-package :gtk))))