From df50f2547da40d7fc1cca118695e11a840eb9c16 Mon Sep 17 00:00:00 2001 From: dlichteblau Date: Sun, 14 Oct 2007 18:40:26 +0000 Subject: [PATCH] Fixed (parse xstream ...). * xml/xml-parse.lisp (PARSE): Call parse-xstream, not make-xstream. --- xml/xml-parse.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/xml/xml-parse.lisp b/xml/xml-parse.lisp index bce6458..cabf17b 100644 --- a/xml/xml-parse.lisp +++ b/xml/xml-parse.lisp @@ -3102,7 +3102,7 @@ unless (eq name :pathname) append (list name value)))) (etypecase input - (xstream (apply #'make-xstream input handler args)) + (xstream (apply #'parse-xstream input handler args)) (pathname (apply #'parse-file input handler args)) (rod (apply #'parse-rod input handler args)) (array (apply #'parse-octets input handler args)) -- 2.11.4.GIT