runtime.c File Reference

#include <ck_hs.h>
#include <ck_pr.h>
#include "cyclone/types.h"
#include "cyclone/runtime.h"
#include "cyclone/ck_ht_hash.h"
#include <errno.h>
#include <limits.h>
#include <ctype.h>

Macros
#define	_return_closcall1(td, clo, a1)
#define	_return_closcall2(td, clo, a1, a2)
#define	a12   1403580.0
#define	a13n   810728.0
#define	a21   527612.0
#define	a23n   1370589.0
#define	closcall1(td, clo, a1)
#define	closcall2(td, clo, a1, a2)
#define	Cyc_bytevector_append_va_list(argc)
#define	Cyc_bytevector_va_list(argc)
#define	Cyc_string_append_va_list(data, argc)
#define	declare_num_cmp(FUNC, FUNC_OP, FUNC_FAST_OP, FUNC_APPLY, OP, BN_CMP)
#define	declare_num_op(FUNC, FUNC_OP, FUNC_APPLY, OP, INT_OP, BN_OP, NO_ARG, ONE_ARG, DIV)
#define	do_apply_va
#define	gc_move2heap(obj)
#define	m1   4294967087.0
#define	m2   4294944443.0
#define	norm   2.328306549295728e-10
#define	PRECISION   53
#define	return_closcall1(td, clo, a1)
#define	return_closcall2(td, clo, a1, a2)

Enumerations
enum	str2int_errno { STR2INT_SUCCESS, STR2INT_OVERFLOW, STR2INT_UNDERFLOW, STR2INT_INCONVERTIBLE }

