[claw-cvs] r15 - trunk/main/claw-core/src

Author: achiumenti Date: Wed Mar 12 07:49:10 2008 New Revision: 15

Modified: trunk/main/claw-core/src/tags.lisp Log: implemented message-dispatch for I18N-AWARE class

Modified: trunk/main/claw-core/src/tags.lisp ============================================================================== --- trunk/main/claw-core/src/tags.lisp (original) +++ trunk/main/claw-core/src/tags.lisp Wed Mar 12 07:49:10 2008 @@ -1133,7 +1133,9 @@ (when dispatcher (progn (setf result (message-dispatch dispatcher key locale)) - (when (null result)))) + (when (and (null result) (> (length key) 2)) + (setf result (message-dispatch dispatcher (subseq key 0 2) locale))))) + result))