Observe doctype in xuriella:document
authorDavid Lichteblau <david@lichteblau.com>
Sun, 27 Apr 2008 16:11:05 +0000 (27 18:11 +0200)
committerDavid Lichteblau <david@radon.(none)>
Sun, 27 Apr 2008 16:11:05 +0000 (27 18:11 +0200)
extensions.lisp

index f4d86a3..74b4730 100644 (file)
     ((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)
                     ((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)))))