OSCL/CXML
2
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

* give simple strings to puri

Browse Source 
* accept &rest arguments in parse-rod
This commit is contained in:
dlichteblau
2006-01-23 21:45:48 +00:00
parent 4333b81b12
commit 5af0428436
1 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
xml/xml-parse.lisp
View File

@ -2011,7 +2011,7 @@
;; :FILE and NIL anway. ;; :FILE and NIL anway.
(when (eql (search "file://" str) 0) (when (eql (search "file://" str) 0)
(setf str (subseq str (length "file://")))) (setf str (subseq str (length "file://"))))
(puri:parse-uri str)) (puri:parse-uri (coerce str 'simple-string)))
(defun p/system-literal (input) (defun p/system-literal (input)
(let* ((rod (p/id input)) (let* ((rod (p/id input))
@ -3026,8 +3026,8 @@
(p/ext-subset zstream) (p/ext-subset zstream)
(dtd *ctx*))))) (dtd *ctx*)))))
(defun parse-rod (string handler) (defun parse-rod (string handler &rest args)
(parse-xstream (string->xstream string) handler)) (apply #'parse-xstream (string->xstream string) handler args))
(defun string->xstream (string) (defun string->xstream (string)
(make-rod-xstream (string-rod string))) (make-rod-xstream (string-rod string)))