It lives!

[sod] / class-builder.lisp

diff --git a/class-builder.lisp b/class-builder.lisp
index 7acbeaeed22351a3caa6fe9b69b55f56f141112d..59dd4eec8c757ec3e14e18aa947adb38f98a3fad 100644 (file)
--- a/class-builder.lisp
+++ b/class-builder.lisp
@@ -129,7 +129,7 @@ (defmethod shared-initialize :after ((class sod-class) slot-names &key pset)
 
   ;; If no nickname, copy the class name.  It won't be pretty, though.
   (default-slot (class 'nickname)
 
   ;; If no nickname, copy the class name.  It won't be pretty, though.
   (default-slot (class 'nickname)

-    (get-property pset :nick :id (slot-value class 'name)))
+    (get-property pset :nick :id (string-downcase (slot-value class 'name))))

 
   ;; If no metaclass, guess one in a (Lisp) class-specific way.
   (default-slot (class 'metaclass)
 
   ;; If no metaclass, guess one in a (Lisp) class-specific way.
   (default-slot (class 'metaclass)