summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMatthias Benkard <code@mail.matthias.benkard.de>2008-02-05 18:20:38 +0100
committerMatthias Benkard <code@mail.matthias.benkard.de>2008-02-05 18:20:38 +0100
commitbadb9704a51d45c5bef19b1acf4dbdf3bb439e78 (patch)
treecb1a37a81ef85a7c59ee1a50e4692e4333dbe49d
parent35394e73235d08acd47c1bfb12e3bf5430e0d7c1 (diff)
Use Camel Case for foreign slot names by default.
darcs-hash:5acf6a2a4a0bf35d26c30ba2169098ca25801ca9
-rw-r--r--Lisp/name-conversion.lisp2
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))