Permalink
Browse files

Got rid of type-error and misspellings

  • Loading branch information...
1 parent 2d70b9b commit 4bc53ed57b6d7145bf9bd17415e688c78ccbb4ee @krzysz00 committed Jun 17, 2011
Showing with 28 additions and 29 deletions.
  1. +14 −14 defpackage.lisp
  2. +13 −14 gettext-cffi.lisp
  3. +1 −1 gettext.lisp
View
@@ -26,25 +26,25 @@ Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
:gettext
:ngettext
:textdomain
- :bindtextbomain
+ :bindtextdomain
:bind_textdomain_codeset
:setlocale
:localeconv
:init-gettext
:_
:_noop
- :LC_CTYPE
- :LC_NUMERIC
- :LC_TIME
- :LC_COLLATE
- :LC_MONETARY
- :LC_MESSAGES
- :LC_ALL
- :LC_PAPER
- :LC_NAME
- :LC_ADDRESS
- :LC_TELEPHONE
- :LC_MEASUREMENT
- :LC_IDENTIFICATION
+ :LC-CTYPE
+ :LC-NUMERIC
+ :LC-TIME
+ :LC-COLLATE
+ :LC-MONETARY
+ :LC-MESSAGES
+ :LC-ALL
+ :LC-PAPER
+ :LC-NAME
+ :LC-ADDRESS
+ :LC-TELEPHONE
+ :LC-MEASUREMENT
+ :LC-IDENTIFICATION
))
View
@@ -108,20 +108,19 @@ Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
(__domainname :string)
(__codeset :string))
-(defanonenum
- (LC_CTYPE #.0)
- (LC_NUMERIC #.1)
- (LC_TIME #.2)
- (LC_COLLATE #.3)
- (LC_MONETARY #.4)
- (LC_MESSAGES #.5)
- (LC_ALL #.6)
- (LC_PAPER #.7)
- (LC_NAME #.8)
- (LC_ADDRESS #.9)
- (LC_TELEPHONE #.10)
- (LC_MEASUREMENT #.11)
- (LC_IDENTIFICATION #.12))
+(defconstant LC-CTYPE 0)
+(defconstant LC-NUMERIC 1)
+(defconstant LC-TIME 2)
+(defconstant LC-COLLATE 3)
+(defconstant LC-MONETARY 4)
+(defconstant LC-MESSAGES 5)
+(defconstant LC-ALL 6)
+(defconstant LC-PAPER 7)
+(defconstant LC-NAME 8)
+(defconstant LC-ADDRESS 9)
+(defconstant LC-TELEPHONE 10)
+(defconstant LC-MEASUREMENT 11)
+(defconstant LC-IDENTIFICATION 12)
(cffi:defcstruct lconv
(decimal_point :string)
View
@@ -19,7 +19,7 @@ Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
(in-package :cl-gettext)
-(defun init-gettext (textdomain directory &optional (locales '(LC_ALL)))
+(defun init-gettext (textdomain directory &optional (locales (list lc-all)))
(loop for i in locales do
(setlocale i ""))
(bindtextdomain textdomain directory)

0 comments on commit 4bc53ed

Please sign in to comment.