From 1135803c81182b20eaf4d2af7db95995eb53a781 Mon Sep 17 00:00:00 2001 From: Abdulaziz Ghuloum Date: Sun, 26 Aug 2007 18:51:16 -0400 Subject: [PATCH] * Categorised what needs to be done in r6rs-todo.ss --- src/r6rs-todo.ss | 1445 ++++++++++++++++++++++++---------------------- 1 file changed, 740 insertions(+), 705 deletions(-) mode change 100644 => 100755 src/r6rs-todo.ss diff --git a/src/r6rs-todo.ss b/src/r6rs-todo.ss old mode 100644 new mode 100755 index e0badf0..49193fb --- a/src/r6rs-todo.ss +++ b/src/r6rs-todo.ss @@ -1,4 +1,6 @@ +#!/usr/bin/env ikarus --r6rs-script +(import (ikarus)) ;;; library names: @@ -38,709 +40,742 @@ [U unknown])) -(define identifier-names - '([and U ba] - [begin U ba] - [case U ba] - [cond U ba] - [define U ba] - [define-syntax U ba] - [identifier-syntax U ba] - [if U ba] - [let U ba] - [let* U ba] - [let*-values U ba] - [let-syntax U ba] - [let-values U ba] - [letrec U ba] - [letrec* U ba] - [letrec-syntax U ba] - [or U ba] - [quasiquote U ba] - [quote U ba] - [set! U ba] - [syntax-rules U ba] - [unquote U ba] - [unquote-splicing U ba] - [< U ba] - [<= U ba] - [= U ba] - [> U ba] - [>= U ba] - [+ U ba] - [- U ba] - [* U ba] - [/ U ba] - [abs U ba] - [acos U ba] - [angle U ba] - [append U ba] - [apply U ba] - [asin U ba] - [assert U ba] - [assertion-violation U ba] - [atan U ba] - [boolean=? U ba] - [boolean? U ba] - [car U ba] - [cdr U ba] - [caar U ba] - [cadr U ba] - [cdar U ba] - [cddr U ba] - [caaar U ba] - [caadr U ba] - [cadar U ba] - [caddr U ba] - [cdaar U ba] - [cdadr U ba] - [cddar U ba] - [cdddr U ba] - [caaaar U ba] - [caaadr U ba] - [caadar U ba] - [caaddr U ba] - [cadaar U ba] - [cadadr U ba] - [caddar U ba] - [cadddr U ba] - [cdaaar U ba] - [cdaadr U ba] - [cdadar U ba] - [cdaddr U ba] - [cddaar U ba] - [cddadr U ba] - [cdddar U ba] - [cddddr U ba] - [call-with-current-continuation U ba] - [call/cc U ba] - [call-with-values U ba] - [ceiling U ba] - [char->integer U ba] - [char<=? U ba] - [char=? U ba] - [char>? U ba] - [char? U ba] - [complex? U ba] - [condition? U co] - [cons U ba] - [cos U ba] - [denominator U ba] - [div U ba] - [div-and-mod U ba] - [div0 U ba] - [div0-and-mod0 U ba] - [dynamic-wind U ba] - [else U ba ex] - [eq? U ba] - [equal? U ba] - [eqv? U ba] - [error U ba] - [even? U ba] - [exact U ba] - [exact-integer-sqrt U ba] - [exact? U ba] - [exp U ba] - [expt U ba] - [finite? U ba] - [floor U ba] - [for-each U ba] - [gcd U ba] - [imag-part U ba] - [inexact U ba] - [inexact? U ba] - [infinite? U ba] - [integer->char U ba] - [integer-valued? U ba] - [integer? U ba] - [lambda U ba] - [lcm U ba] - [length U ba] - [list U ba] - [list->string U ba] - [list->vector U ba] - [list-ref U ba] - [list-tail U ba] - [list? U ba] - [log U ba] - [magnitude U ba] - [make-polar U ba] - [make-rectangular U ba] - [make-string U ba] - [make-vector U ba] - [map U ba] - [max U ba] - [min U ba] - [mod U ba] - [mod0 U ba] - [nan? U ba] - [negative? U ba] - [not U ba] - [null? U ba] - [number->string U ba] - [number? U ba] - [numerator U ba] - [odd? U ba] - [pair? U ba] - [positive? U ba] - [procedure? U ba] - [raise U ex] - [raise-continuable U ex] - [rational-valued? U ba] - [rational? U ba] - [rationalize U ba] - [real-part U ba] - [real-valued? U ba] - [real? U ba] - [reverse U ba] - [round U ba] - [set-car! U mp] - [set-cdr! U mp] - [sin U ba] - [sqrt U ba] - [string U ba] - [string->list U ba] - [string->number U ba] - [string->symbol U ba] - [string-append U ba] - [string-copy U ba] - [string-for-each U ba] - [string-length U ba] - [string-ref U ba] - [string<=? U ba] - [string=? U ba] - [string>? U ba] - [string? U ba] - [substring U ba] - [symbol->string U ba] - [symbol=? U ba] - [symbol? U ba] - [tan U ba] - [truncate U ba] - [values U ba] - [vector U ba] - [vector->list U ba] - [vector-fill! U ba] - [vector-for-each U ba] - [vector-length U ba] - [vector-map U ba] - [vector-ref U ba] - [vector-set! U ba] - [vector? U ba] - [with-exception-handler U ex] - [zero? U ba] - [... U ba sc] - [=> U ba ex] - [_ U ba sc] - [&assertion U co] - [assertion-violation? U co] - [assoc U ls] - [assp U ls] - [assq U ls] - [assv U ls] - [binary-port? U ip] - [bitwise-and U bw] - [bitwise-arithmetic-shift U bw] - [bitwise-arithmetic-shift-left U bw] - [bitwise-arithmetic-shift-right U bw] - [bitwise-bit-count U bw] - [bitwise-bit-field U bw] - [bitwise-bit-set? U bw] - [bitwise-copy-bit U bw] - [bitwise-copy-bit-field U bw] - [bitwise-first-bit-set U bw] - [bitwise-if U bw] - [bitwise-ior U bw] - [bitwise-length U bw] - [bitwise-not U bw] - [bitwise-reverse-bit-field U bw] - [bitwise-rotate-bit-field U bw] - [bitwise-xor U bw] - [bound-identifier=? U sc] - [buffer-mode U ip] - [buffer-mode? U ip] - [bytevector->sint-list U bv] - [bytevector->string U ip] - [bytevector->u8-list U bv] - [bytevector->uint-list U bv] - [bytevector-copy U bv] - [bytevector-copy! U bv] - [bytevector-fill! U bv] - [bytevector-ieee-double-native-ref U bv] - [bytevector-ieee-double-native-set! U bv] - [bytevector-ieee-double-ref U bv] - [bytevector-ieee-single-native-ref U bv] - [bytevector-ieee-single-native-set! U bv] - [bytevector-ieee-single-ref U bv] - [bytevector-length U bv] - [bytevector-s16-native-ref U bv] - [bytevector-s16-native-set! U bv] - [bytevector-s16-ref U bv] - [bytevector-s16-set! U bv] - [bytevector-s32-native-ref U bv] - [bytevector-s32-native-set! U bv] - [bytevector-s32-ref U bv] - [bytevector-s32-set! U bv] - [bytevector-s64-native-ref U bv] - [bytevector-s64-native-set! U bv] - [bytevector-s64-ref U bv] - [bytevector-s64-set! U bv] - [bytevector-s8-ref U bv] - [bytevector-s8-set! U bv] - [bytevector-sint-ref U bv] - [bytevector-sint-set! U bv] - [bytevector-u16-native-ref U bv] - [bytevector-u16-native-set! U bv] - [bytevector-u16-ref U bv] - [bytevector-u16-set! U bv] - [bytevector-u32-native-ref U bv] - [bytevector-u32-native-set! U bv] - [bytevector-u32-ref U bv] - [bytevector-u32-set! U bv] - [bytevector-u64-native-ref U bv] - [bytevector-u64-native-set! U bv] - [bytevector-u64-ref U bv] - [bytevector-u64-set! U bv] - [bytevector-u8-ref U bv] - [bytevector-u8-set! U bv] - [bytevector-uint-ref U bv] - [bytevector-uint-set! U bv] - [bytevector=? U bv] - [bytevector? U bv] - [call-with-bytevector-output-port U ip] - [call-with-input-file U is] - [call-with-output-file U is] - [call-with-port U ip] - [call-with-string-output-port U ip] - [case-lambda U ct] - [char-alphabetic? U uc] - [char-ci<=? U uc] - [char-ci=? U uc] - [char-ci>? U uc] - [char-downcase U uc] - [char-foldcase U uc] - [char-general-category U uc] - [char-lower-case? U uc] - [char-numeric? U uc] - [char-title-case? U uc] - [char-titlecase U uc] - [char-upcase U uc] - [char-upper-case? U uc] - [char-whitespace? U uc] - [close-input-port U is] - [close-output-port U is] - [close-port U ip] - [command-line U pr] - [&condition U co] - [condition U co] - [condition-accessor U co] - [condition-irritants U co] - [condition-message U co] - [condition-predicate U co] - [condition-who U co] - [condition? U co] - [cons* U ls] - [current-error-port U ip is] - [current-input-port U ip is] - [current-output-port U ip is] - [datum->syntax U sc] - [define-condition-type U co] - [define-enumeration U en] - [define-record-type U rs] - [delay U r5] - [delete-file U is] - [display U is] - [do U ct] - [endianness U bv] - [enum-set->list U en] - [enum-set-complement U en] - [enum-set-constructor U en] - [enum-set-difference U en] - [enum-set-indexer U en] - [enum-set-intersection U en] - [enum-set-member? U en] - [enum-set-projection U en] - [enum-set-subset? U en] - [enum-set-union U en] - [enum-set-universe U en] - [enum-set=? U en] - [environment U ev] - [eof-object U ip is] - [eof-object? U ip is] - [eol-style U ip] - [equal-hash U ht] - [&error U co] - [error-handling-mode U ip] - [error? U co] - [eval U ev] - [exact->inexact U r5] - [exists U ls] - [exit U pr] - [fields U rs] - [file-exists? U fi] - [file-options U ip] - [filter U ls] - [find U ls] - [fixnum->flonum U fl] - [fixnum? U fx] - [fl* U fl] - [fl+ U fl] - [fl- U fl] - [fl/ U fl] - [fl<=? U fl] - [fl=? U fl] - [fl>? U fl] - [flabs U fl] - [flacos U fl] - [flasin U fl] - [flatan U fl] - [flceiling U fl] - [flcos U fl] - [fldenominator U fl] - [fldiv U fl] - [fldiv-and-mod U fl] - [fldiv0 U fl] - [fldiv0-and-mod0 U fl] - [fleven? U fl] - [flexp U fl] - [flexpt U fl] - [flfinite? U fl] - [flfloor U fl] - [flinfinite? U fl] - [flinteger? U fl] - [fllog U fl] - [flmax U fl] - [flmin U fl] - [flmod U fl] - [flmod0 U fl] - [flnan? U fl] - [flnegative? U fl] - [flnumerator U fl] - [flodd? U fl] - [flonum? U fl] - [flpositive? U fl] - [flround U fl] - [flsin U fl] - [flsqrt U fl] - [fltan U fl] - [fltruncate U fl] - [flzero? U fl] - [flush-output-port U ip] - [fold-left U ls] - [fold-right U ls] - [for-all U ls] - [force U r5] - [free-identifier=? U sc] - [fx* U fx] - [fx*/carry U fx] - [fx+ U fx] - [fx+/carry U fx] - [fx- U fx] - [fx-/carry U fx] - [fx<=? U fx] - [fx=? U fx] - [fx>? U fx] - [fxand U fx] - [fxarithmetic-shift U fx] - [fxarithmetic-shift-left U fx] - [fxarithmetic-shift-right U fx] - [fxbit-count U fx] - [fxbit-field U fx] - [fxbit-set? U fx] - [fxcopy-bit U fx] - [fxcopy-bit-field U fx] - [fxdiv U fx] - [fxdiv-and-mod U fx] - [fxdiv0 U fx] - [fxdiv0-and-mod0 U fx] - [fxeven? U fx] - [fxfirst-bit-set U fx] - [fxif U fx] - [fxior U fx] - [fxlength U fx] - [fxmax U fx] - [fxmin U fx] - [fxmod U fx] - [fxmod0 U fx] - [fxnegative? U fx] - [fxnot U fx] - [fxodd? U fx] - [fxpositive? U fx] - [fxreverse-bit-field U fx] - [fxrotate-bit-field U fx] - [fxxor U fx] - [fxzero? U fx] - [generate-temporaries U sc] - [get-bytevector-all U ip] - [get-bytevector-n U ip] - [get-bytevector-n! U ip] - [get-bytevector-some U ip] - [get-char U ip] - [get-datum U ip] - [get-line U ip] - [get-string-all U ip] - [get-string-n U ip] - [get-string-n! U ip] - [get-u8 U ip] - [greatest-fixnum U fx] - [guard U ex] - [hashtable-clear! U ht] - [hashtable-contains? U ht] - [hashtable-copy U ht] - [hashtable-delete! U ht] - [hashtable-entries U ht] - [hashtable-equivalence-function U ht] - [hashtable-hash-function U ht] - [hashtable-keys U ht] - [hashtable-mutable? U ht] - [hashtable-ref U ht] - [hashtable-set! U ht] - [hashtable-size U ht] - [hashtable-update! U ht] - [hashtable? U ht] - [&i/o U ip is fi] - [&i/o-decoding U ip] - [i/o-decoding-error? U ip] - [&i/o-encoding U ip] - [i/o-encoding-error-char U ip] - [i/o-encoding-error? U ip] - [i/o-error-filename U ip is fi] - [i/o-error-port U ip is fi] - [i/o-error? U ip is fi] - [&i/o-file-already-exists U ip is fi] - [i/o-file-already-exists-error? U ip is fi] - [&i/o-file-does-not-exist U ip is fi] - [i/o-file-does-not-exist-error? U ip is fi] - [&i/o-file-is-read-only U ip is fi] - [i/o-file-is-read-only-error? U ip is fi] - [&i/o-file-protection U ip is fi] - [i/o-file-protection-error? U ip is fi] - [&i/o-filename U ip is fi] - [i/o-filename-error? U ip is fi] - [&i/o-invalid-position U ip is fi] - [i/o-invalid-position-error? U ip is fi] - [&i/o-port U ip is fi] - [i/o-port-error? U ip is fi] - [&i/o-read U ip is fi] - [i/o-read-error? U ip is fi] - [&i/o-write U ip is fi] - [i/o-write-error? U ip is fi] - [identifier? U sc] - [immutable U rs] - [&implementation-restriction U co] - [implementation-restriction-violation? U co] - [inexact->exact U r5] - [input-port? U ip is] - [&irritants U co] - [irritants-condition? U co] - [latin-1-codec U ip] - [&lexical U co] - [lexical-violation? U co] - [list-sort U sr] - [lookahead-char U ip] - [lookahead-u8 U ip] - [make-assertion-violation U co] - [make-bytevector U bv] - [make-custom-binary-input-port U ip] - [make-custom-binary-input/output-port U ip] - [make-custom-binary-output-port U ip] - [make-custom-textual-input-port U ip] - [make-custom-textual-input/output-port U ip] - [make-custom-textual-output-port U ip] - [make-enumeration U en] - [make-eq-hashtable U ht] - [make-eqv-hashtable U ht] - [make-error U co] - [make-hashtable U ht] - [make-i/o-decoding-error U ip] - [make-i/o-encoding-error U ip] - [make-i/o-error U ip is fi] - [make-i/o-file-already-exists-error U ip is fi] - [make-i/o-file-does-not-exist-error U ip is fi] - [make-i/o-file-is-read-only-error U ip is fi] - [make-i/o-file-protection-error U ip is fi] - [make-i/o-filename-error U ip is fi] - [make-i/o-invalid-position-error U ip is fi] - [make-i/o-port-error U ip is fi] - [make-i/o-read-error U ip is fi] - [make-i/o-write-error U ip is fi] - [make-implementation-restriction-violation U co] - [make-irritants-condition U co] - [make-lexical-violation U co] - [make-message-condition U co] - [make-no-infinities-violation U fl] - [make-no-nans-violation U fl] - [make-non-continuable-violation U co] - [make-record-constructor-descriptor U rp] - [make-record-type-descriptor U rp] - [make-serious-condition U co] - [make-syntax-violation U co] - [make-transcoder U ip] - [make-undefined-violation U co] - [make-variable-transformer U sc] - [make-violation U co] - [make-warning U co] - [make-who-condition U co] - [member U ls] - [memp U ls] - [memq U ls] - [memv U ls] - [&message U co] - [message-condition? U co] - [modulo U r5] - [mutable U rs] - [native-endianness U bv] - [native-eol-style U ip] - [native-transcoder U ip] - [newline U is] - [&no-infinities U fl] - [no-infinities-violation? U fl] - [&no-nans U fl] - [no-nans-violation? U fl] - [&non-continuable U co] - [non-continuable-violation? U co] - [nongenerative U rs] - [null-environment U r5] - [opaque U rs] - [open-bytevector-input-port U ip] - [open-bytevector-output-port U ip] - [open-file-input-port U ip] - [open-file-input/output-port U ip] - [open-file-output-port U ip] - [open-input-file U is] - [open-output-file U is] - [open-string-input-port U ip] - [open-string-output-port U ip] - [output-port-buffer-mode U ip] - [output-port? U ip is] - [parent U rs] - [parent-rtd U rs] - [partition U ls] - [peek-char U is] - [port-eof? U ip] - [port-has-port-position? U ip] - [port-has-set-port-position!? U ip] - [port-position U ip] - [port-transcoder U ip] - [port? U ip] - [protocol U rs] - [put-bytevector U ip] - [put-char U ip] - [put-datum U ip] - [put-string U ip] - [put-u8 U ip] - [quasisyntax U sc] - [quotient U r5] - [raise U ex] - [raise-continuable U ex] - [read U is] - [read-char U is] - [real->flonum U fl] - [record-accessor U rp] - [record-constructor U rp] - [record-constructor-descriptor U rs] - [record-field-mutable? U ri] - [record-mutator U rp] - [record-predicate U rp] - [record-rtd U ri] - [record-type-descriptor U rs] - [record-type-descriptor? U rp] - [record-type-field-names U ri] - [record-type-generative? U ri] - [record-type-name U ri] - [record-type-opaque? U ri] - [record-type-parent U ri] - [record-type-sealed? U ri] - [record-type-uid U ri] - [record? U ri] - [remainder U r5] - [remove U ls] - [remp U ls] - [remq U ls] - [remv U ls] - [scheme-report-environment U r5] - [sealed U rs] - [&serious U co] - [serious-condition? U co] - [set-port-position! U ip] - [simple-conditions U co] - [sint-list->bytevector U bv] - [standard-error-port U ip] - [standard-input-port U ip] - [standard-output-port U ip] - [string->bytevector U ip] - [string->utf16 U bv] - [string->utf32 U bv] - [string->utf8 U bv] - [string-ci-hash U ht] - [string-ci<=? U uc] - [string-ci=? U uc] - [string-ci>? U uc] - [string-downcase U uc] - [string-fill! U ms] - [string-foldcase U uc] - [string-hash U ht] - [string-normalize-nfc U uc] - [string-normalize-nfd U uc] - [string-normalize-nfkc U uc] - [string-normalize-nfkd U uc] - [string-set! U ms] - [string-titlecase U uc] - [string-upcase U uc] - [symbol-hash U ht] - [&syntax U co] - [syntax U sc] - [syntax->datum U sc] - [syntax-case U sc] - [syntax-violation U co sc] - [syntax-violation-form U co] - [syntax-violation-subform U co] - [syntax-violation? U co] - [textual-port? U ip] - [transcoded-port U ip] - [transcoder-codec U ip] - [transcoder-eol-style U ip] - [transcoder-error-handling-mode U ip] - [u8-list->bytevector U bv] - [uint-list->bytevector U bv] - [&undefined U co] - [undefined-violation? U co] - [unless U ct] - [unsyntax U sc] - [unsyntax-splicing U sc] - [utf-16-codec U ip] - [utf-8-codec U ip] - [utf16->string U bv] - [utf16->string! U bv] - [utf32->string U bv] - [utf32->string! U bv] - [utf8->string U bv] - [vector-sort U sr] - [vector-sort! U sr] - [&violation U co] - [violation? U co] - [&warning U co] - [warning? U co] - [when U ct] - [&who U co] - [who-condition? U co] - [with-exception-handler U ex] - [with-input-from-file U is] - [with-output-to-file U is] - [with-syntax U sc] - [write U is] - [write-char U is] - )) + + + + + + + + +(define identifier-names + '( + + [lambda C ba] + [and C ba] + [begin C ba] + [case C ba] + [cond C ba] + [define C ba] + [define-syntax C ba] + [identifier-syntax C ba] + [if C ba] + [let C ba] + [let* C ba] + [let*-values C ba] + [let-syntax C ba] + [let-values C ba] + [letrec C ba] + [letrec* C ba] + [letrec-syntax C ba] + [or C ba] + [quasiquote C ba] + [quote C ba] + [set! C ba] + [syntax-rules C ba] + [unquote C ba] + [unquote-splicing C ba] + [< C ba] + [<= C ba] + [= C ba] + [> C ba] + [>= C ba] + [+ C ba] + [- C ba] + [* C ba] + [/ C ba] + [abs C ba] + [acos S ba] + [angle D ba] + [append C ba] + [apply C ba] + [asin S ba] + [assert S ba] + [assertion-violation S ba] + [atan S ba] + [boolean=? S ba] + [boolean? C ba] + [car C ba] + [cdr C ba] + [caar C ba] + [cadr C ba] + [cdar C ba] + [cddr C ba] + [caaar C ba] + [caadr C ba] + [cadar C ba] + [caddr C ba] + [cdaar C ba] + [cdadr C ba] + [cddar C ba] + [cdddr C ba] + [caaaar C ba] + [caaadr C ba] + [caadar C ba] + [caaddr C ba] + [cadaar C ba] + [cadadr C ba] + [caddar C ba] + [cadddr C ba] + [cdaaar C ba] + [cdaadr C ba] + [cdadar C ba] + [cdaddr C ba] + [cddaar C ba] + [cddadr C ba] + [cdddar C ba] + [cddddr C ba] + [call-with-current-continuation C ba] + [call/cc C ba] + [call-with-values C ba] + [ceiling C ba] + [char->integer C ba] + [char<=? C ba] + [char=? C ba] + [char>? C ba] + [char? C ba] + [complex? D ba] + [cons C ba] + [cos C ba] + [denominator C ba] + [div S ba] + [div-and-mod S ba] + [div0 S ba] + [div0-and-mod0 S ba] + [dynamic-wind C ba] + [eq? C ba] + [equal? P ba] + [eqv? C ba] + [error P ba] + [even? C ba] + [exact S ba] + [exact-integer-sqrt C ba] + [exact? C ba] + [exp S ba] + [expt C ba] + [finite? S ba] + [floor S ba] + [for-each S ba] + [gcd C ba] + [imag-part D ba] + [inexact S ba] + [inexact? S ba] + [infinite? S ba] + [integer->char C ba] + [integer-valued? S ba] + [integer? C ba] + [lcm C ba] + [length C ba] + [list C ba] + [list->string C ba] + [list->vector C ba] + [list-ref C ba] + [list-tail C ba] + [list? C ba] + [log C ba] + [magnitude D ba] + [make-polar D ba] + [make-rectangular D ba] + [make-string C ba] + [make-vector C ba] + [map C ba] + [max C ba] + [min C ba] + [mod S ba] + [mod0 S ba] + [nan? S ba] + [negative? S ba] + [not C ba] + [null? C ba] + [number->string C ba] + [number? C ba] + [numerator C ba] + [odd? C ba] + [pair? C ba] + [positive? C ba] + [procedure? C ba] + [rational-valued? S ba] + [rational? C ba] + [rationalize S ba] + [real-part D ba] + [real-valued? S ba] + [real? S ba] + [reverse C ba] + [round C ba] + [sin C ba] + [sqrt C ba] + [string C ba] + [string->list C ba] + [string->number C ba] + [string->symbol C ba] + [string-append C ba] + [string-copy S ba] + [string-for-each S ba] + [string-length C ba] + [string-ref C ba] + [string<=? C ba] + [string=? C ba] + [string>? C ba] + [string? C ba] + [substring C ba] + [symbol->string C ba] + [symbol=? S ba] + [symbol? C ba] + [tan S ba] + [truncate S ba] + [values C ba] + [vector C ba] + [vector->list C ba] + [vector-fill! S ba] + [vector-for-each S ba] + [vector-length C ba] + [vector-map S ba] + [vector-ref C ba] + [vector-set! C ba] + [vector? C ba] + [zero? C ba] + [... S ba sc] + [=> S ba ex] + [_ S ba sc] + [else S ba ex] + + [bitwise-and D bw] + [bitwise-arithmetic-shift D bw] + [bitwise-arithmetic-shift-left D bw] + [bitwise-arithmetic-shift-right D bw] + [bitwise-bit-count D bw] + [bitwise-bit-field D bw] + [bitwise-bit-set? D bw] + [bitwise-copy-bit D bw] + [bitwise-copy-bit-field D bw] + [bitwise-first-bit-set D bw] + [bitwise-if D bw] + [bitwise-ior D bw] + [bitwise-length D bw] + [bitwise-not D bw] + [bitwise-reverse-bit-field D bw] + [bitwise-rotate-bit-field D bw] + [bitwise-xor D bw] + + [fixnum? C fx] + [fx* D fx] + [fx*/carry D fx] + [fx+ D fx] + [fx+/carry D fx] + [fx- D fx] + [fx-/carry D fx] + [fx<=? D fx] + [fx=? D fx] + [fx>? D fx] + [fxand D fx] + [fxarithmetic-shift D fx] + [fxarithmetic-shift-left D fx] + [fxarithmetic-shift-right D fx] + [fxbit-count D fx] + [fxbit-field D fx] + [fxbit-set? D fx] + [fxcopy-bit D fx] + [fxcopy-bit-field D fx] + [fxdiv D fx] + [fxdiv-and-mod D fx] + [fxdiv0 D fx] + [fxdiv0-and-mod0 D fx] + [fxeven? D fx] + [fxfirst-bit-set D fx] + [fxif D fx] + [fxior D fx] + [fxlength D fx] + [fxmax D fx] + [fxmin D fx] + [fxmod D fx] + [fxmod0 D fx] + [fxnegative? D fx] + [fxnot D fx] + [fxodd? D fx] + [fxpositive? D fx] + [fxreverse-bit-field D fx] + [fxrotate-bit-field D fx] + [fxxor D fx] + [fxzero? D fx] + + [fixnum->flonum S fl] + [fl* C fl] + [fl+ C fl] + [fl- C fl] + [fl/ C fl] + [fl<=? C fl] + [fl=? C fl] + [fl>? C fl] + [flabs C fl] + [flacos S fl] + [flasin S fl] + [flatan S fl] + [flceiling S fl] + [flcos S fl] + [fldenominator S fl] + [fldiv S fl] + [fldiv-and-mod S fl] + [fldiv0 S fl] + [fldiv0-and-mod0 S fl] + [fleven? S fl] + [flexp S fl] + [flexpt S fl] + [flfinite? S fl] + [flfloor S fl] + [flinfinite? S fl] + [flinteger? S fl] + [fllog S fl] + [flmax C fl] + [flmin C fl] + [flmod S fl] + [flmod0 S fl] + [flnan? S fl] + [flnegative? S fl] + [flnumerator S fl] + [flodd? S fl] + [flonum? S fl] + [flpositive? S fl] + [flround C fl] + [flsin S fl] + [flsqrt S fl] + [fltan S fl] + [fltruncate S fl] + [flzero? C fl] + [real->flonum D fl] + [make-no-infinities-violation D fl] + [make-no-nans-violation D fl] + [&no-infinities D fl] + [no-infinities-violation? D fl] + [&no-nans D fl] + [no-nans-violation? D fl] + + [bytevector->sint-list C bv] + [bytevector->u8-list C bv] + [bytevector->uint-list C bv] + [bytevector-copy C bv] + [bytevector-copy! C bv] + [bytevector-fill! C bv] + [bytevector-ieee-double-native-ref S bv] + [bytevector-ieee-double-native-set! S bv] + [bytevector-ieee-double-ref S bv] + [bytevector-ieee-single-native-ref S bv] + [bytevector-ieee-single-native-set! S bv] + [bytevector-ieee-single-ref S bv] + [bytevector-length C bv] + [bytevector-s16-native-ref S bv] + [bytevector-s16-native-set! S bv] + [bytevector-s16-ref S bv] + [bytevector-s16-set! S bv] + [bytevector-s32-native-ref S bv] + [bytevector-s32-native-set! S bv] + [bytevector-s32-ref S bv] + [bytevector-s32-set! S bv] + [bytevector-s64-native-ref S bv] + [bytevector-s64-native-set! S bv] + [bytevector-s64-ref S bv] + [bytevector-s64-set! S bv] + [bytevector-s8-ref C bv] + [bytevector-s8-set! C bv] + [bytevector-sint-ref C bv] + [bytevector-sint-set! C bv] + [bytevector-u16-native-ref S bv] + [bytevector-u16-native-set! S bv] + [bytevector-u16-ref S bv] + [bytevector-u16-set! S bv] + [bytevector-u32-native-ref S bv] + [bytevector-u32-native-set! S bv] + [bytevector-u32-ref S bv] + [bytevector-u32-set! S bv] + [bytevector-u64-native-ref S bv] + [bytevector-u64-native-set! S bv] + [bytevector-u64-ref S bv] + [bytevector-u64-set! S bv] + [bytevector-u8-ref C bv] + [bytevector-u8-set! C bv] + [bytevector-uint-ref C bv] + [bytevector-uint-set! C bv] + [bytevector=? C bv] + [bytevector? C bv] + [endianness S bv] + [native-endianness S bv] + [sint-list->bytevector C bv] + [string->utf16 S bv] + [string->utf32 S bv] + [string->utf8 S bv] + [u8-list->bytevector C bv] + [uint-list->bytevector C bv] + [utf8->string S bv] + [utf16->string S bv] + [utf32->string S bv] + + [condition? D co] + [&assertion D co] + [assertion-violation? D co] + [&condition D co] + [condition D co] + [condition-accessor D co] + [condition-irritants D co] + [condition-message D co] + [condition-predicate D co] + [condition-who D co] + [condition? D co] + [define-condition-type D co] + [&error D co] + [error? D co] + [&implementation-restriction D co] + [implementation-restriction-violation? D co] + [&irritants D co] + [irritants-condition? D co] + [&lexical D co] + [lexical-violation? D co] + [make-assertion-violation D co] + [make-error D co] + [make-implementation-restriction-violation D co] + [make-irritants-condition D co] + [make-lexical-violation D co] + [make-message-condition D co] + [make-non-continuable-violation D co] + [make-serious-condition D co] + [make-syntax-violation D co] + [make-undefined-violation D co] + [make-violation D co] + [make-warning D co] + [make-who-condition D co] + [&message D co] + [message-condition? D co] + [&non-continuable D co] + [non-continuable-violation? D co] + [&serious D co] + [serious-condition? D co] + [simple-conditions D co] + [&syntax D co] + [syntax-violation D co sc] + [syntax-violation-form D co] + [syntax-violation-subform D co] + [syntax-violation? D co] + [&undefined D co] + [undefined-violation? D co] + [&violation D co] + [violation? D co] + [&warning D co] + [warning? D co] + [&who D co] + [who-condition? D co] + + [case-lambda C ct] + [do C ct] + [unless C ct] + [when C ct] + + [define-enumeration D en] + [enum-set->list D en] + [enum-set-complement D en] + [enum-set-constructor D en] + [enum-set-difference D en] + [enum-set-indexer D en] + [enum-set-intersection D en] + [enum-set-member? D en] + [enum-set-projection D en] + [enum-set-subset? D en] + [enum-set-union D en] + [enum-set-universe D en] + [enum-set=? D en] + [make-enumeration D en] + + [environment C ev] + [eval C ev] + + [raise D ex] + [raise-continuable D ex] + [with-exception-handler D ex] + [with-exception-handler D ex] + [guard D ex] + [raise D ex] + [raise-continuable D ex] + + [binary-port? D ip] + [buffer-mode D ip] + [buffer-mode? D ip] + [bytevector->string D ip] + [call-with-bytevector-output-port D ip] + [call-with-port D ip] + [call-with-string-output-port D ip] + + + [assoc C ls] + [assp S ls] + [assq C ls] + [assv C ls] + [cons* S ls] + [filter S ls] + [find S ls] + [fold-left S ls] + [fold-right S ls] + [for-all S ls] + [exists S ls] + [member C ls] + [memp S ls] + [memq C ls] + [memv C ls] + [partition S ls] + [remove C ls] + [remp S ls] + [remq C ls] + [remv C ls] + + [set-car! C mp] + [set-cdr! C mp] + + [string-set! C ms] + [string-fill! S ms] + + [command-line S pr] + [exit S pr] + + [delay D r5] + [exact->inexact D r5] + [force D r5] + [inexact->exact D r5] + [modulo D r5] + [remainder D r5] + [null-environment D r5] + [quotient D r5] + [scheme-report-environment D r5] + + [close-port D ip] + [eol-style D ip] + [error-handling-mode D ip] + [file-options D ip] + [flush-output-port D ip] + [get-bytevector-all D ip] + [get-bytevector-n D ip] + [get-bytevector-n! D ip] + [get-bytevector-some D ip] + [get-char D ip] + [get-datum D ip] + [get-line D ip] + [get-string-all D ip] + [get-string-n D ip] + [get-string-n! D ip] + [get-u8 D ip] + [&i/o D ip is fi] + [&i/o-decoding D ip] + [i/o-decoding-error? D ip] + [&i/o-encoding D ip] + [i/o-encoding-error-char D ip] + [i/o-encoding-error? D ip] + [i/o-error-filename D ip is fi] + [i/o-error-port D ip is fi] + [i/o-error? D ip is fi] + [&i/o-file-already-exists D ip is fi] + [i/o-file-already-exists-error? D ip is fi] + [&i/o-file-does-not-exist D ip is fi] + [i/o-file-does-not-exist-error? D ip is fi] + [&i/o-file-is-read-only D ip is fi] + [i/o-file-is-read-only-error? D ip is fi] + [&i/o-file-protection D ip is fi] + [i/o-file-protection-error? D ip is fi] + [&i/o-filename D ip is fi] + [i/o-filename-error? D ip is fi] + [&i/o-invalid-position D ip is fi] + [i/o-invalid-position-error? D ip is fi] + [&i/o-port D ip is fi] + [i/o-port-error? D ip is fi] + [&i/o-read D ip is fi] + [i/o-read-error? D ip is fi] + [&i/o-write D ip is fi] + [i/o-write-error? D ip is fi] + [lookahead-char D ip] + [lookahead-u8 D ip] + [make-bytevector D bv] + [make-custom-binary-input-port D ip] + [make-custom-binary-input/output-port D ip] + [make-custom-binary-output-port D ip] + [make-custom-textual-input-port D ip] + [make-custom-textual-input/output-port D ip] + [make-custom-textual-output-port D ip] + [make-i/o-decoding-error D ip] + [make-i/o-encoding-error D ip] + [make-i/o-error D ip is fi] + [make-i/o-file-already-exists-error D ip is fi] + [make-i/o-file-does-not-exist-error D ip is fi] + [make-i/o-file-is-read-only-error D ip is fi] + [make-i/o-file-protection-error D ip is fi] + [make-i/o-filename-error D ip is fi] + [make-i/o-invalid-position-error D ip is fi] + [make-i/o-port-error D ip is fi] + [make-i/o-read-error D ip is fi] + [make-i/o-write-error D ip is fi] + [latin-1-codec D ip] + [make-transcoder D ip] + [native-eol-style D ip] + [native-transcoder D ip] + [open-bytevector-input-port D ip] + [open-bytevector-output-port D ip] + [open-file-input-port D ip] + [open-file-input/output-port D ip] + [open-file-output-port D ip] + [open-string-input-port D ip] + [open-string-output-port D ip] + [output-port-buffer-mode D ip] + [port-eof? D ip] + [port-has-port-position? D ip] + [port-has-set-port-position!? D ip] + [port-position D ip] + [port-transcoder D ip] + [port? D ip] + [put-bytevector D ip] + [put-char D ip] + [put-datum D ip] + [put-string D ip] + [put-u8 D ip] + [set-port-position! D ip] + [standard-error-port D ip] + [standard-input-port D ip] + [standard-output-port D ip] + [string->bytevector D ip] + [textual-port? D ip] + [transcoded-port D ip] + [transcoder-codec D ip] + [transcoder-eol-style D ip] + [transcoder-error-handling-mode D ip] + [utf-16-codec D ip] + [utf-8-codec D ip] + + [input-port? C is ip] + [output-port? C is ip] + [current-input-port C ip is] + [current-output-port C ip is] + [current-error-port C ip is] + [eof-object C ip is] + [eof-object? C ip is] + [close-input-port C is] + [close-output-port C is] + [display C is] + [newline C is] + [open-input-file C is] + [open-output-file C is] + [peek-char C is] + [read C is] + [read-char C is] + [with-input-from-file C is] + [with-output-to-file C is] + [write C is] + [write-char C is] + [call-with-input-file C is] + [call-with-output-file C is] + + [hashtable-clear! S ht] + [hashtable-contains? S ht] + [hashtable-copy S ht] + [hashtable-delete! S ht] + [hashtable-entries S ht] + [hashtable-equivalence-function S ht] + [hashtable-hash-function S ht] + [hashtable-keys S ht] + [hashtable-mutable? S ht] + [hashtable-ref S ht] + [hashtable-set! S ht] + [hashtable-size S ht] + [hashtable-update! S ht] + [hashtable? S ht] + [make-eq-hashtable S ht] + [make-eqv-hashtable S ht] + [make-hashtable S ht] + [equal-hash D ht] + [string-hash D ht] + [string-ci-hash D ht] + [symbol-hash D ht] + + [list-sort S sr] + [vector-sort S sr] + [vector-sort! S sr] + + [file-exists? C fi] + [delete-file S fi] + + [define-record-type D rs] + [fields D rs] + [immutable D rs] + [mutable D rs] + [opaque D rs] + [parent D rs] + [parent-rtd D rs] + [protocol D rs] + [record-constructor-descriptor D rs] + [record-type-descriptor D rs] + [sealed D rs] + [nongenerative D rs] + + [record-field-mutable? D ri] + [record-rtd D ri] + [record-type-field-names D ri] + [record-type-generative? D ri] + [record-type-name D ri] + [record-type-opaque? D ri] + [record-type-parent D ri] + [record-type-sealed? D ri] + [record-type-uid D ri] + [record? D ri] + + [make-record-constructor-descriptor D rp] + [make-record-type-descriptor D rp] + [record-accessor D rp] + [record-constructor D rp] + [record-mutator D rp] + [record-predicate D rp] + [record-type-descriptor? D rp] + + [bound-identifier=? C sc] + [datum->syntax C sc] + [syntax C sc] + [syntax->datum C sc] + [syntax-case C sc] + [unsyntax S sc] + [unsyntax-splicing S sc] + [quasisyntax S sc] + [with-syntax C sc] + [free-identifier=? C sc] + [generate-temporaries C sc] + [identifier? C sc] + [make-variable-transformer S sc] + + [char-alphabetic? S uc] + [char-ci<=? C uc] + [char-ci=? C uc] + [char-ci>? C uc] + [char-downcase C uc] + [char-foldcase C uc] + [char-titlecase C uc] + [char-upcase C uc] + [char-general-category S uc] + [char-lower-case? S uc] + [char-numeric? S uc] + [char-title-case? S uc] + [char-upper-case? S uc] + [char-whitespace? C uc] + [string-ci<=? S uc] + [string-ci=? S uc] + [string-ci>? S uc] + [string-downcase S uc] + [string-foldcase S uc] + [string-normalize-nfc S uc] + [string-normalize-nfd S uc] + [string-normalize-nfkc S uc] + [string-normalize-nfkd S uc] + [string-titlecase S uc] + [string-upcase S uc] + ))