[Remove pointless `extend-xmlns-package-map'
clinton@unknownlamer.org**20090501003440
 Ignore-this: c23e32a365c84ff88715efecb7ea7db2
] hunk ./src/xmlisp2.lisp 24
-(defun extend-xmlns-package-map (source)
-  (let ((mappings (list)))
-    (map-current-namespace-declarations
-     (lambda (prefix uri)
-       (push (cons uri
-		   (or (xmlns->package uri)
-		       (find-package (normalize-symbol-case prefix))))
-	     mappings))
-     source)
-    mappings))
-
hunk ./src/xmlisp2.lisp 54
-    (let ((*xmlns-to-package* (cons (extend-xmlns-package-map source)
-				    *xmlns-to-package*)))
-      (let ((instance (make-instance (find-xml-class uri lname))))
-	(map-attributes (lambda (uri lname qname value defaultp)
-			  (declare (ignore qname defaultp))
-			  #+nil(break "MAP-ATTRIBUTES (~A ~A)=~A" uri lname value)
-			  (set-attribute-value instance
-					       (xml-name->symbol uri lname)
-					       value))
-			source)
-	#+nil(break "scanning children")
-	(loop
-	   :until (eq (let ((ev (peek-next source)))
-				#+nil(break "... event = ~A" ev)
-				ev)
-		      :end-element)
-	   :do (ecase (peek source)
-		 ((:start-element)
-		  (multiple-value-bind (key uri lname qname) (peek source)
-		    (declare (ignore qname))
-		    #+nil(break "subobject: (~A ~A) / ev ~A" uri lname key)
-		    (add-subobject instance
-				   (xml-name->symbol uri lname)
-				   (parse-and-make-instance-1 source))))
-		 ((:characters)
-		  #+nil(break "chars: ~S" (current-characters source))
-		  (add-character-data instance
-				      (current-characters source)
-				      (current-cdata-section-p source)))
-		 ((:processing-instruction)
-		  (multiple-value-bind (target data) (peek-value source)
-		    (handle-processing-instruction instance target data)))
-		 ((:comment)
-		  (handle-comment instance (peek-value source)))))
-	#+nil(break "created instance ~A" instance)
-	(finished-parsing instance)))))
+    (let ((instance (make-instance (find-xml-class uri lname))))
+      (map-attributes (lambda (uri lname qname value defaultp)
+			(declare (ignore qname defaultp))
+			#+nil(break "MAP-ATTRIBUTES (~A ~A)=~A" uri lname value)
+			(set-attribute-value instance
+					     (xml-name->symbol uri lname)
+					     value))
+		      source)
+      #+nil(break "scanning children")
+      (loop
+	 :until (eq (let ((ev (peek-next source)))
+		      #+nil(break "... event = ~A" ev)
+		      ev)
+		    :end-element)
+	 :do (ecase (peek source)
+	       ((:start-element)
+		(multiple-value-bind (key uri lname qname) (peek source)
+		  (declare (ignore qname))
+		  #+nil(break "subobject: (~A ~A) / ev ~A" uri lname key)
+		  (add-subobject instance
+				 (xml-name->symbol uri lname)
+				 (parse-and-make-instance-1 source))))
+	       ((:characters)
+		#+nil(break "chars: ~S" (current-characters source))
+		(add-character-data instance
+				    (current-characters source)
+				    (current-cdata-section-p source)))
+	       ((:processing-instruction)
+		(multiple-value-bind (target data) (peek-value source)
+		  (handle-processing-instruction instance target data)))
+	       ((:comment)
+		(handle-comment instance (peek-value source)))))
+      #+nil(break "created instance ~A" instance)
+      (finished-parsing instance))))