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

Diff of /cl-l10n/load-locale.lisp

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

revision 1.10 by sross, Tue Feb 22 14:18:25 2005 UTC revision 1.11 by sross, Thu Mar 24 14:47:01 2005 UTC
# Line 196  actual locale object." Line 196  actual locale object."
196    (let ((from (trim (subseq line (position #\Space line))    (let ((from (trim (subseq line (position #\Space line))
197                      (cons #\" *whitespace*))))                      (cons #\" *whitespace*))))
198      (handler-case (let* ((locale (locale from)))      (handler-case (let* ((locale (locale from)))
199                      (or (get-category cat locale)                      (or (get-category locale cat)
200                          (locale-error "No category ~A in locale ~A."                          (locale-error "No category ~A in locale ~A."
201                                        cat from)))                                        cat from)))
202        (error (c) (locale-error "Unable to copy Category ~A from ~A. ~A."        (error (c) (locale-error "Unable to copy Category ~A from ~A. ~A."
# Line 318  actual locale object." Line 318  actual locale object."
318        (locale (getenv "LC_CTYPE") :errorp nil)        (locale (getenv "LC_CTYPE") :errorp nil)
319        (locale "POSIX")))        (locale "POSIX")))
320    
 (load-default-locale)  
321    
322    
323  ;; EOF  ;; EOF

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

  ViewVC Help
Powered by ViewVC 1.1.5