complex_special

Overview

Package

Class

Use

Tree

Deprecated

Index

Help

PREV CLASS NEXT CLASS

FRAMES NO FRAMES

SUMMARY: NESTED | FIELD | CONSTR | METHOD

DETAIL: FIELD | CONSTR | METHOD

com.cyc.tool.subl.jrtl.translatedCode.sublisp
Class complex_special_forms

java.lang.Object
  com.cyc.tool.subl.util.SubLTrampolineFile
      com.cyc.tool.subl.util.SubLTranslatedFile
          com.cyc.tool.subl.jrtl.translatedCode.sublisp.complex_special_forms

All Implemented Interfaces:: CommonSymbols, SubLFile

public final class complex_special_forms
extends SubLTranslatedFile
extends SubLTranslatedFile

Nested Class Summary

Nested classes/interfaces inherited from class com.cyc.tool.subl.util.SubLTranslatedFile
`SubLTranslatedFile.SubL`

Field Summary
`static SubLSymbol`	$call_profiling_enabledP$
`static SubLSymbol`	$call_profiling_table$
`static SubLInteger`	`$int110$1000`
`static SubLSymbol`	`$kw26$CONC_NAME`
`static SubLSymbol`	`$kw27$PRINT_FUNCTION`
`static SubLSymbol`	`$kw28$C_STRUCTURE_TAG`
`static SubLSymbol`	`$kw29$GENERATE_VISIT_FUNCTION_`
`static SubLSymbol`	`$kw30$NAME`
`static SubLSymbol`	`$kw31$HOST_FN_NAME`
`static SubLSymbol`	`$kw32$PREDICATE`
`static SubLSymbol`	`$kw33$CONSTRUCTOR`
`static SubLSymbol`	`$kw34$TYPE_VAR`
`static SubLSymbol`	`$kw35$SLOTS`
`static SubLSymbol`	`$kw36$SLOT_KEYWORDS`
`static SubLSymbol`	`$kw37$GETTERS`
`static SubLSymbol`	`$kw38$SETTERS`
`static SubLSymbol`	`$kw48$ALLOW_OTHER_KEYS`
`static SubLSymbol`	`$kw49$SL2JAVA`
`static SubLSymbol`	`$kw97$BEGIN`
`static SubLSymbol`	`$kw98$SLOT`
`static SubLSymbol`	`$kw99$END`
`static SubLList`	`$list0`
`static SubLList`	`$list103`
`static SubLList`	`$list104`
`static SubLList`	`$list105`
`static SubLList`	`$list106`
`static SubLList`	`$list109`
`static SubLList`	`$list13`
`static SubLList`	`$list24`
`static SubLList`	`$list4`
`static SubLList`	`$list46`
`static SubLList`	`$list47`
`static SubLList`	`$list51`
`static SubLList`	`$list52`
`static SubLList`	`$list57`
`static SubLList`	`$list58`
`static SubLList`	`$list59`
`static SubLList`	`$list61`
`static SubLList`	`$list71`
`static SubLList`	`$list72`
`static SubLList`	`$list80`
`static SubLList`	`$list84`
`static SubLSymbol`	$polymorphic_type_hierarchy$
`static SubLString`	`$str1$METHOD_FUNCTION`
`static SubLString`	`$str17$_`
`static SubLString`	`$str18$_METHOD_TABLE_`
`static SubLString`	`$str19$_`
`static SubLString`	`$str20$_METHOD`
`static SubLString`	`$str21$_DTP_`
`static SubLString`	`$str39$_P`
`static SubLString`	`$str40$MAKE_`
`static SubLString`	`$str41$VISIT_DEFSTRUCT_`
`static SubLString`	`$str42$_CSETF_`
`static SubLString`	`$str43$CYC`
`static SubLString`	`$str44$SUBLISP`
`static SubLString`	`$str45$_1`
`static SubLString`	`$str67$_PRINT_FUNCTION_TRAMPOLINE`
`static SubLString`	`$str85$CURRENT_VALUE`
`static SubLString`	`$str86$CURRENT_ARG`
`static SubLString`	`$str87$NEXT`
`static SubLString`	`$str90$Invalid_slot__S_for_construction_`
`static SubLSymbol`	`$sym10$FUNCALL`
`static SubLSymbol`	`$sym100$DEFINE_METHOD`
`static SubLSymbol`	`$sym101$VISIT_DEFSTRUCT_OBJECT`
`static SubLSymbol`	`$sym102$OBJ`
`static SubLSymbol`	`$sym107$CUNWIND_PROTECT`
`static SubLSymbol`	`$sym108$CSETF`
`static SubLSymbol`	`$sym11$DECLAIM`
`static SubLSymbol`	`$sym111$_`
`static SubLSymbol`	`$sym112$CDR`
`static SubLSymbol`	`$sym12$OPTIMIZE_FUNCALL`
`static SubLSymbol`	`$sym14$_REGISTER_METHOD`
`static SubLSymbol`	`$sym15$FUNCTION`
`static SubLSymbol`	`$sym16$STRING_`
`static SubLSymbol`	`$sym2$PROGN`
`static SubLSymbol`	`$sym22$_OPTIONAL`
`static SubLSymbol`	`$sym23$_REST`
`static SubLSymbol`	`$sym25$SYMBOLP`
`static SubLSymbol`	`$sym3$DEFLEXICAL`
`static SubLSymbol`	`$sym5$DEFINE`
`static SubLSymbol`	`$sym50$QUOTE`
`static SubLSymbol`	`$sym53$_STRUCTURE_TYPE`
`static SubLSymbol`	`$sym54$CAND`
`static SubLSymbol`	`$sym55$_STRUCTURES_BAG_P`
`static SubLSymbol`	`$sym56$_STRUCTURE_SLOT`
`static SubLSymbol`	`$sym6$CLET`
`static SubLSymbol`	`$sym60$_SET_STRUCTURE_SLOT`
`static SubLSymbol`	`$sym62$_CLEAR_STRUCTURE`
`static SubLSymbol`	`$sym63$_NEW_STRUCTURE`
`static SubLSymbol`	`$sym64$_CLEAR_SUB_STRUCTURE`
`static SubLSymbol`	`$sym65$_DTP_STRUCTURES_BAG_`
`static SubLSymbol`	`$sym66$DEFCONSTANT`
`static SubLSymbol`	`$sym68$DEFAULT_STRUCT_PRINT_FUNCTION`
`static SubLSymbol`	`$sym69$FACCESS`
`static SubLSymbol`	`$sym7$_METHOD`
`static SubLSymbol`	`$sym70$PRIVATE`
`static SubLSymbol`	`$sym73$_PRINT_OBJECT_METHOD_TABLE_`
`static SubLSymbol`	`$sym74$_REGISTER_DEFSTRUCT`
`static SubLSymbol`	`$sym75$_DEFSTRUCT_OBJECT_P`
`static SubLSymbol`	`$sym76$OBJECT`
`static SubLSymbol`	`$sym77$CHECK_TYPE`
`static SubLSymbol`	`$sym78$_DEFSTRUCT_GET_SLOT`
`static SubLSymbol`	`$sym79$_DEFSTRUCT_SET_SLOT`
`static SubLSymbol`	`$sym8$PWHEN`
`static SubLSymbol`	`$sym81$_DEF_CSETF`
`static SubLSymbol`	`$sym82$NEW`
`static SubLSymbol`	`$sym83$_DEFSTRUCT_CONSTRUCT`
`static SubLSymbol`	`$sym88$OTHERWISE`
`static SubLSymbol`	`$sym89$ERROR`
`static SubLSymbol`	`$sym9$RET`
`static SubLSymbol`	`$sym91$CDO`
`static SubLSymbol`	`$sym92$CDDR`
`static SubLSymbol`	`$sym93$NULL`
`static SubLSymbol`	`$sym94$CAR`
`static SubLSymbol`	`$sym95$CADR`
`static SubLSymbol`	`$sym96$PCASE`
`static SubLFile`	`me`
`static java.lang.String`	`myName`

