/[cl-l10n]/cl-l10n/locale.lisp
ViewVC logotype

Diff of /cl-l10n/locale.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.10 by sross, Wed May 18 15:34:08 2005 UTC revision 1.11 by sross, Mon Mar 20 09:13:58 2006 UTC
# Line 12  Line 12 
12    
13  (defvar *locale-path*  (defvar *locale-path*
14    (merge-pathnames (make-pathname :directory '(:relative "locales"))    (merge-pathnames (make-pathname :directory '(:relative "locales"))
15                     (directory-namestring *load-pathname*)))                     (asdf:component-pathname (asdf:find-system :cl-l10n))))
16    
17  (defvar *locale* nil)  (defvar *locale* nil)
18    
# Line 89  Line 89 
89    
90  (defun getenv (word)  (defun getenv (word)
91    #+sbcl (sb-ext:posix-getenv word)    #+sbcl (sb-ext:posix-getenv word)
92    #+lispworks (hcl:getenv word)    #+lispworks (lw:environment-variable word)
93    #+acl (sys:getenv word)    #+acl (sys:getenv word)
94    #+cmu (cdr (assoc (intern word :keyword) ext:*environment-list*))    #+cmu (cdr (assoc (intern word :keyword) ext:*environment-list*))
95    #+clisp (ext:getenv word)    #+clisp (ext:getenv word)

Legend:
Removed from v.1.10  
changed lines
  Added in v.1.11

  ViewVC Help
Powered by ViewVC 1.1.5