From sross at common-lisp.net Mon Mar 20 09:13:58 2006 From: sross at common-lisp.net (sross) Date: Mon, 20 Mar 2006 04:13:58 -0500 (EST) Subject: [cl-l10n-cvs] CVS cl-l10n Message-ID: <20060320091358.78A125D087@common-lisp.net> 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 + * 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 * 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)