Fields inherited from class com.cyc.tool.subl.util.SubLTranslatedFile
`EMPTY_SUBL_OBJECT_ARRAY`

Fields inherited from interface com.cyc.tool.subl.jrtl.nativeCode.subLisp.CommonSymbols
ANSWER_TAG, APPEND_KEYWORD, APPEND_STACK_TRACES_TO_ERROR_MESSAGES, AREF, ASSEMBLE_FIXNUMS_TO_INTEGER, ATOM, BIGNUMP, BINARY_KEYWORD, BINDING_TYPE, BOOLEANP, CAAR, CADR, CAND, CAR, CCATCH, CDEC, CDESTRUCTURING_BIND, CDO, CDO_ALL_SYMBOLS, CDO_EXTERNAL_SYMBOLS, CDO_SYMBOLS, CDOHASH, CDOLIST, CDOTIMES, CDR, CHAR, CHAR_E_SYMBOL, CHAR_EQUAL_SYMBOL, CHAR_GREATER_THAN_OR_EQUAL_SYMBOL, CHAR_GREATER_THAN_SYMBOL, CHAR_GT_SYMBOL, CHAR_GTE_SYMBOL, CHAR_LESS_THAN_OR_EQUAL_SYMBOL, CHAR_LESS_THAN_SYMBOL, CHAR_LT_SYMBOL, CHAR_LTE_SYMBOL, CHAR_NE_SYMBOL, CHAR_NOT_EQUAL_SYMBOL, CHARACTERP, CHECK_TYPE, CINC, CLET, CMULTIPLE_VALUE_BIND, CNOT, CONS, CONSP, CONSTANT, COR, CPOP, CPROGV, CPUSH, CPUSHNEW, CREATE_KEYWORD, CSETF, CSETQ, CSOME, CTIME, CUNWIND_PROTECT, CVS_ID, DEBUG_IO, DECLAIM, DECLARE, DEFCONSTANT, DEFINE, DEFLEXICAL, DEFMACRO, DEFPARAMETER, DEFVAR, DIRECTION_KEYWORD, DYNAMIC, EIGHT_INTEGER, EIGHTEEN_INTEGER, ELEMENT_TYPE_KEYWORD, ELEVEN_INTEGER, END_KEYWORD, ENFORCE_MUST, ENFORCE_TYPE, EQ, EQL, EQUAL, EQUALP, ERROR, ERROR_KEYWORD, ERROR_OUTPUT, EVAL, EXTERNAL_FORMAT_KEYWORD, EXTERNAL_KEYWORD, FIF, FIFTEEN_INTEGER, FIRST, FIVE_INTEGER, FIXNUMP, FLOATP, FOUR_INTEGER, FOURTEEN_INTEGER, FUNCTION, FUNCTION_SPEC_P, FUNCTIONP, FUNLESS, FWHEN, GET, GETHASH, GETHASH_WITHOUT_VALUES, GUID_P, HASH_TABLE_ITERATOR_P, HASH_TABLE_P, IDENTITY, IF_DOES_NOT_EXIST_KEYWORD, IF_EXISTS_KEYWORD, IGNORE, INITIALIZATION_TYPE, INITIALIZER, INPUT_KEYWORD, INPUT_STREAM_P, INTEGERP, INTERNAL_KEYWORD, IO_KEYWORD, KEYWORDP, KILL_KEYWORD, LAMBDA_SYMBOL, LEXICAL, LIST, LISTP, LISTS, LOCK_P, LONG_BIGNUM_P, MACRO_ENV, MACRO_FORM, MEDIUM_BIGNUM_P, MEMBER, MINUS_ONE_INTEGER, MULTIPLE_VALUE_LIST, MUST, NCONC, NEW_VERSION_KEYWORD, NIL, NINE_INTEGER, NINETEEN_INTEGER, NREVERSE, NTH, NTH_VALUE, NULL, NULL_INPUT, NULL_OUTPUT, NUM_E_SYMBOL, NUM_GT_SYMBOL, NUM_GTE_SYMBOL, NUM_LT_SYMBOL, NUM_LTE_SYMBOL, NUM_NE_SYMBOL, NUMBERP, ONE_HUNDRED_THIRTY_SEVEN_INTEGER, ONE_HUNDRED_TWENTY_SEVEN_INTEGER, ONE_INTEGER, ONE_THOUSAND_INTEGER, OPTIONAL_SYMBOL, OTHERWISE, OUTPUT_KEYWORD, OUTPUT_STREAM_P, OVERWRITE_KEYWORD, PACKAGEP, PCASE, PCOND, PIF, PROBE_KEYWORD, PROCESS_TO_END, PROCESSP, PROCLAIM, PROGN, PUNLESS, PWHEN, QUERY_IO, QUIT, QUOTE, RENAME_AND_DELETE_KEYWORD, REST_SYMBOL, RET, RET_NIL, RET_T, RETURN_TAG, REVERSE, RW_LOCK_P, SECOND, SEQUENCEP, SEVEN_INTEGER, SEVENTEEN_INTEGER, SHORT_BIGNUM_P, SHOW_STACK_TRACES, SIX_INTEGER, SIXTEEN_INTEGER, SIXTY_FOUR_INTEGER, SORT, SSS, STANDARD_INPUT, STANDARD_OUTPUT, START_KEYWORD, STREAMP, STRING_E_SYMBOL, STRING_EQUAL_SYMBOL, STRING_GREATER_THAN_OR_EQUAL_SYMBOL, STRING_GREATER_THAN_SYMBOL, STRING_GT_SYMBOL, STRING_GTE_SYMBOL, STRING_LESS_THAN_OR_EQUAL_SYMBOL, STRING_LESS_THAN_SYMBOL, STRING_LT_SYMBOL, STRING_LTE_SYMBOL, STRING_NE_SYMBOL, STRING_NOT_EQUAL_SYMBOL, STRINGP, STRUCTURE_P, SUPERSEDE_KEYWORD, SUSPEND_TYPE_CHECKING, SYMBOL_FUNCTION, SYMBOL_VALUE, SYMBOLP, T, TEN_INTEGER, TERMINAL_IO, TEXT_KEYWORD, THIRTEEN_INTEGER, THIRTY_FOUR_INTEGER, THIRTY_THREE_INTEGER, THIRTY_TWO_INTEGER, THREE_INTEGER, TRACE_OUTPUT, TRUE, TWELVE_INTEGER, TWENTY_INTEGER, TWO_HUNDRED_FIFTY_FOUR_INTEGER, TWO_HUNDRED_FORTY_FOUR_INTEGER, TWO_INTEGER, UNDECLARED, UNPROVIDED, VALUES, VECTOR, VECTORP, WITH_ERROR_HANDLER, WITH_STATIC_AREA, WITH_THREAD_PRIVATE_AREA, WITH_WORKING_AREA, WORLD, ZERO_DOUBLE, ZERO_INTEGER

