diff options
| author | Matthias Benkard <code@mail.matthias.benkard.de> | 2008-02-05 18:20:38 +0100 |
|---|---|---|
| committer | Matthias Benkard <code@mail.matthias.benkard.de> | 2008-02-05 18:20:38 +0100 |
| commit | badb9704a51d45c5bef19b1acf4dbdf3bb439e78 (patch) | |
| tree | cb1a37a81ef85a7c59ee1a50e4692e4333dbe49d | |
| parent | 35394e73235d08acd47c1bfb12e3bf5430e0d7c1 (diff) | |
Use Camel Case for foreign slot names by default.
darcs-hash:5acf6a2a4a0bf35d26c30ba2169098ca25801ca9
| -rw-r--r-- | Lisp/name-conversion.lisp | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Lisp/name-conversion.lisp b/Lisp/name-conversion.lisp index 5137162..ee93067 100644 --- a/Lisp/name-conversion.lisp +++ b/Lisp/name-conversion.lisp @@ -117,7 +117,7 @@ (defun slot-name->foreign-slot-name (slot-name - &key (case-convention :underscored)) + &key (case-convention :camel-case)) (let ((string (name->canonised-lower-case (symbol-name slot-name)))) (ecase case-convention ((:camel-case) (name-hyphened->camel-case string)) |