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

(begin
  (declare-type
   std/srfi/128#comparator::t
   (@struct-type std/srfi/128#comparator::t #f 4 #f ((final: . #t))))
  (declare-type
   std/srfi/128#comparator?
   (@struct-pred std/srfi/128#comparator::t))
  (declare-type
   std/srfi/128#make-comparator
   (@struct-cons std/srfi/128#comparator::t))
  (declare-type
   std/srfi/128#comparator-testf
   (@struct-getf std/srfi/128#comparator::t 0 #f))
  (declare-type
   std/srfi/128#comparator-eqf
   (@struct-getf std/srfi/128#comparator::t 1 #f))
  (declare-type
   std/srfi/128#comparator-orderf
   (@struct-getf std/srfi/128#comparator::t 2 #f))
  (declare-type
   std/srfi/128#comparator-hashf
   (@struct-getf std/srfi/128#comparator::t 3 #f))
  (declare-type
   std/srfi/128#comparator-testf-set!
   (@struct-setf std/srfi/128#comparator::t 0 #f))
  (declare-type
   std/srfi/128#comparator-eqf-set!
   (@struct-setf std/srfi/128#comparator::t 1 #f))
  (declare-type
   std/srfi/128#comparator-orderf-set!
   (@struct-setf std/srfi/128#comparator::t 2 #f))
  (declare-type
   std/srfi/128#comparator-hashf-set!
   (@struct-setf std/srfi/128#comparator::t 3 #f))
  (declare-type std/srfi/128#comparator-ordered? (@lambda 1 #f))
  (declare-type std/srfi/128#comparator-hashable? (@lambda 1 #f))
  (declare-type std/srfi/128#no-orderf (@lambda 2 #f))
  (declare-type std/srfi/128#no-hashf (@lambda 1 #f))
  (declare-type std/srfi/128#comparator-ordering-predicate (@lambda 1 #f))
  (declare-type std/srfi/128#comparator-hash-function (@lambda 1 #f))
  (declare-type std/srfi/128#comparator-test-type (@lambda 2 #f))
  (declare-type std/srfi/128#comparator-check-type (@lambda 2 #f))
  (declare-type std/srfi/128#comparator-hash (@lambda 2 #f))
  (declare-type std/srfi/128#make-pair-comparator (@lambda 2 #f))
  (declare-type std/srfi/128#make-list-comparator (@lambda 5 #f))
  (declare-type std/srfi/128#make-vector-comparator (@lambda 4 #f))
  (declare-type std/srfi/128#make-eq-comparator (@lambda 0 #f))
  (declare-type std/srfi/128#make-eqv-comparator (@lambda 0 #f))
  (declare-type std/srfi/128#make-equal-comparator (@lambda 0 #f))
  (declare-type std/srfi/128#boolean-hash (@lambda 1 #f))
  (declare-type std/srfi/128#char-hash (@lambda 1 eq?-hash))
  (declare-type std/srfi/128#char-ci-hash (@lambda 1 #f))
  (declare-type
   std/srfi/128#default-order
   (@lambda 2 std/srfi/128#:less::apply))
  (declare-type std/srfi/128#make-default-comparator (@lambda 0 #f))
  (declare-type std/srfi/128#comparator-register-default! (@lambda 1 #f))
  (declare-type std/srfi/128#:less::apply__0 (@lambda 1 #f))
  (declare-type std/srfi/128#:less::apply__1 (@lambda 2 #f))
  (declare-type std/srfi/128#:less::apply__2 (@lambda 3 #f))
  (declare-type std/srfi/128#:less::apply__3 (@lambda 4 #f))
  (declare-type std/srfi/128#:less::apply__4 (@lambda (0) #f))
  (declare-type
   std/srfi/128#:less::apply
   (@case-lambda
    (1 std/srfi/128#:less::apply__0)
    (2 std/srfi/128#:less::apply__1)
    (3 std/srfi/128#:less::apply__2)
    (4 std/srfi/128#:less::apply__3)
    ((0) std/srfi/128#:less::apply__4)))
  (declare-type std/srfi/128#:less::<null>::<pair> (@lambda 2 #f))
  (declare-type std/srfi/128#:less::<pair>::<null> (@lambda 2 #f))
  (declare-type std/srfi/128#:less::<pair>::<pair> (@lambda 2 #f))
  (declare-type std/srfi/128#:less::<boolean>::<boolean> (@lambda 2 #f))
  (declare-type std/srfi/128#:less::<char>::<char> (@lambda 2 char<?))
  (declare-type std/srfi/128#:less::<string>::<string> (@lambda 2 string<?))
  (declare-type std/srfi/128#:less::<symbol>::<symbol> (@lambda 2 #f))
  (declare-type std/srfi/128#:less::<keyword>::<keyword> (@lambda 2 #f))
  (declare-type std/srfi/128#:less::<vector>::<vector> (@lambda 2 #f))
  (declare-type std/srfi/128#:less::<u8vector>::<u8vector> (@lambda 2 #f))
  (declare-type std/srfi/128#:less::<number>::<number> (@lambda 2 #f))
  (declare-type std/srfi/128#=? (@lambda (2) #f))
  (declare-type std/srfi/128#<? (@lambda (2) #f))
  (declare-type std/srfi/128#<=? (@lambda (2) #f))
  (declare-type std/srfi/128#>? (@lambda (1) #f))
  (declare-type std/srfi/128#>=? (@lambda (1) #f)))
