[cl-l10n-cvs] CVS cl-l10n

[sross]

Update of /project/cl-l10n/cvsroot/cl-l10n
In directory clnet:/tmp/cvs-serv22485

Modified Files:
	ChangeLog locale.lisp 
Log Message:
Fix for *locale-path*

--- /project/cl-l10n/cvsroot/cl-l10n/ChangeLog	2005/05/25 09:30:51	1.18
+++ /project/cl-l10n/cvsroot/cl-l10n/ChangeLog	2006/03/20 09:13:57	1.19
@@ -1,3 +1,10 @@
+2006-03-20 Sean Ross	<sross at common-lisp.net>
+	* locale.lisp: Changed definition of *locale-path* to use
+	asdf:component-pathname of cl-l10n rather than the load path.
+	This resolves problems finding the locale files when fasl's are
+	not in the same directory as the source files.
+	Patch by Aycan iRiCAN
+	
 2005-05-25 Sean Ross	<sross at common-lisp.net>
 	* locales/ar_SA: revert.
 	* load-locale.lisp, printers.lisp: Added support for the .1 in the ar_SA locale.
--- /project/cl-l10n/cvsroot/cl-l10n/locale.lisp	2005/05/18 15:34:08	1.10
+++ /project/cl-l10n/cvsroot/cl-l10n/locale.lisp	2006/03/20 09:13:58	1.11
@@ -12,7 +12,7 @@
 
 (defvar *locale-path* 
   (merge-pathnames (make-pathname :directory '(:relative "locales"))
-                   (directory-namestring *load-pathname*)))
+                   (asdf:component-pathname (asdf:find-system :cl-l10n))))
 
 (defvar *locale* nil)
 
@@ -89,7 +89,7 @@
 
 (defun getenv (word)
   #+sbcl (sb-ext:posix-getenv word)
-  #+lispworks (hcl:getenv word)
+  #+lispworks (lw:environment-variable word)
   #+acl (sys:getenv word)
   #+cmu (cdr (assoc (intern word :keyword) ext:*environment-list*))
   #+clisp (ext:getenv word)