Fields inherited from interface com.cyc.tool.subl.jrtl.nativeCode.subLisp.CommonSymbols

ANSWER_TAG, APPEND_KEYWORD, APPEND_STACK_TRACES_TO_ERROR_MESSAGES, AREF, ASSEMBLE_FIXNUMS_TO_INTEGER, ATOM, BIGNUMP, BINARY_KEYWORD, BINDING_TYPE, BOOLEANP, CAAR, CADR, CAND, CAR, CCATCH, CDEC, CDESTRUCTURING_BIND, CDO, CDO_ALL_SYMBOLS, CDO_EXTERNAL_SYMBOLS, CDO_SYMBOLS, CDOHASH, CDOLIST, CDOTIMES, CDR, CHAR, CHAR_E_SYMBOL, CHAR_EQUAL_SYMBOL, CHAR_GREATER_THAN_OR_EQUAL_SYMBOL, CHAR_GREATER_THAN_SYMBOL, CHAR_GT_SYMBOL, CHAR_GTE_SYMBOL, CHAR_LESS_THAN_OR_EQUAL_SYMBOL, CHAR_LESS_THAN_SYMBOL, CHAR_LT_SYMBOL, CHAR_LTE_SYMBOL, CHAR_NE_SYMBOL, CHAR_NOT_EQUAL_SYMBOL, CHARACTERP, CHECK_TYPE, CINC, CLET, CMULTIPLE_VALUE_BIND, CNOT, CONS, CONSP, CONSTANT, COR, CPOP, CPROGV, CPUSH, CPUSHNEW, CREATE_KEYWORD, CSETF, CSETQ, CSOME, CTIME, CUNWIND_PROTECT, CVS_ID, DEBUG_IO, DECLAIM, DECLARE, DEFCONSTANT, DEFINE, DEFLEXICAL, DEFMACRO, DEFPARAMETER, DEFVAR, DIRECTION_KEYWORD, DYNAMIC, EIGHT_INTEGER, EIGHTEEN_INTEGER, ELEMENT_TYPE_KEYWORD, ELEVEN_INTEGER, END_KEYWORD, ENFORCE_MUST, ENFORCE_TYPE, EQ, EQL, EQUAL, EQUALP, ERROR, ERROR_KEYWORD, ERROR_OUTPUT, EVAL, EXTERNAL_FORMAT_KEYWORD, EXTERNAL_KEYWORD, FIF, FIFTEEN_INTEGER, FIRST, FIVE_INTEGER, FIXNUMP, FLOATP, FOUR_INTEGER, FOURTEEN_INTEGER, FUNCTION, FUNCTION_SPEC_P, FUNCTIONP, FUNLESS, FWHEN, GET, GETHASH, GETHASH_WITHOUT_VALUES, GUID_P, HASH_TABLE_ITERATOR_P, HASH_TABLE_P, IDENTITY, IF_DOES_NOT_EXIST_KEYWORD, IF_EXISTS_KEYWORD, IGNORE, INITIALIZATION_TYPE, INITIALIZER, INPUT_KEYWORD, INPUT_STREAM_P, INTEGERP, INTERNAL_KEYWORD, IO_KEYWORD, KEYWORDP, KILL_KEYWORD, LAMBDA_SYMBOL, LEXICAL, LIST, LISTP, LISTS, LOCK_P, LONG_BIGNUM_P, MACRO_ENV, MACRO_FORM, MEDIUM_BIGNUM_P, MEMBER, MINUS_ONE_INTEGER, MULTIPLE_VALUE_LIST, MUST, NCONC, NEW_VERSION_KEYWORD, NIL, NINE_INTEGER, NINETEEN_INTEGER, NREVERSE, NTH, NTH_VALUE, NULL, NULL_INPUT, NULL_OUTPUT, NUM_E_SYMBOL, NUM_GT_SYMBOL, NUM_GTE_SYMBOL, NUM_LT_SYMBOL, NUM_LTE_SYMBOL, NUM_NE_SYMBOL, NUMBERP, ONE_HUNDRED_THIRTY_SEVEN_INTEGER, ONE_HUNDRED_TWENTY_SEVEN_INTEGER, ONE_INTEGER, ONE_THOUSAND_INTEGER, OPTIONAL_SYMBOL, OTHERWISE, OUTPUT_KEYWORD, OUTPUT_STREAM_P, OVERWRITE_KEYWORD, PACKAGEP, PCASE, PCOND, PIF, PROBE_KEYWORD, PROCESS_TO_END, PROCESSP, PROCLAIM, PROGN, PUNLESS, PWHEN, QUERY_IO, QUIT, QUOTE, RENAME_AND_DELETE_KEYWORD, REST_SYMBOL, RET, RET_NIL, RET_T, RETURN_TAG, REVERSE, RW_LOCK_P, SECOND, SEQUENCEP, SEVEN_INTEGER, SEVENTEEN_INTEGER, SHORT_BIGNUM_P, SHOW_STACK_TRACES, SIX_INTEGER, SIXTEEN_INTEGER, SIXTY_FOUR_INTEGER, SORT, SSS, STANDARD_INPUT, STANDARD_OUTPUT, START_KEYWORD, STREAMP, STRING_E_SYMBOL, STRING_EQUAL_SYMBOL, STRING_GREATER_THAN_OR_EQUAL_SYMBOL, STRING_GREATER_THAN_SYMBOL, STRING_GT_SYMBOL, STRING_GTE_SYMBOL, STRING_LESS_THAN_OR_EQUAL_SYMBOL, STRING_LESS_THAN_SYMBOL, STRING_LT_SYMBOL, STRING_LTE_SYMBOL, STRING_NE_SYMBOL, STRING_NOT_EQUAL_SYMBOL, STRINGP, STRUCTURE_P, SUPERSEDE_KEYWORD, SUSPEND_TYPE_CHECKING, SYMBOL_FUNCTION, SYMBOL_VALUE, SYMBOLP, T, TEN_INTEGER, TERMINAL_IO, TEXT_KEYWORD, THIRTEEN_INTEGER, THIRTY_FOUR_INTEGER, THIRTY_THREE_INTEGER, THIRTY_TWO_INTEGER, THREE_INTEGER, TRACE_OUTPUT, TRUE, TWELVE_INTEGER, TWENTY_INTEGER, TWO_HUNDRED_FIFTY_FOUR_INTEGER, TWO_HUNDRED_FORTY_FOUR_INTEGER, TWO_INTEGER, UNDECLARED, UNPROVIDED, VALUES, VECTOR, VECTORP, WITH_ERROR_HANDLER, WITH_STATIC_AREA, WITH_THREAD_PRIVATE_AREA, WITH_WORKING_AREA, WORLD, ZERO_DOUBLE, ZERO_INTEGER