Functions
void	__121 (void *data, object cont, object args)
void	__121_123 (void *data, object cont, object args)
void	__123 (void *data, object cont, object args)
void	__125 (void *data, object cont, object args)
void	__125_123 (void *data, object cont, object args)
void	__75halt (void *data, object cont, object args)
void	__85 (void *data, object cont, object args)
void	__87 (void *data, object cont, object args)
void	__91 (void *data, object cont, object args)
void	__95 (void *data, object cont, object args)
object	__halt (object obj)
void	_apply (void *data, object cont, object args)
void	_assq (void *data, object cont, object args)
void	_assv (void *data, object cont, object args)
void	_boolean_127 (void *data, object cont, object args)
void	_bytevector (void *data, object cont, object args)
void	_bytevector_127 (void *data, object cont, object args)
void	_bytevector_91append (void *data, object cont, object args)
void	_bytevector_91length (void *data, object cont, object args)
void	_bytevector_91u8_91ref (void *data, object cont, object args)
void	_bytevector_91u8_91set_67 (void *data, object cont, object args)
void	_caaaar (void *data, object cont, object args)
void	_caaadr (void *data, object cont, object args)
void	_caaar (void *data, object cont, object args)
void	_caadar (void *data, object cont, object args)
void	_caaddr (void *data, object cont, object args)
void	_caadr (void *data, object cont, object args)
void	_caar (void *data, object cont, object args)
void	_cadaar (void *data, object cont, object args)
void	_cadadr (void *data, object cont, object args)
void	_cadar (void *data, object cont, object args)
void	_caddar (void *data, object cont, object args)
void	_cadddr (void *data, object cont, object args)
void	_caddr (void *data, object cont, object args)
void	_cadr (void *data, object cont, object args)
void	_call_95cc (void *data, object cont, object args)
void	_car (void *data, object cont, object args)
void	_cdaaar (void *data, object cont, object args)
void	_cdaadr (void *data, object cont, object args)
void	_cdaar (void *data, object cont, object args)
void	_cdadar (void *data, object cont, object args)
void	_cdaddr (void *data, object cont, object args)
void	_cdadr (void *data, object cont, object args)
void	_cdar (void *data, object cont, object args)
void	_cddaar (void *data, object cont, object args)
void	_cddadr (void *data, object cont, object args)
void	_cddar (void *data, object cont, object args)
void	_cdddar (void *data, object cont, object args)
void	_cddddr (void *data, object cont, object args)
void	_cdddr (void *data, object cont, object args)
void	_cddr (void *data, object cont, object args)
void	_cdr (void *data, object cont, object args)
void	_cell (void *data, object cont, object args)
void	_cell_91get (void *data, object cont, object args)
void	_char_127 (void *data, object cont, object args)
void	_char_91_125integer (void *data, object cont, object args)
void	_close_91input_91port (void *data, object cont, object args)
void	_close_91output_91port (void *data, object cont, object args)
void	_close_91port (void *data, object cont, object args)
void	_command_91line_91arguments (void *data, object cont, object args)
void	_cons (void *data, object cont, object args)
void	_Cyc_91bytevector_91copy (void *data, object cont, object args)
void	_Cyc_91compilation_91environment (void *data, object cont, object args)
void	_Cyc_91current_91exception_91handler (void *data, object cont, object args)
void	_Cyc_91cvar_127 (void *data, object cont, object args)
void	_Cyc_91default_91exception_91handler (void *data, object cont, object args)
void	_Cyc_91end_91thread_67 (void *data, object cont, object args)
void	_Cyc_91flush_91output_91port (void *data, object cont, object args)
void	_Cyc_91get_91cvar (void *data, object cont, object args)
void	_Cyc_91global_91vars (void *data, object cont, object args)
void	_Cyc_91has_91cycle_127 (void *data, object cont, object args)
void	_Cyc_91installation_91dir (void *data, object cont, object args)
void	_Cyc_91macro_127 (void *data, object cont, object args)
void	_Cyc_91opaque_127 (void *data, object cont, object args)
void	_Cyc_91read_91line (void *data, object cont, object args)
void	_Cyc_91set_91cvar_67 (void *data, object cont, object args)
void	_Cyc_91spawn_91thread_67 (void *data, object cont, object args)
void	_Cyc_91string_91_125utf8 (void *data, object cont, object args)
void	_Cyc_91utf8_91_125string (void *data, object cont, object args)
void	_Cyc_91write (void *data, object cont, object args)
void	_Cyc_91write_91char (void *data, object cont, object args)
void	_cyc_exit (void *data, object cont, object args)
void	_cyc_string_91ref (void *data, object cont, object args)
void	_cyc_string_91set_67 (void *data, object cont, object args)
void	_cyc_substring (void *data, object cont, object args)
void	_cyc_system (void *data, object cont, object args)
void	_delete_91file (void *data, object cont, object args)
void	_display (void *data, object cont, object args)
void	_eof_91object_127 (void *data, object cont, object args)
void	_eq_127 (void *data, object cont, object args)
void	_equal_127 (void *data, object cont, object args)
void	_eqv_127 (void *data, object cont, object args)
void	_file_91exists_127 (void *data, object cont, object args)
void	_integer_127 (void *data, object cont, object args)
void	_integer_91_125char (void *data, object cont, object args)
void	_length (void *data, object cont, object args)
void	_list_91_125string (void *data, object cont, object args)
void	_list_91_125vector (void *data, object cont, object args)
void	_macro_127 (void *data, object cont, object args)
void	_make_91bytevector (void *data, object cont, object args)
void	_make_91vector (void *data, object cont, object args)
void	_memq (void *data, object cont, object args)
void	_memv (void *data, object cont, object args)
void	_null_127 (void *data, object cont, object args)
void	_number_127 (void *data, object cont, object args)
void	_number_91_125string (void *data, object cont, object args)
void	_open_91input_91file (void *data, object cont, object args)
void	_open_91output_91file (void *data, object cont, object args)
void	_pair_127 (void *data, object cont, object args)
void	_peek_91char (void *data, object cont, object args)
void	_port_127 (void *data, object cont, object args)
void	_procedure_127 (void *data, object cont, object args)
void	_read_91char (void *data, object cont, object args)
void	_real_127 (void *data, object cont, object args)
void	_set_91car_67 (void *data, object cont, object args)
void	_set_91cdr_67 (void *data, object cont, object args)
void	_set_91cell_67 (void *data, object cont, object args)
void	_set_91global_67 (void *data, object cont, object args)
char *	_strdup (const char *s)
void	_string_127 (void *data, object cont, object args)
void	_string_91_125number (void *data, object cont, object args)
void	_string_91_125symbol (void *data, object cont, object args)
void	_string_91append (void *data, object cont, object args)
void	_string_91cmp (void *data, object cont, object args)
void	_string_91length (void *data, object cont, object args)
void	_symbol_127 (void *data, object cont, object args)
void	_symbol_91_125string (void *data, object cont, object args)
void	_vector_127 (void *data, object cont, object args)
void	_vector_91length (void *data, object cont, object args)
void	_vector_91ref (void *data, object cont, object args)
void	_vector_91set_67 (void *data, object cont, object args)
void	add_global (object *glo)
void	add_mutation (void *data, object var, int index, object value)
object	add_symbol (symbol_type *psym)
object	add_symbol_by_name (const char *name)
object	apply (void *data, object cont, object func, object args)
object	apply_va (void *data, object cont, int argc, object func,...)
list	assoc (void *data, object x, list l)
list	assq (void *data, object x, list l)
int	binstr2int (const char *str)
object	cell_get (object cell)
void	clear_mutations (void *data)
object	copy2heap (void *data, object obj)
void	Cyc_apply (void *data, int argc, closure cont, object prim,...)
void	Cyc_apply_from_buf (void *data, int argc, object prim, object *buf)
int	Cyc_bignum_cmp (bn_cmp_type type, object x, int tx, object y, int ty)
object	Cyc_bignum_normalize (void *data, object n)
void	Cyc_bignum_remainder (void *data, object cont, object num1, object num2, object rem)
object	Cyc_bit_set (void *data, object n1, object n2)
object	Cyc_bit_unset (void *data, object n1, object n2)
object	Cyc_bytevector (void *data, object cont, int _argc, object bval,...)
object	Cyc_bytevector_append (void *data, object cont, int _argc, object bv,...)
object	Cyc_bytevector_copy (void *data, object cont, object bv, object start, object end)
object	Cyc_bytevector_length (void *data, object bv)
object	Cyc_bytevector_u8_ref (void *data, object bv, object k)
object	Cyc_bytevector_u8_set (void *data, object bv, object k, object b)
object	Cyc_car (void *data, object lis)
object	Cyc_cdr (void *data, object lis)
object	Cyc_char2integer (object chr)
void	Cyc_check_bounds (void *data, const char *label, int len, int index)
void	Cyc_check_obj (void *data, int tag, object obj)
object	Cyc_command_line_arguments (void *data, object cont)
object	Cyc_compilation_environment (void *data, object cont, object var)
object	Cyc_current_exception_handler (void *data)
object	Cyc_default_exception_handler (void *data, int argc, closure _, object err)
object	Cyc_display (void *data, object x, FILE *port)
object	Cyc_display_va (void *data, int argc, object x,...)
object	Cyc_display_va_list (void *data, int argc, object x, va_list ap)
object	Cyc_div (void *data, object cont, int argc, object n,...)
object	Cyc_div_op (void *data, common_type *x, object y)
void	Cyc_end_thread (gc_thread_data *thd)
object	Cyc_eq (object x, object y)
void	Cyc_exit_thread (gc_thread_data *thd)
void	Cyc_expt (void *data, object cont, object x, object y)
void	Cyc_expt_double (void *data, object cont, double x, double y)
object	Cyc_fast_div (void *data, object ptr, object x, object y)
object	Cyc_fast_mul (void *data, object ptr, object x, object y)
object	Cyc_fast_sub (void *data, object ptr, object x, object y)
object	Cyc_fast_sum (void *data, object ptr, object x, object y)
object	Cyc_get_cvar (object var)
object	Cyc_get_global_variables ()
object	Cyc_global_set (void *thd, object *glo, object value)
void	Cyc_halt (object obj)
object	Cyc_has_cycle (object lst)
object	Cyc_has_vector_cycle (object vec)
object	Cyc_heap_alloc_port (void *data, port_type *stack_p)
void *	Cyc_init_thread (object thread_and_thunk)
object	Cyc_installation_dir (void *data, object cont, object type)
void	Cyc_int2bignum (int n, mp_int *bn)
object	Cyc_integer2char (void *data, object n)
void	Cyc_invalid_type_error (void *data, int tag, object found)
object	Cyc_io_close_input_port (void *data, object port)
object	Cyc_io_close_output_port (void *data, object port)
object	Cyc_io_close_port (void *data, object port)
object	Cyc_io_delete_file (void *data, object filename)
object	Cyc_io_file_exists (void *data, object filename)
object	Cyc_io_flush_output_port (void *data, object port)
port_type	Cyc_io_open_input_file (void *data, object str)
port_type	Cyc_io_open_output_file (void *data, object str)
object	Cyc_io_peek_char (void *data, object cont, object port)
object	Cyc_io_read_char (void *data, object cont, object port)
object	Cyc_io_read_line (void *data, object cont, object port)
object	Cyc_is_bignum (object o)
object	Cyc_is_boolean (object o)
object	Cyc_is_bytevector (object o)
object	Cyc_is_char (object o)
object	Cyc_is_cond_var (object o)
object	Cyc_is_cvar (object o)
object	Cyc_is_eof_object (object o)
object	Cyc_is_integer (object o)
object	Cyc_is_macro (object o)
object	Cyc_is_mutex (object o)
object	Cyc_is_null (object o)
object	Cyc_is_number (object o)
object	Cyc_is_opaque (object o)
object	Cyc_is_pair (object o)
object	Cyc_is_port (object o)
object	Cyc_is_procedure (void *data, object o)
object	Cyc_is_real (object o)
object	Cyc_is_string (object o)
object	Cyc_is_symbol (object o)
object	Cyc_is_vector (object o)
object	Cyc_length (void *data, object l)
object	Cyc_list (void *data, int argc, object cont,...)
object	Cyc_list2string (void *data, object cont, object lst)
object	Cyc_list2vector (void *data, object cont, object l)
object	Cyc_make_bytevector (void *data, object cont, int argc, object len,...)
object	Cyc_make_vector (void *data, object cont, int argc, object len,...)
object	Cyc_num_cmp_va_list (void *data, int argc, int(fn_op(void *, object, object)), object n, va_list ns)
object	Cyc_num_op_va_list (void *data, int argc, object(fn_op(void *, common_type *, object)), int default_no_args, int default_one_arg, object n, va_list ns, common_type *buf)
object	Cyc_number2string2 (void *data, object cont, int argc, object n,...)
void	Cyc_remainder (void *data, object cont, object num1, object num2)
void	Cyc_rt_raise (void *data, object err)
void	Cyc_rt_raise2 (void *data, const char *msg, object err)
void	Cyc_rt_raise_msg (void *data, const char *err)
object	Cyc_set_car (void *data, object l, object val)
object	Cyc_set_cdr (void *data, object l, object val)
object	Cyc_set_cell (void *data, object l, object val)
object	Cyc_set_cvar (object var, object value)
object	Cyc_spawn_thread (object thread_and_thunk)
void	Cyc_st_add (void *data, char *frame)
void	Cyc_st_print (void *data, FILE *out)
void	Cyc_start_trampoline (gc_thread_data *thd)
port_type	Cyc_stderr ()
port_type	Cyc_stdin ()
port_type	Cyc_stdout ()
object	Cyc_string2number2_ (void *data, object cont, int argc, object str,...)
object	Cyc_string2number_ (void *data, object cont, object str)
object	Cyc_string2symbol (void *data, object str)
object	Cyc_string2utf8 (void *data, object cont, object str, object start, object end)
object	Cyc_string_append (void *data, object cont, int _argc, object str1,...)
object	Cyc_string_cmp (void *data, object str1, object str2)
object	Cyc_string_length (void *data, object str)
object	Cyc_string_ref (void *data, object str, object k)
object	Cyc_string_set (void *data, object str, object k, object chr)
object	Cyc_substring (void *data, object cont, object str, object start, object end)
object	Cyc_symbol2string (void *data, object cont, object sym)
object	Cyc_system (object cmd)
object	Cyc_thread_sleep (void *data, object timeout)
object	Cyc_trigger_minor_gc (void *data, object cont)
object	Cyc_utf82string (void *data, object cont, object bv, object start, object end)
object	Cyc_vector_length (void *data, object v)
object	Cyc_vector_ref (void *data, object v, object k)
object	Cyc_vector_set (void *data, object v, object k, object obj)
object	Cyc_write (void *data, object x, FILE *port)
object	Cyc_write_char (void *data, object c, object port)
object	Cyc_write_va (void *data, int argc, object x,...)
object	Cyc_write_va_list (void *data, int argc, object x, va_list ap)
void	debug_dump_globals ()
	declare_num_cmp (Cyc_num_eq, Cyc_num_eq_op, Cyc_num_fast_eq_op, dispatch_num_eq,==, CYC_BN_EQ)
	declare_num_cmp (Cyc_num_gt, Cyc_num_gt_op, Cyc_num_fast_gt_op, dispatch_num_gt, >, CYC_BN_GT)
	declare_num_cmp (Cyc_num_lt, Cyc_num_lt_op, Cyc_num_fast_lt_op, dispatch_num_lt,<, CYC_BN_LT)
	declare_num_cmp (Cyc_num_gte, Cyc_num_gte_op, Cyc_num_fast_gte_op, dispatch_num_gte, >=, CYC_BN_GTE)
	declare_num_cmp (Cyc_num_lte, Cyc_num_lte_op, Cyc_num_fast_lte_op, dispatch_num_lte,<=, CYC_BN_LTE)
	declare_num_op (Cyc_sum, Cyc_sum_op, dispatch_sum,+, Cyc_checked_add, mp_add, 0, 0, 0)
	declare_num_op (Cyc_sub, Cyc_sub_op, dispatch_sub, -, Cyc_checked_sub, mp_sub, -1, 0, 0)
	declare_num_op (Cyc_mul, Cyc_mul_op, dispatch_mul, *, Cyc_checked_mul, mp_mul, 1, 1, 0)
