(DEFPACKAGE "REVISED^4-SCHEME"
  (:USE "PS")
  (:EXPORT ".AND" "BEGIN" ".CASE" ".COND" "DEFINE" "DELAY" ".DO" ".IF"
           ".LAMBDA" "LETREC" ".LET" ".LET*" ".OR" "QUASIQUOTE" ".QUOTE"
           "SET!" "UNQUOTE" "UNQUOTE-SPLICING" "DEFINE-SYNTAX"
           "LET-SYNTAX" "LETREC-SYNTAX" "SYNTAX-RULES" "=>" "ELSE" ".*"
           ".+" ".-" "./" ".<" ".<=" ".=" ".>" ".>=" ".APPLY" "BOOLEAN?"
           "CALL-WITH-CURRENT-CONTINUATION" ".CAR" ".CDR"
           "CHAR->INTEGER" "CHAR-READY?" "CLOSE-INPUT-PORT"
           "CLOSE-OUTPUT-PORT" "COMPLEX?" ".CONS" "CURRENT-INPUT-PORT"
           "CURRENT-OUTPUT-PORT" ".DENOMINATOR" "EOF-OBJECT?" "EQ?"
           "EQV?" "EXACT->INEXACT" "EXACT?" "IMAG-PART" "INEXACT->EXACT"
           "INEXACT?" "INPUT-PORT?" "INTEGER->CHAR" "INTEGER?" ".LOAD"
           "MAGNITUDE" "MAKE-POLAR" "MAKE-RECTANGULAR" ".MAKE-STRING"
           "MAKE-VECTOR" "MODULO" "NEWLINE" ".NOT" "NULL?" "NUMBER?"
           ".NUMERATOR" "OPEN-INPUT-FILE" "OPEN-OUTPUT-FILE"
           "OUTPUT-PORT?" "PAIR?" ".PEEK-CHAR" "PROCEDURE?" "QUOTIENT"
           "RATIONAL?" ".READ-CHAR" "REAL-PART" "REAL?" "REMAINDER"
           "SET-CAR!" "SET-CDR!" ".STRING" "STRING->SYMBOL"
           "STRING-LENGTH" "STRING-REF" "STRING-SET!" "STRING?"
           "SYMBOL->STRING" "SYMBOL?" "TRANSCRIPT-ON" "TRANSCRIPT-OFF"
           "VECTOR-LENGTH" "VECTOR-REF" "VECTOR-SET!" "VECTOR?"
           ".WRITE-CHAR" ".APPEND" ".ASSOC" "ASSQ" "ASSV" ".ABS" ".ACOS"
           "ANGLE" ".ASIN" ".ATAN" ".CAAAAR" ".CAAADR" ".CAADAR"
           ".CAADDR" ".CAAAR" ".CAADR" ".CAAR" ".CADAAR" ".CADADR"
           ".CADDAR" ".CADDDR" ".CADAR" ".CADDR" ".CADR"
           "CALL-WITH-INPUT-FILE" "CALL-WITH-OUTPUT-FILE" ".CDAAAR"
           ".CDAADR" ".CDADAR" ".CDADDR" ".CDAAR" ".CDADR" ".CDAR"
           ".CDDAAR" ".CDDADR" ".CDDDAR" ".CDDDDR" ".CDDAR" ".CDDDR"
           ".CDDR" ".CEILING" "CHAR-ALPHABETIC?" "CHAR-CI<=?"
           "CHAR-CI<?" "CHAR-CI=?" "CHAR-CI>=?" "CHAR-CI>?"
           ".CHAR-DOWNCASE" "CHAR-LOWER-CASE?" "CHAR-NUMERIC?"
           ".CHAR-UPCASE" "CHAR-UPPER-CASE?" "CHAR-WHITESPACE?"
           "CHAR<=?" "CHAR<?" "CHAR=?" "CHAR>=?" "CHAR>?" "CHAR?" ".COS"
           "DISPLAY" "EQUAL?" "EVEN?" ".EXP" ".EXPT" ".FLOOR" "FOR-EACH"
           "FORCE" ".GCD" ".LCM" ".LIST" ".LOG" ".LENGTH" "LIST->STRING"
           "LIST->VECTOR" "LIST-REF" "LIST-TAIL" "LIST?" ".MAP" ".MAX"
           ".MEMBER" "MEMQ" "MEMV" ".MIN" "NEGATIVE?" "NUMBER->STRING"
           "ODD?" ".RATIONALIZE" "POSITIVE?" ".READ" ".REVERSE" ".ROUND"
           ".SIN" ".SQRT" "STRING->LIST" "STRING->NUMBER"
           "STRING-APPEND" "STRING-CI<=?" "STRING-CI<?" "STRING-CI=?"
           "STRING-CI>=?" "STRING-CI>?" "STRING-COPY" "STRING-FILL!"
           "STRING<=?" "STRING<?" "STRING=?" "STRING>=?" "STRING>?"
           "SUBSTRING" ".TAN" ".TRUNCATE" ".VECTOR" "VECTOR->LIST"
           "VECTOR-FILL!" "WITH-INPUT-FROM-FILE" "WITH-OUTPUT-TO-FILE"
           ".WRITE" "ZERO?" ".VALUES" "CALL-WITH-VALUES" "DYNAMIC-WIND"
           ".EVAL" "INTERACTION-ENVIRONMENT"
           ".SCHEME-REPORT-ENVIRONMENT"))
(DEFPACKAGE "SCHEME-TRANSLATOR"
  (:USE "PS" "REVISED^4-SCHEME")
  (:EXPORT "MAKE-PROGRAM-ENV" "MAKE-INTERFACE" "MAKE-STRUCTURE"
           "PROGRAM-ENV-ID" "PROGRAM-ENV-PACKAGE" "PROGRAM-ENV-LOOKUP"
           "PROGRAM-ENV-DEFINE!" "TRANSLATE" "TRANSLATE-LAMBDA"
           "REALLY-TRANSLATE-FILE" "TRANSLATOR-VERSION"
           "PERFORM-USUAL-INTEGRATIONS!" "SCHEME-TRANSLATOR-ENV"
           "SCHEME-TRANSLATOR-STRUCTURE" "REVISED^4-SCHEME-STRUCTURE"
           "MAKE-SCHEME-USER-ENVIRONMENT" "INTERN-RENAMING-PERHAPS"
           "PROCESS-DEFINE-SYNTAX"))