Method Summary
`static SubLObject`	`_defstruct_construct(SubLObject macroform, SubLObject environment)`
`static SubLObject`	`_defstruct_get_slot(SubLObject macroform, SubLObject environment)`
`static SubLObject`	`_defstruct_object_p(SubLObject macroform, SubLObject environment)`
`static SubLObject`	`_defstruct_set_slot(SubLObject macroform, SubLObject environment)`
`static SubLObject`	`accessor_package(SubLObject accessor)`
`static SubLObject`	`build_regmethod_call(SubLObject type, SubLObject method_table, SubLObject method_function)` Given one type, this method builds the right call to register-method.
`static SubLObject`	`build_regmethod_list(SubLObject type, SubLObject method_table, SubLObject method_function)` This function builds a list of _register-method calls, as appropriate for the type.
`static SubLObject`	`declare_complex_special_forms_file()`
`void`	`declareFunctions()` Declares the mapping between functions and symbols for all named functions defined in the file.
`static SubLObject`	`define_method_internal(SubLObject name, SubLObject arglist, SubLObject body)`
`static SubLObject`	`define_method(SubLObject macroform, SubLObject environment)` Defines a method for the polymorphic function that runs if is of type .
`static SubLObject`	`defpolymorphic_internal(SubLObject name, SubLObject arglist, SubLObject body)`
`static SubLObject`	`defpolymorphic(SubLObject macroform, SubLObject environment)` Defines a new polymorphic function that dispatches on the type of its first argument.
`static SubLObject`	`defstruct_analyze(SubLObject name, SubLObject options, SubLObject slots)`
`static SubLObject`	`defstruct_conc_name(SubLObject name, SubLObject conc_name)`
`static SubLObject`	`defstruct_constructor_arglist_handler(SubLObject arglist_var, SubLObject new_var, SubLObject slot_keywords, SubLObject setters)`
`static SubLObject`	`defstruct_constructor_arglist(SubLObject constructor)`
`static SubLObject`	`defstruct_constructor_form(SubLObject type, SubLObject constructor, SubLObject c_structure_tag, SubLObject type_var, SubLObject slot_keywords, SubLObject setters)`
`static SubLObject`	`defstruct_constructor(SubLObject name)`
`static SubLObject`	`defstruct_def_csetf_forms(SubLObject getters, SubLObject setters)`
`static SubLObject`	`defstruct_expand(SubLObject analysis)`
`static SubLObject`	`defstruct_first_function_variable(SubLObject function, SubLObject v_default)` return a symbol to use as the first variable in the arglist of FUNCTION
`static SubLObject`	`defstruct_getter_arglist(SubLObject getter)`
`static SubLObject`	`defstruct_getter_form(SubLObject getter, SubLObject index, SubLObject predicate, SubLObject type, SubLObject slot)`
`static SubLObject`	`defstruct_getter_forms(SubLObject type, SubLObject c_structure_tag, SubLObject predicate, SubLObject slots, SubLObject getters)`
`static SubLObject`	`defstruct_getter_variable(SubLObject getter)`
`static SubLObject`	`defstruct_getter(SubLObject conc_name, SubLObject slot)`
`static SubLObject`	`defstruct_getters(SubLObject conc_name, SubLObject slots)`
`static SubLObject`	`defstruct_host_arglist()`
`static SubLObject`	`defstruct_host_fn_name(SubLObject name)`
`static SubLObject`	`defstruct_host_function(SubLObject type_name, SubLObject host_fn, SubLObject constructor_fn, SubLObject slot_keywords, SubLObject getters)` Returns the form for the visitation of a structure object.
`static SubLObject`	`defstruct_lisp_constructor(SubLObject constructor)`
`static SubLObject`	`defstruct_predicate_arglist(SubLObject predicate)`
`static SubLObject`	`defstruct_predicate_form(SubLObject type, SubLObject predicate, SubLObject c_structure_tag, SubLObject type_var)`
`static SubLObject`	`defstruct_predicate_variable(SubLObject predicate)`
`static SubLObject`	`defstruct_predicate(SubLObject name)`
`static SubLObject`	`defstruct_print_forms(SubLObject c_structure_tag, SubLObject tag_var, SubLObject print_function, SubLObject print_method)`
`static SubLObject`	`defstruct_print_method(SubLObject name, SubLObject print_function)`
`static SubLObject`	`defstruct_register_form(SubLObject name, SubLObject c_structure_tag, SubLObject slots, SubLObject print_method)`
`static SubLObject`	`defstruct_setter_arglist(SubLObject setter)`
`static SubLObject`	`defstruct_setter_form(SubLObject setter, SubLObject index, SubLObject predicate, SubLObject type, SubLObject slot)`
`static SubLObject`	`defstruct_setter_forms(SubLObject type, SubLObject c_structure_tag, SubLObject predicate, SubLObject slots, SubLObject setters)`
`static SubLObject`	`defstruct_setter(SubLObject getter)`
`static SubLObject`	`defstruct_setters(SubLObject getters)`
`static SubLObject`	`defstruct_slot_keywords(SubLObject slots)`
`static SubLObject`	`defstruct_type_var_form(SubLObject type_var, SubLObject name, SubLObject c_structure_tag)`
`static SubLObject`	`defstruct_type_var(SubLObject name)`
`static SubLObject`	`defstruct(SubLObject macroform, SubLObject environment)` Like Common Lisp defstruct except: (1) slot initializations are not allowed.
`static SubLObject`	`dtp_var(SubLObject name)`
`static SubLObject`	`finalize_call_profiling_table(SubLObject table)`
`static SubLObject`	`full_formal_parameter_list(SubLObject arglist)` Given a function ARGLIST, return a list of all the formal parameters
`static SubLObject`	`getter_package(SubLObject getter)`
`static SubLObject`	`init_complex_special_forms_file()`
`static SubLObject`	`initialize_call_profiling_table()`
`void`	`initializeVariables()` Initializes all global variables and private internal variables for constants defined in the file.
`static SubLObject`	`intern_accessor(SubLObject string)`
`static SubLObject`	`method_function_var(SubLObject name, SubLObject type)`
`static SubLObject`	`method_table_var(SubLObject name)`
`static SubLObject`	`possibly_note_function_entry(SubLObject name)`
`void`	`runTopLevelForms()` Runs all top-level forms in order.
`static SubLObject`	`setter_from_accessor(SubLObject accessor)`
`static SubLObject`	`setup_complex_special_forms_file()`
`static SubLObject`	`with_call_profiling(SubLObject macroform, SubLObject environment)` Execute BODY with call profiling enabled.

