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(a)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(a)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)
