prelude: :gerbil/compiler/ssxi
package: std/xml

(begin
  (declare-type std/xml/ssax#read-xml__% (@lambda 3 #f))
  (declare-type
   std/xml/ssax#read-xml__@
   (@kw-lambda-dispatch (namespaces:) std/xml/ssax#read-xml__%))
  (declare-type
   std/xml/ssax#read-xml
   (@kw-lambda (namespaces:) std/xml/ssax#read-xml__@))
  (declare-type
   std/xml/ssax#ssax:warn
   (ast-rules
    (%#call %#ref)
    ((%#call _ (%#ref arg) ...) (%#quote #!void))
    ((%#call _ arg ...) (%#begin arg ... (%#quote #!void)))))
  (declare-type std/xml/ssax#string-null? (@lambda 1 #f))
  (declare-type std/xml/ssax#cout (@lambda (0) #f))
  (declare-type std/xml/ssax#cerr (@lambda (0) #f))
  (declare-type std/xml/ssax#ascii->char (@lambda 1 #f))
  (declare-type std/xml/ssax#ucscode->char (@lambda 1 integer->char))
  (declare-type std/xml/ssax#parser-error (@lambda (2) #f))
  (declare-type std/xml/ssax#peek-next-char__% (@lambda 1 #f))
  (declare-type std/xml/ssax#peek-next-char__0 (@lambda 0 #f))
  (declare-type
   std/xml/ssax#peek-next-char
   (@case-lambda
    (0 std/xml/ssax#peek-next-char__0)
    (1 std/xml/ssax#peek-next-char__%)))
  (declare-type std/xml/ssax#assert-curr-char__% (@lambda 3 #f))
  (declare-type std/xml/ssax#assert-curr-char__0 (@lambda 2 #f))
  (declare-type
   std/xml/ssax#assert-curr-char
   (@case-lambda
    (2 std/xml/ssax#assert-curr-char__0)
    (3 std/xml/ssax#assert-curr-char__%)))
  (declare-type std/xml/ssax#skip-until__% (@lambda 2 #f))
  (declare-type std/xml/ssax#skip-until__0 (@lambda 1 #f))
  (declare-type
   std/xml/ssax#skip-until
   (@case-lambda
    (1 std/xml/ssax#skip-until__0)
    (2 std/xml/ssax#skip-until__%)))
  (declare-type std/xml/ssax#skip-while__% (@lambda 2 #f))
  (declare-type std/xml/ssax#skip-while__0 (@lambda 1 #f))
  (declare-type
   std/xml/ssax#skip-while
   (@case-lambda
    (1 std/xml/ssax#skip-while__0)
    (2 std/xml/ssax#skip-while__%)))
  (declare-type std/xml/ssax#input-parse:init-buffer (@lambda 0 #f))
  (declare-type std/xml/ssax#next-token-old__% (@lambda 4 #f))
  (declare-type std/xml/ssax#next-token-old__0 (@lambda 2 #f))
  (declare-type std/xml/ssax#next-token-old__1 (@lambda 3 #f))
  (declare-type
   std/xml/ssax#next-token-old
   (@case-lambda
    (2 std/xml/ssax#next-token-old__0)
    (3 std/xml/ssax#next-token-old__1)
    (4 std/xml/ssax#next-token-old__%)))
  (declare-type std/xml/ssax#next-token__% (@lambda 4 #f))
  (declare-type std/xml/ssax#next-token__0 (@lambda 2 #f))
  (declare-type std/xml/ssax#next-token__1 (@lambda 3 #f))
  (declare-type
   std/xml/ssax#next-token
   (@case-lambda
    (2 std/xml/ssax#next-token__0)
    (3 std/xml/ssax#next-token__1)
    (4 std/xml/ssax#next-token__%)))
  (declare-type std/xml/ssax#next-token-of__% (@lambda 2 #f))
  (declare-type std/xml/ssax#next-token-of__0 (@lambda 1 #f))
  (declare-type
   std/xml/ssax#next-token-of
   (@case-lambda
    (1 std/xml/ssax#next-token-of__0)
    (2 std/xml/ssax#next-token-of__%)))
  (declare-type std/xml/ssax#read-text-line__% (@lambda 1 #f))
  (declare-type std/xml/ssax#read-text-line__0 (@lambda 0 #f))
  (declare-type
   std/xml/ssax#read-text-line
   (@case-lambda
    (0 std/xml/ssax#read-text-line__0)
    (1 std/xml/ssax#read-text-line__%)))
  (declare-type std/xml/ssax#read-string__% (@lambda 2 #f))
  (declare-type std/xml/ssax#read-string__0 (@lambda 1 #f))
  (declare-type
   std/xml/ssax#read-string
   (@case-lambda
    (1 std/xml/ssax#read-string__0)
    (2 std/xml/ssax#read-string__%)))
  (declare-type std/xml/ssax#MISCIO:find-string-from-port? (@lambda (2) #f))
  (declare-type std/xml/ssax#find-string-from-port? (@lambda (2) #f))
  (declare-type std/xml/ssax#make-xml-token (@lambda 2 cons))
  (declare-type std/xml/ssax#xml-token? (@lambda 1 #f))
  (declare-type std/xml/ssax#string-whitespace? (@lambda 1 #f))
  (declare-type std/xml/ssax#assq-values (@lambda 2 #f))
  (declare-type std/xml/ssax#fold-right (@lambda 3 #f))
  (declare-type std/xml/ssax#fold (@lambda 3 #f))
  (declare-type std/xml/ssax#ssax:skip-S (@lambda 1 #f))
  (declare-type std/xml/ssax#ssax:ncname-starting-char? (@lambda 1 #f))
  (declare-type std/xml/ssax#ssax:read-NCName (@lambda 1 #f))
  (declare-type std/xml/ssax#ssax:read-QName (@lambda 1 #f))
  (declare-type std/xml/ssax#name-compare (@lambda 2 #f))
  (declare-type std/xml/ssax#ssax:read-markup-token (@lambda 1 #f))
  (declare-type std/xml/ssax#ssax:skip-pi (@lambda 1 #f))
  (declare-type std/xml/ssax#ssax:read-pi-body-as-string (@lambda 1 #f))
  (declare-type std/xml/ssax#ssax:skip-internal-dtd (@lambda 1 #f))
  (declare-type std/xml/ssax#ssax:read-cdata-body (@lambda 3 #f))
  (declare-type std/xml/ssax#ssax:read-char-ref (@lambda 1 #f))
  (declare-type std/xml/ssax#ssax:handle-parsed-entity (@lambda 6 #f))
  (declare-type std/xml/ssax#make-empty-attlist (@lambda 0 #f))
  (declare-type std/xml/ssax#attlist-add (@lambda 2 #f))
  (declare-type std/xml/ssax#attlist-null? (@lambda 1 #f))
  (declare-type std/xml/ssax#attlist-remove-top (@lambda 1 #f))
  (declare-type std/xml/ssax#attlist->alist (@lambda 1 #f))
  (declare-type std/xml/ssax#attlist-fold (@lambda 3 #f))
  (declare-type std/xml/ssax#ssax:read-attributes (@lambda 2 #f))
  (declare-type std/xml/ssax#ssax:resolve-name (@lambda 4 #f))
  (declare-type
   std/xml/ssax#ssax:uri-string->symbol
   (@lambda 1 string->symbol))
  (declare-type std/xml/ssax#ssax:complete-start-tag (@lambda 5 #f))
  (declare-type std/xml/ssax#ssax:read-external-id (@lambda 1 #f))
  (declare-type std/xml/ssax#ssax:scan-Misc (@lambda 1 #f))
  (declare-type std/xml/ssax#ssax:read-char-data (@lambda 4 #f))
  (declare-type std/xml/ssax#ssax:assert-token (@lambda 4 #f))
  (declare-type std/xml/ssax#ssax:reverse-collect-str (@lambda 1 #f))
  (declare-type std/xml/ssax#ssax:reverse-collect-str-drop-ws (@lambda 1 #f))
  (declare-type std/xml/ssax#ssax:xml->sxml (@lambda 2 #f))
  (declare-type std/xml/ssax#SSAX:XML->SXML (@lambda 2 #f)))
