Wed Nov 18 10:25:48 UTC 2009 pix@kepibu.org

* Try to set a sensible default for *default-parser*

--- old-Oh, Ducks!/chtml.lisp 2015-04-10 16:15:01.000000000 +0000

+++ new-Oh, Ducks!/chtml.lisp 2015-04-10 16:15:01.000000000 +0000

@@ -24,3 +24,5 @@

(make-instance 'pt-template :spec spec))

(defmethod make-template-for-parser ((parser (eql :pt)) spec)

(make-template-for-parser 'pt spec))

+

+(unless *default-parser* (setf *default-parser* 'pt))

--- old-Oh, Ducks!/cxml.lisp 2015-04-10 16:15:01.000000000 +0000

+++ new-Oh, Ducks!/cxml.lisp 2015-04-10 16:15:01.000000000 +0000

@@ -12,3 +12,5 @@

(make-instance 'dom-template :spec spec))

(defmethod make-template-for-parser ((parser (eql :dom)) spec)

(make-template-for-parser 'dom spec))

+

+(unless *default-parser* (setf *default-parser* 'dom))