void	dispatch (void *data, int argc, function_type func, object clo, object cont, object args)
void	dispatch_apply_va (void *data, int argc, object clo, object cont, object func,...)
object	dispatch_bytevector (void *data, int _argc, object clo, object cont, object bval,...)
object	dispatch_bytevector_91append (void *data, int _argc, object clo, object cont, object bv,...)
void	dispatch_display_va (void *data, int argc, object clo, object cont, object x,...)
void	dispatch_div (void *data, int argc, object clo, object cont, object n,...)
object	dispatch_string_91append (void *data, int _argc, object clo, object cont, object str1,...)
void	dispatch_va (void *data, int argc, function_type_va func, object clo, object cont, object args)
void	dispatch_write_va (void *data, int argc, object clo, object cont, object x,...)
int	double2buffer (char *buf, int buf_size, double num)
int	equal (object x, object y)
object	equalp (object x, object y)
object	find_or_add_symbol (const char *name)
object	find_symbol_by_name (const char *name)
void	GC (void *data, closure cont, object *args, int num_args)
char *	gc_fixup_moved_obj (gc_thread_data *thd, int *alloci, char *obj, object hp)
void	gc_init_heap (long heap_size)
	Perform one-time heap initializations for the program. More...
int	gc_minor (void *data, object low_limit, object high_limit, closure cont, object *args, int num_args)
char *	gc_move (char *obj, gc_thread_data *thd, int *alloci, int *heap_grown)
void	gc_request_mark_globals (void)
char **	get_env_variables ()
char *	int_to_binary (char *b, int x)
list	malloc_make_pair (object a, object d)
cvar_type *	mcvar (object *var)
object	memberp (void *data, object x, list l)
object	memqp (void *data, object x, list l)
double	mp_get_double (mp_int *a)
double	MRG32k3a (double seed)
int	octstr2int (const char *str)
void	pack_env_variables (void *data, object k)
void	set_env_variables (char **vars)
str2int_errno	str2int (int *out, char *s, int base)
int	str_is_bignum (str2int_errno errnum, char *c)
void **	vpbuffer_add (void **buf, int *len, int i, void *obj)
void	vpbuffer_free (void **buf)
void **	vpbuffer_realloc (void **buf, int *len)

