From badb9704a51d45c5bef19b1acf4dbdf3bb439e78 Mon Sep 17 00:00:00 2001
From: Matthias Benkard <code@mail.matthias.benkard.de>
Date: Tue, 5 Feb 2008 18:20:38 +0100
Subject: Use Camel Case for foreign slot names by default.

darcs-hash:5acf6a2a4a0bf35d26c30ba2169098ca25801ca9
---
 Lisp/name-conversion.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'Lisp')

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))
-- 
cgit v1.2.3