Methods inherited from class com.cyc.tool.subl.util.SubLTranslatedFile
`extractFunctionNamed`

Methods inherited from class com.cyc.tool.subl.util.SubLTrampolineFile
`checkType, enforceType, extractBinaryFunc, extractCount, extractEnd, extractEndUsingSize, extractPackage, extractStart, extractUnaryFunc, main`

Methods inherited from class java.lang.Object
`equals, getClass, hashCode, notify, notifyAll, toString, wait, wait, wait`

Field Detail

me

public static final SubLFile me

myName

public static final java.lang.String myName

See Also:: Constant Field Values

$polymorphic_type_hierarchy$

public static SubLSymbol $polymorphic_type_hierarchy$

$call_profiling_enabledP$

public static SubLSymbol $call_profiling_enabledP$

$call_profiling_table$

public static SubLSymbol $call_profiling_table$

$list0

public static final SubLList $list0

$str1$METHOD_FUNCTION

public static final SubLString $str1$METHOD_FUNCTION

$sym2$PROGN

public static final SubLSymbol $sym2$PROGN

$sym3$DEFLEXICAL

public static final SubLSymbol $sym3$DEFLEXICAL

$list4

public static final SubLList $list4

$sym5$DEFINE

public static final SubLSymbol $sym5$DEFINE

$sym6$CLET

public static final SubLSymbol $sym6$CLET

$sym7$_METHOD

public static final SubLSymbol $sym7$_METHOD

$sym8$PWHEN

public static final SubLSymbol $sym8$PWHEN

$sym9$RET

public static final SubLSymbol $sym9$RET

$sym10$FUNCALL

public static final SubLSymbol $sym10$FUNCALL

$sym11$DECLAIM

public static final SubLSymbol $sym11$DECLAIM

$sym12$OPTIMIZE_FUNCALL

public static final SubLSymbol $sym12$OPTIMIZE_FUNCALL

$list13

public static final SubLList $list13

$sym14$_REGISTER_METHOD

public static final SubLSymbol $sym14$_REGISTER_METHOD

$sym15$FUNCTION

public static final SubLSymbol $sym15$FUNCTION

$sym16$STRING_

public static final SubLSymbol $sym16$STRING_

$str17$_

public static final SubLString $str17$_

$str18$_METHOD_TABLE_

public static final SubLString $str18$_METHOD_TABLE_

$str19$_

public static final SubLString $str19$_

$str20$_METHOD

public static final SubLString $str20$_METHOD

$str21$_DTP_

public static final SubLString $str21$_DTP_

$sym22$_OPTIONAL

public static final SubLSymbol $sym22$_OPTIONAL

$sym23$_REST

public static final SubLSymbol $sym23$_REST

$list24

public static final SubLList $list24

$sym25$SYMBOLP

public static final SubLSymbol $sym25$SYMBOLP

$kw26$CONC_NAME

public static final SubLSymbol $kw26$CONC_NAME

$kw27$PRINT_FUNCTION

public static final SubLSymbol $kw27$PRINT_FUNCTION

$kw28$C_STRUCTURE_TAG

public static final SubLSymbol $kw28$C_STRUCTURE_TAG

$kw29$GENERATE_VISIT_FUNCTION_

public static final SubLSymbol $kw29$GENERATE_VISIT_FUNCTION_

$kw30$NAME

public static final SubLSymbol $kw30$NAME

$kw31$HOST_FN_NAME

public static final SubLSymbol $kw31$HOST_FN_NAME

$kw32$PREDICATE

public static final SubLSymbol $kw32$PREDICATE

$kw33$CONSTRUCTOR

public static final SubLSymbol $kw33$CONSTRUCTOR

$kw34$TYPE_VAR

public static final SubLSymbol $kw34$TYPE_VAR

$kw35$SLOTS

public static final SubLSymbol $kw35$SLOTS

