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

[achiumenti at common-lisp.net]

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))