It lives!

[sod] / class-builder.lisp

diff --git a/class-builder.lisp b/class-builder.lisp
index 7acbeae..59dd4ee 100644 (file)
--- a/class-builder.lisp
+++ b/class-builder.lisp
@@ -129,7 +129,7 @@
 
   ;; 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)