Got rid of type-error and misspellings

defpackage.lisp

@@ -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
     ))
 

gettext-cffi.lisp

@@ -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)

gettext.lisp

@@ -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)