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