runtime.c File Reference

#include <ck_hs.h>
#include <ck_ht.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>
#include <sys/stat.h>

Macros
#define	_read_next_char(data, cont, p)
	Helper macro for Cyc_io_read_token. More...
#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, buf)
#define	closcall2(td, clo, buf)
#define	declare_char_comp(FUNC, OP)
#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	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_init_thread (object thread_and_thunk)
port_type	_Cyc_io_open_input_file (void *data, object str, const char *mode)
port_type	_Cyc_io_open_output_file (void *data, object str, const char *mode)
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_91binary_91input_91file (void *data, object cont, object args)
void	_open_91binary_91output_91file (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)
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)
object	_unsafe_Cyc_vector_ref (object v, object k)
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 (const char *identifier, object *glo)
void	add_mutation (void *data, object var, int index, object value)
object	add_symbol (symbol_type *psym)
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	assoc_cdr (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)
	Copy given object to the heap, if it is from the stack. This function is intended to be called directly from application code. Note that only a shallow-copy is performed! For example, a pair object would be copied to the heap but its car and cdr objects would not. More...
void	Cyc_apply (void *data, object prim, int argc, object *args)
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_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)
	Return the current exception handler. More...
object	Cyc_default_exception_handler (void *data, object _, int argc, object *args)
	The default exception handler. More...
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, object x, object opts)
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_eqv (object x, object y)
void	Cyc_exit_thread (void *data, object _, int argc, object *args)
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_list_2 (object ptr, object a1, object a2)
object	Cyc_fast_list_3 (object ptr, object a1, object a2, object a3)
object	Cyc_fast_list_4 (object ptr, object a1, object a2, object a3, object a4)
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_fast_vector_2 (object ptr, object a1, object a2)
object	Cyc_fast_vector_3 (object ptr, object a1, object a2, object a3)
object	Cyc_fast_vector_4 (object ptr, object a1, object a2, object a3, object a4)
object	Cyc_fast_vector_5 (object ptr, object a1, object a2, object a3, object a4, object a5)
time_t	Cyc_file_last_modified_time (char *path)
object	Cyc_get_cvar (object var)
object	Cyc_get_global_variables ()
object	Cyc_global_set (void *thd, object identifier, object *glo, object value)
object	Cyc_global_set_cps (void *thd, object cont, object identifier, object *glo, object value)
void	Cyc_halt (void *data, object clo, int argc, object *args)
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_immutable_obj_error (void *data, object obj)
void	Cyc_import_shared_object (void *data, object cont, object filename, object entry_pt_fnc)
void *	Cyc_init_thread (object thread_and_thunk, int argc, object *args)
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_binary_input_file (void *data, object str)
port_type	Cyc_io_open_binary_output_file (void *data, object str)
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_peek_u8 (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)
void	Cyc_io_read_token (void *data, object cont, object port)
	Read next token from the input port. More...
object	Cyc_io_read_u8 (void *data, object cont, object port)
object	Cyc_is_immutable (object obj)
object	Cyc_is_integer (object o)
object	Cyc_is_list (object lst)
object	Cyc_is_number (object o)
object	Cyc_is_procedure (void *data, object o)
object	Cyc_is_real (object o)
object	Cyc_is_record (object o)
object	Cyc_length (void *data, object l)
object	Cyc_length_unsafe (void *data, object l)
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,...)
void	Cyc_make_rectangular (void *data, object k, object r, object i)
void	Cyc_make_shared_object (void *data, object k, object obj)
object	Cyc_make_vector (void *data, object cont, int argc, object len,...)
void	Cyc_mutable_obj_error (void *data, object obj)
object	Cyc_num2double (void *data, object ptr, object z)
object	Cyc_num_cmp_list (void *data, int argc, int(fn_op(void *, object, object)), object *args)
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_args (void *data, int argc, object(fn_op(void *, common_type *, object)), int default_no_args, int default_one_arg, object *args, common_type *buf)
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)
	Raise an exception from the runtime code. More...
void	Cyc_rt_raise2 (void *data, const char *msg, object err)
	Raise an exception from the runtime code. More...
void	Cyc_rt_raise_msg (void *data, const char *err)
	Raise an exception from the runtime code. More...
object	Cyc_set_car (void *data, object l, object val)
object	Cyc_set_car_cps (void *data, object cont, object l, object val)
object	Cyc_set_cdr (void *data, object l, object val)
object	Cyc_set_cdr_cps (void *data, object cont, object l, object val)
object	Cyc_set_cell (void *data, object l, object val)
object	Cyc_set_cvar (object var, object value)
void	Cyc_set_globals_changed (gc_thread_data *thd)
object	Cyc_spawn_thread (object thread_and_thunk)
void	Cyc_st_print (void *data, FILE *out)
	Print the contents of the given thread's stack trace buffer. More...
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_byte_length (void *data, object str)
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)
	Accept a number of seconds to sleep according to SRFI-18. More...
