From 5af0428436be55c30f2ecc7b691cbcdde33f2228 Mon Sep 17 00:00:00 2001 From: dlichteblau Date: Mon, 23 Jan 2006 21:45:48 +0000 Subject: [PATCH] * give simple strings to puri * accept &rest arguments in parse-rod --- xml/xml-parse.lisp | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/xml/xml-parse.lisp b/xml/xml-parse.lisp index 0582ebc..41341c6 100644 --- a/xml/xml-parse.lisp +++ b/xml/xml-parse.lisp @@ -2011,7 +2011,7 @@ ;; :FILE and NIL anway. (when (eql (search "file://" str) 0) (setf str (subseq str (length "file://")))) - (puri:parse-uri str)) + (puri:parse-uri (coerce str 'simple-string))) (defun p/system-literal (input) (let* ((rod (p/id input)) @@ -3026,8 +3026,8 @@ (p/ext-subset zstream) (dtd *ctx*))))) -(defun parse-rod (string handler) - (parse-xstream (string->xstream string) handler)) +(defun parse-rod (string handler &rest args) + (apply #'parse-xstream (string->xstream string) handler args)) (defun string->xstream (string) (make-rod-xstream (string-rod string)))