~mdw
/
sod
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
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)
;; If no nickname, copy the class name. It won't be pretty, though.
(default-slot (class 'nickname)
- (get-property pset :nick :id (s
lot-value class 'name
)))
+ (get-property pset :nick :id (s
tring-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)