[Fix reading of characters/processing instructions/comments
clinton@unknownlamer.org**20090501002726
 Ignore-this: 43da2f89d75d590fb4fd8052027af7a7
] hunk ./src/xmlisp2.lisp 76
-	(consume source)
hunk ./src/xmlisp2.lisp 77
-	   :until (eq (let ((ev (peek source)))
+	   :until (eq (let ((ev (peek-next source)))
hunk ./src/xmlisp2.lisp 88
-				   (parse-and-make-instance-1 source))
-		    (consume source)))
+				   (parse-and-make-instance-1 source))))