Thu Dec 3 00:07:44 UTC 2009 pix@kepibu.org

* Fix copy-paste issue.

--- old-Oh, Ducks!/cxml.lisp 2013-07-24 10:32:10.000000000 +0000

+++ new-Oh, Ducks!/cxml.lisp 2013-07-24 10:32:10.000000000 +0000

@@ -13,7 +13,7 @@

(defmethod make-template ((kind (eql 'xml)) (spec cons))

(destructuring-bind (&key parser model)

(append (when (%spec-includes-opts spec) (second spec))

- (list :model 'pt))

+ (list :model 'dom))

(make-instance 'xml-template

:parser (or parser (rcurry #'cxml:parse (get-handler-for-model model)))

:spec spec)))