[bknr-cvs] hans changed trunk/bknr/web/src/web/template-handler.lisp

[BKNR Commits]

Revision: 3747
Author: hans
URL: http://bknr.net/trac/changeset/3747

oops, renamed special variable and forgot to save

U   trunk/bknr/web/src/web/template-handler.lisp

Modified: trunk/bknr/web/src/web/template-handler.lisp
===================================================================
--- trunk/bknr/web/src/web/template-handler.lisp	2008-08-28 15:54:05 UTC (rev 3746)
+++ trunk/bknr/web/src/web/template-handler.lisp	2008-08-28 15:56:17 UTC (rev 3747)
@@ -115,7 +115,7 @@
             (destructuring-bind (name value) a
 	      (if (listp name)
 		  (destructuring-bind (local-name . namespace-uri) name
-                    (let ((namespace-alias (gethash namespace-uri *nsuri-lname-map*)))
+                    (let ((namespace-alias (gethash namespace-uri *nsuri-alias-map*)))
                       (unless namespace-alias
                         (error "cannot map namespace URI ~A to namespace-alias when making attribute ~A" namespace-uri a))
                       (sax:make-attribute :namespace-uri namespace-uri
@@ -171,12 +171,9 @@
   ;; be revised with newer cxml releases.
   (let* ((toplevel-attributes (cxml-xmls::compute-attributes/lnames toplevel t))
          (*template-expander* expander)
-         (*nsuri-lname-map* (let ((map (make-hash-table :test #'equal)))
+         (*nsuri-alias-map* (let ((map (make-hash-table :test #'equal)))
                               (dolist (attribute toplevel-attributes)
                                 (when (scan "^xmlns($|:)" (sax:attribute-qname attribute))
-                                  (format t "mapping ~A => ~A~%"
-                                          (sax:attribute-namespace-uri attribute)
-                                          (sax:attribute-local-name attribute))
                                   (setf (gethash (sax:attribute-value attribute) map)
                                         (sax:attribute-local-name attribute))))
                               map)))