object	Cyc_trigger_minor_gc (void *data, object cont)
	Trigger a minor GC for the calling thread. More...
object	Cyc_utf82string (void *data, object cont, object bv, object start, object end)
int	Cyc_utf8_count_code_points (uint8_t *s)
	Count the number of code points in a string. Based on example code from Bjoern Hoehrmann. More...
int	Cyc_utf8_encode (char *dest, int sz, uint32_t *src, int srcsz)
uint32_t	Cyc_utf8_validate (char *str, size_t len)
	Simplified version of Cyc_utf8_validate_stream that must always be called with a complete string buffer. More...
uint32_t	Cyc_utf8_validate_stream (uint32_t *state, char *str, size_t len)
	Use this when validating from a stream, as it may be that the stream stopped in the middle of a codepoint, hence state passed in as an arg, so it can be tested in a loop and also after the loop has finished. More...
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_vector_set_cps (void *data, object cont, object v, object k, object obj)
object	Cyc_vector_set_unsafe (void *data, object v, object k, object obj)
object	Cyc_vector_set_unsafe_cps (void *data, object cont, object v, object k, object obj)
object	Cyc_write (void *data, object x, FILE *port)
object	Cyc_write_bytevector (void *data, object bvec, object port, object start, object end)
object	Cyc_write_char (void *data, object c, object port)
object	Cyc_write_u8 (void *data, object c, object port)
object	Cyc_write_va (void *data, int argc, object x,...)
object	Cyc_write_va_list (void *data, object x, object opts)
void	debug_dump_globals ()
	declare_char_comp (Cyc_char_eq_op,==)
	declare_char_comp (Cyc_char_gt_op, >)
	declare_char_comp (Cyc_char_gte_op, >=)
	declare_char_comp (Cyc_char_lt_op,<)
	declare_char_comp (Cyc_char_lte_op,<=)
	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_gte, Cyc_num_gte_op, Cyc_num_fast_gte_op, dispatch_num_gte, >=, CYC_BN_GTE)
	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_lte, Cyc_num_lte_op, Cyc_num_fast_lte_op, dispatch_num_lte,<=, CYC_BN_LTE)
	declare_num_op (Cyc_mul, Cyc_mul_op, dispatch_mul, *, Cyc_checked_mul, mp_mul, 1, 1, 0)
	declare_num_op (Cyc_sub, Cyc_sub_op, dispatch_sub, -, Cyc_checked_sub, mp_sub, -1, 0, 0)
	declare_num_op (Cyc_sum, Cyc_sum_op, dispatch_sum,+, Cyc_checked_add, mp_add, 0, 0, 0)
void	dispatch (void *data, int argc, function_type func, object clo, object cont, object args)
void	dispatch_apply_va (void *data, object clo, int argc, object *args)
void	dispatch_bytevector (void *data, object clo, int _argc, object *_args)
void	dispatch_bytevector_91append (void *data, object clo, int _argc, object *_args)
void	dispatch_display_va (void *data, object cont, int argc, object *args)
void	dispatch_div (void *data, object clo, int argc, object *args)
void	dispatch_string_91append (void *data, object clo, int _argc, object *_args)
void	dispatch_write_va (void *data, object clo, int argc, object *args)
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)
void	GC (void *data, closure cont, object *args, int num_args)
void *	gc_alloc_pair (gc_thread_data *data, object head, object tail)
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)
void	gc_request_mark_globals (void)
	A helper function for calling gc_mark_globals. More...
char **	get_env_variables ()
char *	int_to_binary (char *b, int x)
object	is_library_loaded (const char *name)
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	MRG32k3a (double seed)
int	octstr2int (const char *str)
void	pack_env_variables (void *data, object k)
int	read_from_port (port_type *p)
	Helper function to perform a buffered read from an input port. More...
object	register_library (const char *name)
void	set_env_variables (char **vars)
int	str_is_bignum (str2int_errno errnum, char *c)
object	transport_stack_value (gc_thread_data *data, object var, object value, int *run_gc)
void	vp_add (vpbuffer *v, void *obj)
vpbuffer *	vp_create (void)
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
const object	Cyc_RECORD_MARKER = &__RECORD
const object	Cyc_VOID = &__VOID
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_91binary_91input_91file = &open_91binary_91input_91file_primitive
const object	primitive_open_91binary_91output_91file = &open_91binary_91output_91file_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 []