$kw36$SLOT_KEYWORDS

public static final SubLSymbol $kw36$SLOT_KEYWORDS

$kw37$GETTERS

public static final SubLSymbol $kw37$GETTERS

$kw38$SETTERS

public static final SubLSymbol $kw38$SETTERS

$str39$_P

public static final SubLString $str39$_P

$str40$MAKE_

public static final SubLString $str40$MAKE_

$str41$VISIT_DEFSTRUCT_

public static final SubLString $str41$VISIT_DEFSTRUCT_

$str42$_CSETF_

public static final SubLString $str42$_CSETF_

$str43$CYC

public static final SubLString $str43$CYC

$str44$SUBLISP

public static final SubLString $str44$SUBLISP

$str45$_1

public static final SubLString $str45$_1

$list46

public static final SubLList $list46

$list47

public static final SubLList $list47

$kw48$ALLOW_OTHER_KEYS

public static final SubLSymbol $kw48$ALLOW_OTHER_KEYS

$kw49$SL2JAVA

public static final SubLSymbol $kw49$SL2JAVA

$sym50$QUOTE

public static final SubLSymbol $sym50$QUOTE

$list51

public static final SubLList $list51

$list52

public static final SubLList $list52

$sym53$_STRUCTURE_TYPE

public static final SubLSymbol $sym53$_STRUCTURE_TYPE

$sym54$CAND

public static final SubLSymbol $sym54$CAND

$sym55$_STRUCTURES_BAG_P

public static final SubLSymbol $sym55$_STRUCTURES_BAG_P

$sym56$_STRUCTURE_SLOT

public static final SubLSymbol $sym56$_STRUCTURE_SLOT

$list57

public static final SubLList $list57

$list58

public static final SubLList $list58

$list59

public static final SubLList $list59

$sym60$_SET_STRUCTURE_SLOT

public static final SubLSymbol $sym60$_SET_STRUCTURE_SLOT

$list61

public static final SubLList $list61

$sym62$_CLEAR_STRUCTURE

public static final SubLSymbol $sym62$_CLEAR_STRUCTURE

$sym63$_NEW_STRUCTURE

public static final SubLSymbol $sym63$_NEW_STRUCTURE

$sym64$_CLEAR_SUB_STRUCTURE

public static final SubLSymbol $sym64$_CLEAR_SUB_STRUCTURE

$sym65$_DTP_STRUCTURES_BAG_

public static final SubLSymbol $sym65$_DTP_STRUCTURES_BAG_

$sym66$DEFCONSTANT

public static final SubLSymbol $sym66$DEFCONSTANT

$str67$_PRINT_FUNCTION_TRAMPOLINE

public static final SubLString $str67$_PRINT_FUNCTION_TRAMPOLINE

$sym68$DEFAULT_STRUCT_PRINT_FUNCTION

public static final SubLSymbol $sym68$DEFAULT_STRUCT_PRINT_FUNCTION

$sym69$FACCESS

public static final SubLSymbol $sym69$FACCESS

$sym70$PRIVATE

public static final SubLSymbol $sym70$PRIVATE

$list71

public static final SubLList $list71

$list72

public static final SubLList $list72

$sym73$_PRINT_OBJECT_METHOD_TABLE_

public static final SubLSymbol $sym73$_PRINT_OBJECT_METHOD_TABLE_

$sym74$_REGISTER_DEFSTRUCT

public static final SubLSymbol $sym74$_REGISTER_DEFSTRUCT

$sym75$_DEFSTRUCT_OBJECT_P

public static final SubLSymbol $sym75$_DEFSTRUCT_OBJECT_P

$sym76$OBJECT

public static final SubLSymbol $sym76$OBJECT

$sym77$CHECK_TYPE

public static final SubLSymbol $sym77$CHECK_TYPE

$sym78$_DEFSTRUCT_GET_SLOT

public static final SubLSymbol $sym78$_DEFSTRUCT_GET_SLOT

$sym79$_DEFSTRUCT_SET_SLOT

public static final SubLSymbol $sym79$_DEFSTRUCT_SET_SLOT

$list80

public static final SubLList $list80

$sym81$_DEF_CSETF

public static final SubLSymbol $sym81$_DEF_CSETF

$sym82$NEW

public static final SubLSymbol $sym82$NEW

$sym83$_DEFSTRUCT_CONSTRUCT

public static final SubLSymbol $sym83$_DEFSTRUCT_CONSTRUCT

$list84

public static final SubLList $list84

$str85$CURRENT_VALUE

public static final SubLString $str85$CURRENT_VALUE

$str86$CURRENT_ARG

public static final SubLString $str86$CURRENT_ARG

$str87$NEXT

public static final SubLString $str87$NEXT

$sym88$OTHERWISE

public static final SubLSymbol $sym88$OTHERWISE

$sym89$ERROR

public static final SubLSymbol $sym89$ERROR

$str90$Invalid_slot__S_for_construction_

public static final SubLString $str90$Invalid_slot__S_for_construction_

$sym91$CDO

public static final SubLSymbol $sym91$CDO

$sym92$CDDR

public static final SubLSymbol $sym92$CDDR

$sym93$NULL

public static final SubLSymbol $sym93$NULL

$sym94$CAR

public static final SubLSymbol $sym94$CAR

$sym95$CADR

public static final SubLSymbol $sym95$CADR

$sym96$PCASE

public static final SubLSymbol $sym96$PCASE

$kw97$BEGIN

public static final SubLSymbol $kw97$BEGIN

$kw98$SLOT

public static final SubLSymbol $kw98$SLOT

$kw99$END

public static final SubLSymbol $kw99$END

$sym100$DEFINE_METHOD

public static final SubLSymbol $sym100$DEFINE_METHOD

$sym101$VISIT_DEFSTRUCT_OBJECT

public static final SubLSymbol $sym101$VISIT_DEFSTRUCT_OBJECT

$sym102$OBJ

public static final SubLSymbol $sym102$OBJ

$list103

public static final SubLList $list103

$list104

public static final SubLList $list104

$list105

public static final SubLList $list105

$list106

public static final SubLList $list106

$sym107$CUNWIND_PROTECT

public static final SubLSymbol $sym107$CUNWIND_PROTECT

$sym108$CSETF

public static final SubLSymbol $sym108$CSETF

$list109

public static final SubLList $list109

$int110$1000

public static final SubLInteger $int110$1000

$sym111$_

