diff options
| -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)) |