From 5e8b948181b968d607293e7e6a029483995af92b Mon Sep 17 00:00:00 2001
From: David Lichteblau <david@lichteblau.com>
Date: Sun, 27 Apr 2008 18:11:05 +0200
Subject: [PATCH] Observe doctype in xuriella:document

---
 extensions.lisp | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/extensions.lisp b/extensions.lisp
index f4d86a3..74b4730 100644
--- a/extensions.lisp
+++ b/extensions.lisp
@@ -143,7 +143,6 @@
     ((href &key method indent doctype-public doctype-system)
      &body body
      &environment env)
-  (declare (ignore doctype-public doctype-system)) ;fixme
   (let ((thunk (compile-instruction `(progn ,@body) env))
         (href-thunk (compile-avt href env)))
     (lambda (ctx)
@@ -163,5 +162,7 @@
                     ((equalp method "TEXT") :text)
                     (t
                      (xslt-error "invalid output method: ~A" method)))
-          :indent indent)
+          :indent indent
+          :doctype-public doctype-public
+          :doctype-system doctype-system)
          pathname)))))
-- 
2.11.4.GIT