public static final SubLSymbol $sym111$_

$sym112$CDR

public static final SubLSymbol $sym112$CDR

Method Detail

intern_accessor

public static final SubLObject intern_accessor(SubLObject string)

defpolymorphic

public static final SubLObject defpolymorphic(SubLObject macroform,
                                              SubLObject environment)

Defines a new polymorphic function that dispatches on the type of its first argument. defines a default method. The function define-method can be used to define additional methods. For example: (defpolymorphic test (a b) (list a b)) (define-method test ((a cons) b) (cons b a)) (define-method test ((a fixnum) b) (+ a b)) The defpolymorphic form defines the function TEST with a default method. The two define-method forms specialize the behavior of TEST for lists and fixnums. sin (test 'foo 'bar) => (FOO BAR) (test '(foo) 'bar) => (BAR FOO) (test 2 3) => 5

define_method

public static final SubLObject define_method(SubLObject macroform,
                                             SubLObject environment)

Defines a method for the polymorphic function that runs if is of type . The lambda list must have the same structure as in the DEFPOLYMORPHIC call.

defpolymorphic_internal

public static final SubLObject defpolymorphic_internal(SubLObject name,
                                                       SubLObject arglist,
                                                       SubLObject body)

define_method_internal

public static final SubLObject define_method_internal(SubLObject name,
                                                      SubLObject arglist,
                                                      SubLObject body)

build_regmethod_call

public static final SubLObject build_regmethod_call(SubLObject type,
                                                    SubLObject method_table,
                                                    SubLObject method_function)

Given one type, this method builds the right call to register-method.

build_regmethod_list

public static final SubLObject build_regmethod_list(SubLObject type,
                                                    SubLObject method_table,
                                                    SubLObject method_function)

This function builds a list of _register-method calls, as appropriate for the type.

method_table_var

public static final SubLObject method_table_var(SubLObject name)

method_function_var

public static final SubLObject method_function_var(SubLObject name,
                                                   SubLObject type)

dtp_var

public static final SubLObject dtp_var(SubLObject name)

full_formal_parameter_list

public static final SubLObject full_formal_parameter_list(SubLObject arglist)

Given a function ARGLIST, return a list of all the formal parameters

defstruct

public static final SubLObject defstruct(SubLObject macroform,
                                         SubLObject environment)