Variables
int	_cyc_argc = 0
char **	_cyc_argv = NULL
const object	boolean_f = &f_boolean
const object	boolean_t = &t_boolean
const object	Cyc_EOF = &__EOF
object	Cyc_glo_call_cc = NULL
object	Cyc_glo_eval_from_c = NULL
object	Cyc_global_variables = NULL
char **	env_variables = NULL
list	global_table = NULL
const object	primitive__121 = &_121_primitive
const object	primitive__121_123 = &_121_123_primitive
const object	primitive__123 = &_123_primitive
const object	primitive__125 = &_125_primitive
const object	primitive__125_123 = &_125_123_primitive
const object	primitive__75halt = &_75halt_primitive
const object	primitive__85 = &_85_primitive
const object	primitive__87 = &_87_primitive
const object	primitive__91 = &_91_primitive
const object	primitive__95 = &_95_primitive
const object	primitive_apply = &apply_primitive
const object	primitive_assq = &assq_primitive
const object	primitive_assv = &assv_primitive
const object	primitive_boolean_127 = &boolean_127_primitive
const object	primitive_bytevector = &bytevector_primitive
const object	primitive_bytevector_127 = &bytevector_127_primitive
const object	primitive_bytevector_91append = &bytevector_91append_primitive
const object	primitive_bytevector_91length = &bytevector_91length_primitive
const object	primitive_bytevector_91u8_91ref = &bytevector_91u8_91ref_primitive
const object	primitive_bytevector_91u8_91set_67
const object	primitive_caaaar = &caaaar_primitive
const object	primitive_caaadr = &caaadr_primitive
const object	primitive_caaar = &caaar_primitive
const object	primitive_caadar = &caadar_primitive
const object	primitive_caaddr = &caaddr_primitive
const object	primitive_caadr = &caadr_primitive
const object	primitive_caar = &caar_primitive
const object	primitive_cadaar = &cadaar_primitive
const object	primitive_cadadr = &cadadr_primitive
const object	primitive_cadar = &cadar_primitive
const object	primitive_caddar = &caddar_primitive
const object	primitive_cadddr = &cadddr_primitive
const object	primitive_caddr = &caddr_primitive
const object	primitive_cadr = &cadr_primitive
const object	primitive_call_95cc = &call_95cc_primitive
const object	primitive_car = &car_primitive
const object	primitive_cdaaar = &cdaaar_primitive
const object	primitive_cdaadr = &cdaadr_primitive
const object	primitive_cdaar = &cdaar_primitive
const object	primitive_cdadar = &cdadar_primitive
const object	primitive_cdaddr = &cdaddr_primitive
const object	primitive_cdadr = &cdadr_primitive
const object	primitive_cdar = &cdar_primitive
const object	primitive_cddaar = &cddaar_primitive
const object	primitive_cddadr = &cddadr_primitive
const object	primitive_cddar = &cddar_primitive
const object	primitive_cdddar = &cdddar_primitive
const object	primitive_cddddr = &cddddr_primitive
const object	primitive_cdddr = &cdddr_primitive
const object	primitive_cddr = &cddr_primitive
const object	primitive_cdr = &cdr_primitive
const object	primitive_cell = &cell_primitive
const object	primitive_cell_91get = &cell_91get_primitive
const object	primitive_char_127 = &char_127_primitive
const object	primitive_char_91_125integer = &char_91_125integer_primitive
const object	primitive_close_91input_91port = &close_91input_91port_primitive
const object	primitive_close_91output_91port = &close_91output_91port_primitive
const object	primitive_close_91port = &close_91port_primitive
const object	primitive_command_91line_91arguments
const object	primitive_cons = &cons_primitive
const object	primitive_Cyc_91bytevector_91copy
const object	primitive_Cyc_91compilation_91environment
const object	primitive_Cyc_91current_91exception_91handler
const object	primitive_Cyc_91cvar_127 = &Cyc_91cvar_127_primitive
const object	primitive_Cyc_91default_91exception_91handler
const object	primitive_Cyc_91display = &Cyc_91display_primitive
const object	primitive_Cyc_91end_91thread_67 = &Cyc_91end_91thread_67_primitive
const object	primitive_Cyc_91flush_91output_91port
const object	primitive_Cyc_91get_91cvar = &Cyc_91get_91cvar_primitive
const object	primitive_Cyc_91global_91vars = &Cyc_91global_91vars_primitive
const object	primitive_Cyc_91has_91cycle_127 = &Cyc_91has_91cycle_127_primitive
const object	primitive_Cyc_91installation_91dir
const object	primitive_Cyc_91macro_127 = &Cyc_91macro_127_primitive
const object	primitive_Cyc_91opaque_127 = &Cyc_91opaque_127_primitive
const object	primitive_Cyc_91read_91line = &Cyc_91read_91line_primitive
const object	primitive_Cyc_91set_91cvar_67 = &Cyc_91set_91cvar_67_primitive
const object	primitive_Cyc_91spawn_91thread_67
const object	primitive_Cyc_91string_91_125utf8
const object	primitive_Cyc_91utf8_91_125string
const object	primitive_Cyc_91write = &Cyc_91write_primitive
const object	primitive_Cyc_91write_91char = &Cyc_91write_91char_primitive
const object	primitive_delete_91file = &delete_91file_primitive
const object	primitive_eof_91object_127 = &eof_91object_127_primitive
const object	primitive_eq_127 = &eq_127_primitive
const object	primitive_equal_127 = &equal_127_primitive
const object	primitive_eqv_127 = &eqv_127_primitive
const object	primitive_exit = &exit_primitive
const object	primitive_file_91exists_127 = &file_91exists_127_primitive
const object	primitive_integer_127 = &integer_127_primitive
const object	primitive_integer_91_125char = &integer_91_125char_primitive
const object	primitive_length = &length_primitive
const object	primitive_list_91_125string = &list_91_125string_primitive
const object	primitive_list_91_125vector = &list_91_125vector_primitive
const object	primitive_macro_127 = &macro_127_primitive
const object	primitive_make_91bytevector = &make_91bytevector_primitive
const object	primitive_make_91vector = &make_91vector_primitive
const object	primitive_memq = &memq_primitive
const object	primitive_memv = &memv_primitive
const object	primitive_null_127 = &null_127_primitive
const object	primitive_number_127 = &number_127_primitive
const object	primitive_number_91_125string = &number_91_125string_primitive
const object	primitive_open_91input_91file = &open_91input_91file_primitive
const object	primitive_open_91output_91file = &open_91output_91file_primitive
const object	primitive_pair_127 = &pair_127_primitive
const object	primitive_peek_91char = &peek_91char_primitive
const object	primitive_port_127 = &port_127_primitive
const object	primitive_procedure_127 = &procedure_127_primitive
const object	primitive_read_91char = &read_91char_primitive
const object	primitive_real_127 = &real_127_primitive
const object	primitive_set_91car_67 = &set_91car_67_primitive
const object	primitive_set_91cdr_67 = &set_91cdr_67_primitive
const object	primitive_set_91cell_67 = &set_91cell_67_primitive
const object	primitive_set_91global_67 = &set_91global_67_primitive
const object	primitive_string_127 = &string_127_primitive
const object	primitive_string_91_125number = &string_91_125number_primitive
const object	primitive_string_91_125symbol = &string_91_125symbol_primitive
const object	primitive_string_91append = &string_91append_primitive
const object	primitive_string_91cmp = &string_91cmp_primitive
const object	primitive_string_91length = &string_91length_primitive
const object	primitive_string_91ref = &string_91ref_primitive
const object	primitive_string_91set_67 = &string_91set_67_primitive
const object	primitive_substring = &substring_primitive
const object	primitive_symbol_127 = &symbol_127_primitive
const object	primitive_symbol_91_125string = &symbol_91_125string_primitive
const object	primitive_system = &system_primitive
const object	primitive_vector_127 = &vector_127_primitive
const object	primitive_vector_91length = &vector_91length_primitive
const object	primitive_vector_91ref = &vector_91ref_primitive
const object	primitive_vector_91set_67 = &vector_91set_67_primitive
const object	quote_void = &Cyc_void_symbol
const char *	tag_names []