Changeset 3747 for trunk

Show
Ignore:
Timestamp:
08/28/08 17:56:17 (3 months ago)
Author:
hans
Message:

oops, renamed special variable and forgot to save

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

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

    r3746 r3747  
    116116              (if (listp name) 
    117117                  (destructuring-bind (local-name . namespace-uri) name 
    118                     (let ((namespace-alias (gethash namespace-uri *nsuri-lname-map*))) 
     118                    (let ((namespace-alias (gethash namespace-uri *nsuri-alias-map*))) 
    119119                      (unless namespace-alias 
    120120                        (error "cannot map namespace URI ~A to namespace-alias when making attribute ~A" namespace-uri a)) 
    …… 
    172172  (let* ((toplevel-attributes (cxml-xmls::compute-attributes/lnames toplevel t)) 
    173173         (*template-expander* expander) 
    174          (*nsuri-lname-map* (let ((map (make-hash-table :test #'equal))) 
     174         (*nsuri-alias-map* (let ((map (make-hash-table :test #'equal))) 
    175175                              (dolist (attribute toplevel-attributes) 
    176176                                (when (scan "^xmlns($|:)" (sax:attribute-qname attribute)) 
    177                                   (format t "mapping ~A => ~A~%" 
    178                                           (sax:attribute-namespace-uri attribute) 
    179                                           (sax:attribute-local-name attribute)) 
    180177                                  (setf (gethash (sax:attribute-value attribute) map) 
    181178                                        (sax:attribute-local-name attribute))))