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

Diff of /cl-l10n/i18n.lisp

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

revision 1.6 by alendvai, Thu Jun 15 19:57:34 2006 UTC revision 1.7 by alendvai, Thu Jun 15 22:56:18 2006 UTC
# Line 106  When a resource key is a list, its eleme Line 106  When a resource key is a list, its eleme
106          (finally (return (with-unique-names (block fallback-tmp)          (finally (return (with-unique-names (block fallback-tmp)
107                             `(block ,block                             `(block ,block
108                               (let ((,fallback-tmp ,fallback))                               (let ((,fallback-tmp ,fallback))
109                                 (bind (((values resource foundp) (lookup-resource                                 (multiple-value-bind (resource foundp)
110                                                                   ,fallback-tmp nil :warn-if-missing nil :fallback-to-name nil)))                                     (lookup-resource ,fallback-tmp nil :warn-if-missing nil :fallback-to-name nil)
111                                   (when foundp                                   (when foundp
112                                     (return-from ,block (values resource t))))                                     (return-from ,block (values resource t))))
113                                 ,@(iter (for lookup in lookups)                                 ,@(iter (for lookup in lookups)
114                                         (collect `(bind (((values resource foundp) ,lookup))                                         (collect `(multiple-value-bind (resource foundp) ,lookup
115                                                    (when foundp                                                    (when foundp
116                                                      (return-from ,block (values resource t))))))                                                      (return-from ,block (values resource t))))))
117                                 (return-from ,block (values ,fallback-tmp nil)))))))))                                 (return-from ,block (values ,fallback-tmp nil)))))))))

Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7

  ViewVC Help
Powered by ViewVC 1.1.5