OP_DEF (0, "load" , 1, 1 , TST_STRING , OP_LOAD) OP_DEF (0, UNNAMED_OP , 0, 0 , 0 , OP_T0LVL) OP_DEF (0, UNNAMED_OP , 0, 0 , 0 , OP_T1LVL) OP_DEF (0, UNNAMED_OP , 0, 0 , 0 , OP_READ_INTERNAL) OP_DEF (0, "gensym" , 0, 0 , 0 , OP_GENSYM) OP_DEF (0, UNNAMED_OP , 0, 0 , 0 , OP_VALUEPRINT) OP_DEF (0, UNNAMED_OP , 0, 0 , 0 , OP_EVAL) #if USE_TRACING OP_DEF (0, UNNAMED_OP , 0, 0 , 0 , OP_REAL_EVAL) #endif OP_DEF (0, UNNAMED_OP , 0, 0 , 0 , OP_E0ARGS) OP_DEF (0, UNNAMED_OP , 0, 0 , 0 , OP_E1ARGS) OP_DEF (0, UNNAMED_OP , 0, 0 , 0 , OP_APPLY) #if USE_TRACING OP_DEF (0, UNNAMED_OP , 0, 0 , 0 , OP_REAL_APPLY) OP_DEF (0, "tracing" , 1, 1 , TST_NATURAL , OP_TRACING) #endif OP_DEF (0, UNNAMED_OP , 0, 0 , 0 , OP_DOMACRO) OP_DEF (0, UNNAMED_OP , 0, 0 , 0 , OP_LAMBDA) OP_DEF (0, UNNAMED_OP , 0, 0 , 0 , OP_LAMBDA1) OP_DEF (0, "make-closure" , 1, 2 , TST_PAIR TST_ENVIRONMENT , OP_MKCLOSURE) OP_DEF (0, UNNAMED_OP , 0, 0 , 0 , OP_QUOTE) OP_DEF (0, UNNAMED_OP , 0, 0 , 0 , OP_DEF0) OP_DEF (0, UNNAMED_OP , 0, 0 , 0 , OP_DEF1) OP_DEF (0, "defined?" , 1, 2 , TST_SYMBOL TST_ENVIRONMENT , OP_DEFP) OP_DEF (0, UNNAMED_OP , 0, 0 , 0 , OP_BEGIN) OP_DEF (0, UNNAMED_OP , 0, 0 , 0 , OP_IF0) OP_DEF (0, UNNAMED_OP , 0, 0 , 0 , OP_IF1) OP_DEF (0, UNNAMED_OP , 0, 0 , 0 , OP_SET0) OP_DEF (0, UNNAMED_OP , 0, 0 , 0 , OP_SET1) OP_DEF (0, UNNAMED_OP , 0, 0 , 0 , OP_LET0) OP_DEF (0, UNNAMED_OP , 0, 0 , 0 , OP_LET1) OP_DEF (0, UNNAMED_OP , 0, 0 , 0 , OP_LET2) OP_DEF (0, UNNAMED_OP , 0, 0 , 0 , OP_LET0AST) OP_DEF (0, UNNAMED_OP , 0, 0 , 0 , OP_LET1AST) OP_DEF (0, UNNAMED_OP , 0, 0 , 0 , OP_LET2AST) OP_DEF (0, UNNAMED_OP , 0, 0 , 0 , OP_LET0REC) OP_DEF (0, UNNAMED_OP , 0, 0 , 0 , OP_LET1REC) OP_DEF (0, UNNAMED_OP , 0, 0 , 0 , OP_LET2REC) OP_DEF (0, UNNAMED_OP , 0, 0 , 0 , OP_COND0) OP_DEF (0, UNNAMED_OP , 0, 0 , 0 , OP_COND1) OP_DEF (0, UNNAMED_OP , 0, 0 , 0 , OP_DELAY) OP_DEF (0, UNNAMED_OP , 0, 0 , 0 , OP_AND0) OP_DEF (0, UNNAMED_OP , 0, 0 , 0 , OP_AND1) OP_DEF (0, UNNAMED_OP , 0, 0 , 0 , OP_OR0) OP_DEF (0, UNNAMED_OP , 0, 0 , 0 , OP_OR1) OP_DEF (0, UNNAMED_OP , 0, 0 , 0 , OP_C0STREAM) OP_DEF (0, UNNAMED_OP , 0, 0 , 0 , OP_C1STREAM) OP_DEF (0, UNNAMED_OP , 0, 0 , 0 , OP_MACRO0) OP_DEF (0, UNNAMED_OP , 0, 0 , 0 , OP_MACRO1) OP_DEF (0, UNNAMED_OP , 0, 0 , 0 , OP_CASE0) OP_DEF (0, UNNAMED_OP , 0, 0 , 0 , OP_CASE1) OP_DEF (0, UNNAMED_OP , 0, 0 , 0 , OP_CASE2) OP_DEF (0, "eval" , 1, 2 , TST_ANY TST_ENVIRONMENT , OP_PEVAL) OP_DEF (0, "apply" , 1, INF_ARG, TST_NONE , OP_PAPPLY) OP_DEF (0, "call-with-current-continuation", 1, 1 , TST_NONE , OP_CONTINUATION) #if USE_MATH OP_DEF (1, "inexact->exact" , 1, 1 , TST_NUMBER , OP_INEX2EX) OP_DEF (1, "floor" , 1, 1 , TST_NUMBER , OP_FLOOR) OP_DEF (1, "ceiling" , 1, 1 , TST_NUMBER , OP_CEILING) OP_DEF (1, "truncate" , 1, 1 , TST_NUMBER , OP_TRUNCATE) OP_DEF (1, "round" , 1, 1 , TST_NUMBER , OP_ROUND) OP_DEF (1, "sqrt" , 1, 1 , TST_NUMBER , OP_SQRT) OP_DEF (1, "exp" , 1, 1 , TST_NUMBER , OP_EXP) OP_DEF (1, "log" , 1, 2 , TST_NUMBER , OP_LOG) OP_DEF (1, "sin" , 1, 1 , TST_NUMBER , OP_SIN) OP_DEF (1, "cos" , 1, 1 , TST_NUMBER , OP_COS) OP_DEF (1, "tan" , 1, 1 , TST_NUMBER , OP_TAN) OP_DEF (1, "asin" , 1, 1 , TST_NUMBER , OP_ASIN) OP_DEF (1, "acos" , 1, 1 , TST_NUMBER , OP_ACOS) OP_DEF (1, "atan" , 1, 2 , TST_NUMBER , OP_ATAN) OP_DEF (1, "expt" , 2, 2 , TST_NUMBER , OP_EXPT) #endif OP_DEF (1, "+" , 0, INF_ARG, TST_NUMBER , OP_ADD) OP_DEF (1, "-" , 1, INF_ARG, TST_NUMBER , OP_SUB) OP_DEF (1, "*" , 0, INF_ARG, TST_NUMBER , OP_MUL) OP_DEF (1, "/" , 1, INF_ARG, TST_NUMBER , OP_DIV) OP_DEF (1, "quotient" , 1, INF_ARG, TST_INTEGER , OP_INTDIV) OP_DEF (1, "remainder" , 2, 2 , TST_INTEGER , OP_REM) OP_DEF (1, "modulo" , 2, 2 , TST_INTEGER , OP_MOD) OP_DEF (1, "car" , 1, 1 , TST_PAIR , OP_CAR) OP_DEF (1, "cdr" , 1, 1 , TST_PAIR , OP_CDR) OP_DEF (1, "caar" , 1, 1 , TST_PAIR , OP_CAAR) OP_DEF (1, "cadr" , 1, 1 , TST_PAIR , OP_CADR) OP_DEF (1, "cdar" , 1, 1 , TST_PAIR , OP_CDAR) OP_DEF (1, "cddr" , 1, 1 , TST_PAIR , OP_CDDR) OP_DEF (1, "caaar" , 1, 1 , TST_PAIR , OP_CAAAR) OP_DEF (1, "caadr" , 1, 1 , TST_PAIR , OP_CAADR) OP_DEF (1, "cadar" , 1, 1 , TST_PAIR , OP_CADAR) OP_DEF (1, "caddr" , 1, 1 , TST_PAIR , OP_CADDR) OP_DEF (1, "cdaar" , 1, 1 , TST_PAIR , OP_CDAAR) OP_DEF (1, "cdadr" , 1, 1 , TST_PAIR , OP_CDADR) OP_DEF (1, "cddar" , 1, 1 , TST_PAIR , OP_CDDAR) OP_DEF (1, "cdddr" , 1, 1 , TST_PAIR , OP_CDDDR) OP_DEF (1, "caaaar" , 1, 1 , TST_PAIR , OP_CAAAAR) OP_DEF (1, "caaadr" , 1, 1 , TST_PAIR , OP_CAAADR) OP_DEF (1, "caadar" , 1, 1 , TST_PAIR , OP_CAADAR) OP_DEF (1, "caaddr" , 1, 1 , TST_PAIR , OP_CAADDR) OP_DEF (1, "cadaar" , 1, 1 , TST_PAIR , OP_CADAAR) OP_DEF (1, "cadadr" , 1, 1 , TST_PAIR , OP_CADADR) OP_DEF (1, "caddar" , 1, 1 , TST_PAIR , OP_CADDAR) OP_DEF (1, "cadddr" , 1, 1 , TST_PAIR , OP_CADDDR) OP_DEF (1, "cdaaar" , 1, 1 , TST_PAIR , OP_CDAAAR) OP_DEF (1, "cdaadr" , 1, 1 , TST_PAIR , OP_CDAADR) OP_DEF (1, "cdadar" , 1, 1 , TST_PAIR , OP_CDADAR) OP_DEF (1, "cdaddr" , 1, 1 , TST_PAIR , OP_CDADDR) OP_DEF (1, "cddaar" , 1, 1 , TST_PAIR , OP_CDDAAR) OP_DEF (1, "cddadr" , 1, 1 , TST_PAIR , OP_CDDADR) OP_DEF (1, "cdddar" , 1, 1 , TST_PAIR , OP_CDDDAR) OP_DEF (1, "cddddr" , 1, 1 , TST_PAIR , OP_CDDDDR) OP_DEF (1, "cons" , 2, 2 , TST_NONE , OP_CONS) OP_DEF (1, "set-car!" , 2, 2 , TST_PAIR TST_ANY , OP_SETCAR) OP_DEF (1, "set-cdr!" , 2, 2 , TST_PAIR TST_ANY , OP_SETCDR) OP_DEF (1, "char->integer" , 1, 1 , TST_CHAR , OP_CHAR2INT) OP_DEF (1, "integer->char" , 1, 1 , TST_NATURAL , OP_INT2CHAR) OP_DEF (1, "char-upcase" , 1, 1 , TST_CHAR , OP_CHARUPCASE) OP_DEF (1, "char-downcase" , 1, 1 , TST_CHAR , OP_CHARDNCASE) OP_DEF (1, "symbol->string" , 1, 1 , TST_SYMBOL , OP_SYM2STR) OP_DEF (1, "atom->string" , 1, 2 , TST_ANY TST_NATURAL , OP_ATOM2STR) OP_DEF (1, "string->symbol" , 1, 1 , TST_STRING , OP_STR2SYM) OP_DEF (1, "string->atom" , 1, 2 , TST_STRING TST_NATURAL , OP_STR2ATOM) OP_DEF (1, "make-string" , 1, 2 , TST_NATURAL TST_CHAR , OP_MKSTRING) OP_DEF (1, "string-length" , 1, 1 , TST_STRING , OP_STRLEN) OP_DEF (1, "string-ref" , 2, 2 , TST_STRING TST_NATURAL , OP_STRREF) OP_DEF (1, "string-set!" , 3, 3 , TST_STRING TST_NATURAL TST_CHAR, OP_STRSET) OP_DEF (1, "string-append" , 0, INF_ARG, TST_STRING , OP_STRAPPEND) OP_DEF (1, "string-copy" , 1, 3 , TST_STRING TST_NATURAL , OP_STRING_COPY) OP_DEF (1, "vector" , 0, INF_ARG, TST_NONE , OP_VECTOR) OP_DEF (1, "make-vector" , 1, 2 , TST_NATURAL TST_ANY , OP_MKVECTOR) OP_DEF (1, "vector-length" , 1, 1 , TST_VECTOR , OP_VECLEN) OP_DEF (1, "vector-resize" , 2, 3 , TST_VECTOR TST_NATURAL TST_ANY , OP_VECRESIZE) OP_DEF (1, "vector-ref" , 2, 2 , TST_VECTOR TST_NATURAL , OP_VECREF) OP_DEF (1, "vector-set!" , 3, 3 , TST_VECTOR TST_NATURAL TST_ANY , OP_VECSET) OP_DEF (2, "=" , 2, INF_ARG, TST_NUMBER , OP_NUMEQ) OP_DEF (2, "<" , 2, INF_ARG, TST_NUMBER , OP_LESS) OP_DEF (2, ">" , 2, INF_ARG, TST_NUMBER , OP_GRE) OP_DEF (2, "<=" , 2, INF_ARG, TST_NUMBER , OP_LEQ) OP_DEF (2, ">=" , 2, INF_ARG, TST_NUMBER , OP_GEQ) OP_DEF (3, "not" , 1, 1 , TST_NONE , OP_NOT) OP_DEF (3, "boolean?" , 1, 1 , TST_NONE , OP_BOOLP) OP_DEF (3, "eof-object?" , 1, 1 , TST_NONE , OP_EOFOBJP) OP_DEF (3, "null?" , 1, 1 , TST_NONE , OP_NULLP) OP_DEF (3, "gensym?" , 1, 1 , TST_ANY , OP_GENSYMP) OP_DEF (3, "symbol?" , 1, 1 , TST_ANY , OP_SYMBOLP) OP_DEF (3, "number?" , 1, 1 , TST_ANY , OP_NUMBERP) OP_DEF (3, "string?" , 1, 1 , TST_ANY , OP_STRINGP) OP_DEF (3, "integer?" , 1, 1 , TST_ANY , OP_INTEGERP) OP_DEF (3, "real?" , 1, 1 , TST_ANY , OP_REALP) OP_DEF (3, "char?" , 1, 1 , TST_ANY , OP_CHARP) #if USE_CHAR_CLASSIFIERS OP_DEF (3, "char-alphabetic?" , 1, 1 , TST_CHAR , OP_CHARAP) OP_DEF (3, "char-numeric?" , 1, 1 , TST_CHAR , OP_CHARNP) OP_DEF (3, "char-whitespace?" , 1, 1 , TST_CHAR , OP_CHARWP) OP_DEF (3, "char-upper-case?" , 1, 1 , TST_CHAR , OP_CHARUP) OP_DEF (3, "char-lower-case?" , 1, 1 , TST_CHAR , OP_CHARLP) #endif #if USE_PORTS OP_DEF (3, "port?" , 1, 1 , TST_ANY , OP_PORTP) OP_DEF (3, "input-port?" , 1, 1 , TST_ANY , OP_INPORTP) OP_DEF (3, "output-port?" , 1, 1 , TST_ANY , OP_OUTPORTP) #endif OP_DEF (3, "procedure?" , 1, 1 , TST_ANY , OP_PROCP) OP_DEF (3, "pair?" , 1, 1 , TST_ANY , OP_PAIRP) OP_DEF (3, "list?" , 1, 1 , TST_ANY , OP_LISTP) OP_DEF (3, "environment?" , 1, 1 , TST_ANY , OP_ENVP) OP_DEF (3, "vector?" , 1, 1 , TST_ANY , OP_VECTORP) OP_DEF (3, "eq?" , 2, 2 , TST_ANY , OP_EQ) OP_DEF (3, "eqv?" , 2, 2 , TST_ANY , OP_EQV) OP_DEF (4, "force" , 1, 1 , TST_ANY , OP_FORCE) OP_DEF (4, UNNAMED_OP , 0, 0 , 0 , OP_SAVE_FORCED) #if USE_PORTS OP_DEF (4, "eof-object" , 0, 0 , 0 , OP_EOF_OBJECT) OP_DEF (4, "write" , 1, 2 , TST_ANY TST_OUTPORT , OP_WRITE) OP_DEF (4, "write-char" , 1, 2 , TST_CHAR TST_OUTPORT , OP_WRITE_CHAR) OP_DEF (4, "display" , 1, 2 , TST_ANY TST_OUTPORT , OP_DISPLAY) OP_DEF (4, "newline" , 0, 1 , TST_OUTPORT , OP_NEWLINE) #endif OP_DEF (4, "error" , 1, INF_ARG, TST_NONE , OP_ERR0) OP_DEF (4, UNNAMED_OP , 0, 0 , 0 , OP_ERR1) OP_DEF (4, "reverse" , 1, 1 , TST_LIST , OP_REVERSE) OP_DEF (4, "list*" , 1, INF_ARG, TST_NONE , OP_LIST_STAR) OP_DEF (4, "append" , 0, INF_ARG, TST_NONE , OP_APPEND) #if USE_PLIST OP_DEF (4, "put" , 3, 3 , TST_NONE , OP_PUT) OP_DEF (4, "get" , 2, 2 , TST_NONE , OP_GET) #endif OP_DEF (4, "quit" , 0, 1 , TST_NUMBER , OP_QUIT) OP_DEF (4, "gc" , 0, 0 , 0 , OP_GC) OP_DEF (4, "gc-verbose" , 0, 1 , TST_NONE , OP_GCVERB) OP_DEF (4, "new-segment" , 0, 1 , TST_NUMBER , OP_NEWSEGMENT) OP_DEF (4, "oblist" , 0, 0 , 0 , OP_OBLIST) #if USE_PORTS OP_DEF (4, "current-input-port" , 0, 0 , 0 , OP_CURR_INPORT) OP_DEF (4, "current-output-port" , 0, 0 , 0 , OP_CURR_OUTPORT) OP_DEF (4, "open-input-file" , 1, 1 , TST_STRING , OP_OPEN_INFILE) OP_DEF (4, "open-output-file" , 1, 1 , TST_STRING , OP_OPEN_OUTFILE) OP_DEF (4, "open-input-output-file", 1, 1 , TST_STRING , OP_OPEN_INOUTFILE) # if USE_STRING_PORTS OP_DEF (4, "open-input-string" , 1, 1 , TST_STRING , OP_OPEN_INSTRING) OP_DEF (4, "open-input-output-string",1,1 , TST_STRING , OP_OPEN_INOUTSTRING) OP_DEF (4, "open-output-string" , 0, 1 , TST_STRING , OP_OPEN_OUTSTRING) OP_DEF (4, "get-output-string" , 1, 1 , TST_OUTPORT , OP_GET_OUTSTRING) # endif OP_DEF (4, "close-input-port" , 1, 1 , TST_INPORT , OP_CLOSE_INPORT) OP_DEF (4, "close-output-port" , 1, 1 , TST_OUTPORT , OP_CLOSE_OUTPORT) #endif OP_DEF (4, "interaction-environment",0, 0 , 0 , OP_INT_ENV) OP_DEF (4, "current-environment" , 0, 0 , 0 , OP_CURR_ENV) #if USE_PORTS OP_DEF (5, "read" , 0, 1 , TST_INPORT , OP_READ) OP_DEF (5, "read-char" , 0, 1 , TST_INPORT , OP_READ_CHAR) OP_DEF (5, "peek-char" , 0, 1 , TST_INPORT , OP_PEEK_CHAR) OP_DEF (5, "char-ready?" , 0, 1 , TST_INPORT , OP_CHAR_READY) OP_DEF (5, "set-input-port" , 1, 1 , TST_INPORT , OP_SET_INPORT) OP_DEF (5, "set-output-port" , 1, 1 , TST_OUTPORT , OP_SET_OUTPORT) #endif OP_DEF (5, UNNAMED_OP , 0, 0 , 0 , OP_RDSEXPR) OP_DEF (5, UNNAMED_OP , 0, 0 , 0 , OP_RDLIST) OP_DEF (5, UNNAMED_OP , 0, 0 , 0 , OP_RDDOT) OP_DEF (5, UNNAMED_OP , 0, 0 , 0 , OP_RDQUOTE) OP_DEF (5, UNNAMED_OP , 0, 0 , 0 , OP_RDQQUOTE) OP_DEF (5, UNNAMED_OP , 0, 0 , 0 , OP_RDQQUOTEVEC) OP_DEF (5, UNNAMED_OP , 0, 0 , 0 , OP_RDUNQUOTE) OP_DEF (5, UNNAMED_OP , 0, 0 , 0 , OP_RDUQTSP) OP_DEF (5, UNNAMED_OP , 0, 0 , 0 , OP_RDVEC) OP_DEF (5, UNNAMED_OP , 0, 0 , 0 , OP_P0LIST) OP_DEF (5, UNNAMED_OP , 0, 0 , 0 , OP_P1LIST) OP_DEF (5, UNNAMED_OP , 0, 0 , 0 , OP_PVECFROM) OP_DEF (6, "length" , 1, 1 , TST_LIST , OP_LIST_LENGTH) OP_DEF (6, "assq" , 2, 2 , TST_NONE , OP_ASSQ) OP_DEF (6, "get-closure-code" , 1, 1 , TST_NONE , OP_GET_CLOSURE) OP_DEF (6, "closure?" , 1, 1 , TST_NONE , OP_CLOSUREP) OP_DEF (6, "macro?" , 1, 1 , TST_NONE , OP_MACROP) #if EXPERIMENT OP_DEF (0, "debug" , 1, 1 , TST_NONE , OP_DEBUG)//D OP_DEF (0, "debug2" , 1, 1 , TST_NONE , OP_DEBUG2)//D #endif