Like Common Lisp defstruct except: (1) slot initializations are not allowed. (2) there is an option: (:c-structure-tag val), where val is an integer between 128-255. If you add a new defstruct, and you want efficient C code support, you must have the person who maintains the Sublisp Run-Time Library (RTL) add the tag by hand. (3) the only other options: (:conc-name whatever) (:print-function #'whatever) (:generate-visit-function? T-or-NIL) the default structure print function is default-struct-print-function : object stream depth (4) The make constructor takes an argument list, which is expected to have the keyword/value pairs, i.e. (make-foo :a 1 :b 2) in common lisp is (make-foo '(:a 1 :b 2)) for us. (5) Reading of structures is not supported by the reader.

defstruct_analyze

public static final SubLObject defstruct_analyze(SubLObject name,
                                                 SubLObject options,
                                                 SubLObject slots)

defstruct_conc_name

public static final SubLObject defstruct_conc_name(SubLObject name,
                                                   SubLObject conc_name)

defstruct_predicate

public static final SubLObject defstruct_predicate(SubLObject name)

defstruct_constructor

public static final SubLObject defstruct_constructor(SubLObject name)

defstruct_host_fn_name

public static final SubLObject defstruct_host_fn_name(SubLObject name)

defstruct_type_var

public static final SubLObject defstruct_type_var(SubLObject name)

defstruct_slot_keywords

public static final SubLObject defstruct_slot_keywords(SubLObject slots)

defstruct_getters

public static final SubLObject defstruct_getters(SubLObject conc_name,
                                                 SubLObject slots)

defstruct_getter

public static final SubLObject defstruct_getter(SubLObject conc_name,
                                                SubLObject slot)

defstruct_setters

public static final SubLObject defstruct_setters(SubLObject getters)

defstruct_setter

public static final SubLObject defstruct_setter(SubLObject getter)

getter_package

public static final SubLObject getter_package(SubLObject getter)

accessor_package

public static final SubLObject accessor_package(SubLObject accessor)

setter_from_accessor

public static final SubLObject setter_from_accessor(SubLObject accessor)

defstruct_lisp_constructor

public static final SubLObject defstruct_lisp_constructor(SubLObject constructor)

defstruct_expand

public static final SubLObject defstruct_expand(SubLObject analysis)

_defstruct_object_p

public static final SubLObject _defstruct_object_p(SubLObject macroform,
                                                   SubLObject environment)

_defstruct_get_slot

public static final SubLObject _defstruct_get_slot(SubLObject macroform,
                                                   SubLObject environment)

_defstruct_set_slot

public static final SubLObject _defstruct_set_slot(SubLObject macroform,
                                                   SubLObject environment)

_defstruct_construct

public static final SubLObject _defstruct_construct(SubLObject macroform,
                                                    SubLObject environment)

defstruct_type_var_form

public static final SubLObject defstruct_type_var_form(SubLObject type_var,
                                                       SubLObject name,
                                                       SubLObject c_structure_tag)

defstruct_print_method

public static final SubLObject defstruct_print_method(SubLObject name,
                                                      SubLObject print_function)

defstruct_print_forms

public static final SubLObject defstruct_print_forms(SubLObject c_structure_tag,
                                                     SubLObject tag_var,
                                                     SubLObject print_function,
                                                     SubLObject print_method)

defstruct_register_form

public static final SubLObject defstruct_register_form(SubLObject name,
                                                       SubLObject c_structure_tag,
                                                       SubLObject slots,
                                                       SubLObject print_method)

defstruct_predicate_form

public static final SubLObject defstruct_predicate_form(SubLObject type,
                                                        SubLObject predicate,
                                                        SubLObject c_structure_tag,
                                                        SubLObject type_var)

defstruct_predicate_arglist

public static final SubLObject defstruct_predicate_arglist(SubLObject predicate)

defstruct_predicate_variable

public static final SubLObject defstruct_predicate_variable(SubLObject predicate)

defstruct_first_function_variable

public static final SubLObject defstruct_first_function_variable(SubLObject function,
                                                                 SubLObject v_default)

return a symbol to use as the first variable in the arglist of FUNCTION

defstruct_getter_forms

public static final SubLObject defstruct_getter_forms(SubLObject type,
                                                      SubLObject c_structure_tag,
                                                      SubLObject predicate,
                                                      SubLObject slots,
                                                      SubLObject getters)

defstruct_getter_form

public static final SubLObject defstruct_getter_form(SubLObject getter,
                                                     SubLObject index,
                                                     SubLObject predicate,
                                                     SubLObject type,
                                                     SubLObject slot)

defstruct_getter_arglist

public static final SubLObject defstruct_getter_arglist(SubLObject getter)

defstruct_getter_variable

public static final SubLObject defstruct_getter_variable(SubLObject getter)

defstruct_setter_forms

public static final SubLObject defstruct_setter_forms(SubLObject type,
                                                      SubLObject c_structure_tag,
                                                      SubLObject predicate,
                                                      SubLObject slots,
                                                      SubLObject setters)

defstruct_setter_form

public static final SubLObject defstruct_setter_form(SubLObject setter,
                                                     SubLObject index,
                                                     SubLObject predicate,
                                                     SubLObject type,
                                                     SubLObject slot)

defstruct_setter_arglist

public static final SubLObject defstruct_setter_arglist(SubLObject setter)

defstruct_def_csetf_forms

public static final SubLObject defstruct_def_csetf_forms(SubLObject getters,
                                                         SubLObject setters)

defstruct_constructor_form

public static final SubLObject defstruct_constructor_form(SubLObject type,
                                                          SubLObject constructor,
                                                          SubLObject c_structure_tag,
                                                          SubLObject type_var,
                                                          SubLObject slot_keywords,
                                                          SubLObject setters)

defstruct_constructor_arglist

public static final SubLObject defstruct_constructor_arglist(SubLObject constructor)

defstruct_constructor_arglist_handler

public static final SubLObject defstruct_constructor_arglist_handler(SubLObject arglist_var,
                                                                     SubLObject new_var,
                                                                     SubLObject slot_keywords,
                                                                     SubLObject setters)

defstruct_host_function

public static final SubLObject defstruct_host_function(SubLObject type_name,
                                                       SubLObject host_fn,
                                                       SubLObject constructor_fn,
                                                       SubLObject slot_keywords,
                                                       SubLObject getters)

Returns the form for the visitation of a structure object.

defstruct_host_arglist

public static final SubLObject defstruct_host_arglist()

with_call_profiling

public static final SubLObject with_call_profiling(SubLObject macroform,
                                                   SubLObject environment)

Execute BODY with call profiling enabled. On exit PLACE will be set to an alist of (FUNCTION . COUNT) pairs.

possibly_note_function_entry

public static final SubLObject possibly_note_function_entry(SubLObject name)

initialize_call_profiling_table

public static final SubLObject initialize_call_profiling_table()

finalize_call_profiling_table

public static final SubLObject finalize_call_profiling_table(SubLObject table)

declare_complex_special_forms_file

public static final SubLObject declare_complex_special_forms_file()

init_complex_special_forms_file

public static final SubLObject init_complex_special_forms_file()

setup_complex_special_forms_file

public static final SubLObject setup_complex_special_forms_file()

declareFunctions

public void declareFunctions()

Description copied from interface: SubLFile

Declares the mapping between functions and symbols for all named functions defined in the file. Like CRTL define.

initializeVariables

public void initializeVariables()

Description copied from interface: SubLFile

Initializes all global variables and private internal variables for constants defined in the file. Like CRTL init.

runTopLevelForms

public void runTopLevelForms()

Description copied from interface: SubLFile

Runs all top-level forms in order. Like CRTL setup.

Overview

Package

Class

Use

Tree

Deprecated

Index

Help

PREV CLASS NEXT CLASS

FRAMES NO FRAMES

SUMMARY: NESTED | FIELD | CONSTR | METHOD

DETAIL: FIELD | CONSTR | METHOD

com.cyc.tool.subl.jrtl.translatedCode.sublisp Class complex_special_forms

me

myName

$polymorphic_type_hierarchy$

$call_profiling_enabledP$

$call_profiling_table$

$list0

$str1$METHOD_FUNCTION

$sym2$PROGN

$sym3$DEFLEXICAL

$list4

$sym5$DEFINE

$sym6$CLET

$sym7$_METHOD

$sym8$PWHEN

$sym9$RET

$sym10$FUNCALL

$sym11$DECLAIM

$sym12$OPTIMIZE_FUNCALL

$list13

$sym14$_REGISTER_METHOD

$sym15$FUNCTION

$sym16$STRING_

$str17$_

$str18$_METHOD_TABLE_

$str19$_

$str20$_METHOD

$str21$_DTP_

$sym22$_OPTIONAL

$sym23$_REST

$list24

$sym25$SYMBOLP

$kw26$CONC_NAME

$kw27$PRINT_FUNCTION

$kw28$C_STRUCTURE_TAG

$kw29$GENERATE_VISIT_FUNCTION_

$kw30$NAME

$kw31$HOST_FN_NAME

$kw32$PREDICATE

$kw33$CONSTRUCTOR

$kw34$TYPE_VAR

$kw35$SLOTS

$kw36$SLOT_KEYWORDS

$kw37$GETTERS

$kw38$SETTERS

$str39$_P

$str40$MAKE_

$str41$VISIT_DEFSTRUCT_

$str42$_CSETF_

$str43$CYC

$str44$SUBLISP

$str45$_1

$list46

$list47

$kw48$ALLOW_OTHER_KEYS

$kw49$SL2JAVA

$sym50$QUOTE

$list51

$list52

$sym53$_STRUCTURE_TYPE

$sym54$CAND

$sym55$_STRUCTURES_BAG_P

$sym56$_STRUCTURE_SLOT

$list57

$list58

$list59

$sym60$_SET_STRUCTURE_SLOT

$list61

$sym62$_CLEAR_STRUCTURE

$sym63$_NEW_STRUCTURE

$sym64$_CLEAR_SUB_STRUCTURE

$sym65$_DTP_STRUCTURES_BAG_

$sym66$DEFCONSTANT

$str67$_PRINT_FUNCTION_TRAMPOLINE

$sym68$DEFAULT_STRUCT_PRINT_FUNCTION

$sym69$FACCESS

$sym70$PRIVATE

$list71

$list72

$sym73$_PRINT_OBJECT_METHOD_TABLE_

com.cyc.tool.subl.jrtl.translatedCode.sublisp
Class complex_special_forms