From: David Lichteblau <david@lichteblau.com>
Date: Sun, 27 Apr 2008 16:11:05 +0000 (+0200)
Subject: Observe doctype in xuriella:document
X-Git-Url: https://repo.or.cz/w/xuriella.git/commitdiff_plain/5e8b948181b968d607293e7e6a029483995af92b

Observe doctype in xuriella:document
---

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)))))