[Namespace translation
clinton@unknownlamer.org**20090428003828
 Ignore-this: 14437d3c928871642f03b797a6b5c7c1
 Customizable mapping from XMLNS->LISP-PACKAGE instead of forcing
 packages to be named after the xmlns
] hunk ./src/packages.lisp 51
-   *xmlisp-packages*
+   *xmlisp-packages* *xmlisp-ns-translations*
hunk ./src/xmlisp.lisp 116
+(defvar *xmlisp-ns-translations* (list (cons 'xml (find-package :xml)))
+  "alist mapping of namespaces to package name. If a namespace is not in
+this alist a package with the same name is used.")
+
hunk ./src/xmlisp.lisp 1214
+(defun find-ns-package (namespace)
+  (let ((maybe-package (assoc namespace *xmlisp-ns-translations*)))
+    (if maybe-package
+	(cdr maybe-package)
+	(find-package namespace))))
+
hunk ./src/xmlisp.lisp 1231
-        (find-package (intern (readtable-string (subseq Name 0 Colon-Position))))
+        (find-ns-package (intern (readtable-string (subseq Name 0 Colon-Position))
+				 :keyword))
hunk ./xmlisp.asd 8
+    :author "Clinton Ebadi <clinton@unknownlamer.org>"
hunk ./xmlisp.asd 10
-    :version "3.5.2"
+    :version "3.5.2.1"