// File: /workspace/github_c_makefile_star2_O0/BernardTatin[P]s7sh/s7.c
// Function: s7_let_field
static s7_pointer s7_let_field(s7_scheme *sc, s7_pointer sym)
                {
                    switch (symbol_s7_let(sym))
                    {
                        case SL_ACCEPT_ALL_KEYWORD_ARGUMENTS:  return(make_boolean(sc, sc->accept_all_keyword_arguments));
                        case SL_AUTOLOADING:                   return(s7_make_boolean(sc, sc->is_autoloading));
                        case SL_BIGNUM_PRECISION:              return(s7_make_integer(sc, sc->bignum_precision));
                        case SL_CATCHES:                       return(active_catches(sc));
                        case SL_CPU_TIME:                      return(s7_make_real(sc, (double)clock() / (double)CLOCKS_PER_SEC));
                        case SL_C_TYPES:                       return(sl_c_types(sc));
                        case SL_DEFAULT_HASH_TABLE_LENGTH:     return(s7_make_integer(sc, sc->default_hash_table_length));
                        case SL_DEFAULT_RANDOM_STATE:          return(sc->default_rng);
                        case SL_DEFAULT_RATIONALIZE_ERROR:     return(make_real(sc, sc->default_rationalize_error));
                        case SL_EQUIVALENT_FLOAT_EPSILON:      return(s7_make_real(sc, sc->equivalent_float_epsilon));
                        case SL_FILE_NAMES:                    return(sl_file_names(sc));
                        case SL_FLOAT_FORMAT_PRECISION:        return(s7_make_integer(sc, sc->float_format_precision));
                        case SL_FREE_HEAP_SIZE:                return(s7_make_integer(sc, sc->free_heap_top - sc->free_heap));
                        case SL_GC_FREED:                      return(s7_make_integer(sc, sc->gc_freed));
                        case SL_GC_PROTECTED_OBJECTS:          return(sc->protected_objects);
                        case SL_GC_STATS:                      return(make_integer(sc, sc->gc_stats));
                        case SL_HASH_TABLE_FLOAT_EPSILON:      return(s7_make_real(sc, sc->hash_table_float_epsilon));
                        case SL_HEAP_SIZE:                     return(s7_make_integer(sc, sc->heap_size));
                        case SL_HISTORY:                       return(sl_history(sc));
                        case SL_HISTORY_ENABLED:               return(s7_make_boolean(sc, s7_history_enabled(sc)));
                        case SL_HISTORY_SIZE:                  return(s7_make_integer(sc, sc->history_size));
                        case SL_INITIAL_STRING_PORT_LENGTH:    return(s7_make_integer(sc, sc->initial_string_port_length));
                        case SL_MAX_FORMAT_LENGTH:             return(s7_make_integer(sc, sc->max_format_length));
                        case SL_MAX_HEAP_SIZE:                 return(s7_make_integer(sc, sc->max_heap_size));
                        case SL_MAX_LIST_LENGTH:               return(s7_make_integer(sc, sc->max_list_length));
                        case SL_MAX_PORT_DATA_SIZE:            return(s7_make_integer(sc, sc->max_port_data_size));
                        case SL_MAX_STACK_SIZE:                return(s7_make_integer(sc, sc->max_stack_size));
                        case SL_MAX_STRING_LENGTH:             return(s7_make_integer(sc, sc->max_string_length));
                        case SL_MAX_VECTOR_DIMENSIONS:         return(s7_make_integer(sc, sc->max_vector_dimensions));
                        case SL_MAX_VECTOR_LENGTH:             return(s7_make_integer(sc, sc->max_vector_length));
                        case SL_MEMORY_USAGE:                  return(memory_usage(sc));
                        case SL_MOST_NEGATIVE_FIXNUM:          return(sl_int_fixup(sc, leastfix));
                        case SL_MOST_POSITIVE_FIXNUM:          return(sl_int_fixup(sc, mostfix));
                        case SL_PRINT_LENGTH:                  return(s7_make_integer(sc, sc->print_length));
                        case SL_PROFILE_INFO:                  return(sc->profile_info);
                        case SL_ROOTLET_SIZE:                  return(s7_make_integer(sc, sc->rootlet_entries));
                        case SL_SAFETY:                        return(s7_make_integer(sc, (s7_int)sc->safety));
                        case SL_STACK:                         return(stack_entries(sc, sc->stack, s7_stack_top(sc)));
                        case SL_STACKTRACE_DEFAULTS:           return(sc->stacktrace_defaults);
                        case SL_STACK_SIZE:                    return(s7_make_integer(sc, sc->stack_size));
                        case SL_STACK_TOP:                     return(s7_make_integer(sc, (sc->stack_end - sc->stack_start) / 4));
                        case SL_UNDEFINED_CONSTANT_WARNINGS:   return(s7_make_boolean(sc, sc->undefined_constant_warnings));
                        case SL_UNDEFINED_IDENTIFIER_WARNINGS: return(s7_make_boolean(sc, sc->undefined_identifier_warnings));
                        default:
                                                               return(s7_error(sc, sc->error_symbol, set_elist_2(sc, wrap_string(sc, "can't get (*s7* '~S); no such field in *s7*", 43), sym)));
                    }
                    return(sc->undefined);
                }

// Assembly:
subq $0x98, %rsp
movq %rdi, 0x88(%rsp)
movq %rsi, 0x80(%rsp)
movq 0x80(%rsp), %rax
movq 0x8(%rax), %rax
movq 0x20(%rax), %rax
movzbl 0x11(%rax), %eax
decl %eax
movl %eax, %ecx
movq %rcx, 0x40(%rsp)
subl $0x2a, %eax
ja 0x19ba5b
movq 0x40(%rsp), %rax
leaq 0x45c87(%rip), %rcx     # 0x1e0ec0
movslq (%rcx,%rax,4), %rax
addq %rcx, %rax
jmpq *%rax
movq 0x88(%rsp), %rax
testb $0x1, 0x24d(%rax)
je 0x19b269
movq 0x88(%rsp), %rax
movq 0x118(%rax), %rax
movq %rax, 0x38(%rsp)
jmp 0x19b27d
movq 0x88(%rsp), %rax
movq 0x120(%rax), %rax
movq %rax, 0x38(%rsp)
movq 0x38(%rsp), %rax
movq %rax, 0x90(%rsp)
jmp 0x19bad1
movq 0x88(%rsp), %rdi
movq 0x88(%rsp), %rax
movb 0x249(%rax), %al
andb $0x1, %al
movzbl %al, %esi
callq 0x9c10
movq %rax, 0x90(%rsp)
jmp 0x19bad1
movq 0x88(%rsp), %rdi
movq 0x88(%rsp), %rax
movslq 0xa90(%rax), %rsi
callq 0x120f0
movq %rax, 0x90(%rsp)
jmp 0x19bad1
movq 0x88(%rsp), %rdi
callq 0x19baf0
movq %rax, 0x90(%rsp)
jmp 0x19bad1
movq 0x88(%rsp), %rax
movq %rax, 0x30(%rsp)
callq 0x9170
movq 0x30(%rsp), %rdi
cvtsi2sd %rax, %xmm0
movsd 0x46765(%rip), %xmm1    # 0x1e1a88
divsd %xmm1, %xmm0
callq 0x121a0
movq %rax, 0x90(%rsp)
jmp 0x19bad1
movq 0x88(%rsp), %rdi
callq 0x19bd20
movq %rax, 0x90(%rsp)
jmp 0x19bad1
movq 0x88(%rsp), %rdi
movq 0x88(%rsp), %rax
movq 0x270(%rax), %rsi
callq 0x120f0
movq %rax, 0x90(%rsp)
jmp 0x19bad1
movq 0x88(%rsp), %rax
movq 0xaa0(%rax), %rax
movq %rax, 0x90(%rsp)
jmp 0x19bad1
movq 0x88(%rsp), %rax
movsd 0x258(%rax), %xmm0
movsd %xmm0, 0x70(%rsp)
movq 0x88(%rsp), %rax
movq 0x90(%rax), %rax
movq 0x88(%rsp), %rcx
cmpq 0x98(%rcx), %rax
ja 0x19b3db
movq 0x88(%rsp), %rdi
callq 0xc670
movq 0x88(%rsp), %rcx
movq 0x90(%rcx), %rax
movq %rax, %rdx
addq $-0x8, %rdx
movq %rdx, 0x90(%rcx)
movq -0x8(%rax), %rax
movq %rax, 0x78(%rsp)
movq 0x78(%rsp), %rax
movq $0xd, (%rax)
movsd 0x70(%rsp), %xmm0
movq 0x78(%rsp), %rax
movsd %xmm0, 0x8(%rax)
movq 0x78(%rsp), %rax
movq %rax, 0x68(%rsp)
movq 0x68(%rsp), %rax
movq %rax, 0x90(%rsp)
jmp 0x19bad1
movq 0x88(%rsp), %rdi
movq 0x88(%rsp), %rax
movsd 0x260(%rax), %xmm0
callq 0x121a0
movq %rax, 0x90(%rsp)
jmp 0x19bad1
movq 0x88(%rsp), %rdi
callq 0x19be70
movq %rax, 0x90(%rsp)
jmp 0x19bad1
movq 0x88(%rsp), %rdi
movq 0x88(%rsp), %rax
movslq 0x468(%rax), %rsi
callq 0x120f0
movq %rax, 0x90(%rsp)
jmp 0x19bad1
movq 0x88(%rsp), %rdi
movq 0x88(%rsp), %rax
movq 0x90(%rax), %rsi
movq 0x88(%rsp), %rax
movq 0x88(%rax), %rax
subq %rax, %rsi
sarq $0x3, %rsi
callq 0x120f0
movq %rax, 0x90(%rsp)
jmp 0x19bad1
movq 0x88(%rsp), %rdi
movq 0x88(%rsp), %rax
movq 0xb0(%rax), %rsi
callq 0x120f0
movq %rax, 0x90(%rsp)
jmp 0x19bad1
movq 0x88(%rsp), %rax
movq 0xd0(%rax), %rax
movq %rax, 0x90(%rsp)
jmp 0x19bad1
movq 0x88(%rsp), %rax
movl 0x21c(%rax), %eax
movq %rax, 0x60(%rsp)
movq 0x60(%rsp), %rax
andq $-0x800, %rax           # imm = 0xF800
cmpq $0x0, %rax
jne 0x19b568
movq 0x60(%rsp), %rcx
leaq 0x7af26(%rip), %rax     # 0x216480
movq (%rax,%rcx,8), %rax
movq %rax, 0x28(%rsp)
jmp 0x19b5eb
jmp 0x19b56a
movq 0x88(%rsp), %rax
movq 0x90(%rax), %rax
movq 0x88(%rsp), %rcx
cmpq 0x98(%rcx), %rax
ja 0x19b597
movq 0x88(%rsp), %rdi
callq 0xc670
movq 0x88(%rsp), %rcx
movq 0x90(%rcx), %rax
movq %rax, %rdx
addq $-0x8, %rdx
movq %rdx, 0x90(%rcx)
movq -0x8(%rax), %rax
movq %rax, 0x50(%rsp)
movq 0x50(%rsp), %rax
movq $0xb, (%rax)
movq 0x60(%rsp), %rcx
movq 0x50(%rsp), %rax
movq %rcx, 0x8(%rax)
movq 0x50(%rsp), %rax
movq %rax, 0x48(%rsp)
movq 0x48(%rsp), %rax
movq %rax, 0x28(%rsp)
movq 0x28(%rsp), %rax
movq %rax, 0x58(%rsp)
movq 0x58(%rsp), %rax
movq %rax, 0x90(%rsp)
jmp 0x19bad1
movq 0x88(%rsp), %rdi
movq 0x88(%rsp), %rax
movsd 0x268(%rax), %xmm0
callq 0x121a0
movq %rax, 0x90(%rsp)
jmp 0x19bad1
movq 0x88(%rsp), %rdi
movq 0x88(%rsp), %rax
movq 0xa8(%rax), %rsi
callq 0x120f0
movq %rax, 0x90(%rsp)
jmp 0x19bad1
movq 0x88(%rsp), %rdi
callq 0x19bfb0
movq %rax, 0x90(%rsp)
jmp 0x19bad1
movq 0x88(%rsp), %rax
movq %rax, 0x20(%rsp)
movq 0x88(%rsp), %rdi
callq 0x44fb0
movq 0x20(%rsp), %rdi
movzbl %al, %esi
andl $0x1, %esi
callq 0x9c10
movq %rax, 0x90(%rsp)
jmp 0x19bad1
movq 0x88(%rsp), %rdi
movq 0x88(%rsp), %rax
movq 0x290(%rax), %rsi
callq 0x120f0
movq %rax, 0x90(%rsp)
jmp 0x19bad1
movq 0x88(%rsp), %rdi
movq 0x88(%rsp), %rax
movq 0x278(%rax), %rsi
callq 0x120f0
movq %rax, 0x90(%rsp)
jmp 0x19bad1
movq 0x88(%rsp), %rdi
movq 0x88(%rsp), %rax
movq 0x2c0(%rax), %rsi
callq 0x120f0
movq %rax, 0x90(%rsp)
jmp 0x19bad1
movq 0x88(%rsp), %rdi
movq 0x88(%rsp), %rax
movq 0xb8(%rax), %rsi
callq 0x120f0
movq %rax, 0x90(%rsp)
jmp 0x19bad1
movq 0x88(%rsp), %rdi
movq 0x88(%rsp), %rax
movq 0x2b0(%rax), %rsi
callq 0x120f0
movq %rax, 0x90(%rsp)
jmp 0x19bad1
movq 0x88(%rsp), %rdi
movq 0x88(%rsp), %rax
movq 0x2c8(%rax), %rsi
callq 0x120f0
movq %rax, 0x90(%rsp)
jmp 0x19bad1
movq 0x88(%rsp), %rdi
movq 0x88(%rsp), %rax
movl 0x7c(%rax), %eax
movl %eax, %esi
callq 0x120f0
movq %rax, 0x90(%rsp)
jmp 0x19bad1
movq 0x88(%rsp), %rdi
movq 0x88(%rsp), %rax
movq 0x2a8(%rax), %rsi
callq 0x120f0
movq %rax, 0x90(%rsp)
jmp 0x19bad1
movq 0x88(%rsp), %rdi
movq 0x88(%rsp), %rax
movq 0x2b8(%rax), %rsi
callq 0x120f0
movq %rax, 0x90(%rsp)
jmp 0x19bad1
movq 0x88(%rsp), %rdi
movq 0x88(%rsp), %rax
movq 0x2a0(%rax), %rsi
callq 0x120f0
movq %rax, 0x90(%rsp)
jmp 0x19bad1
movq 0x88(%rsp), %rdi
callq 0x19bfd0
movq %rax, 0x90(%rsp)
jmp 0x19bad1
movq 0x88(%rsp), %rdi
movq 0x896fc(%rip), %rsi     # 0x224f68
callq 0x1a0240
movq %rax, 0x90(%rsp)
jmp 0x19bad1
movq 0x88(%rsp), %rdi
movq 0x896e3(%rip), %rsi     # 0x224f70
callq 0x1a0240
movq %rax, 0x90(%rsp)
jmp 0x19bad1
movq 0x88(%rsp), %rdi
movq 0x88(%rsp), %rax
movq 0x280(%rax), %rsi
callq 0x120f0
movq %rax, 0x90(%rsp)
jmp 0x19bad1
movq 0x88(%rsp), %rax
movq 0x2148(%rax), %rax
movq %rax, 0x90(%rsp)
jmp 0x19bad1
movq 0x88(%rsp), %rdi
movq 0x88(%rsp), %rax
movq 0x160(%rax), %rsi
callq 0x120f0
movq %rax, 0x90(%rsp)
jmp 0x19bad1
movq 0x88(%rsp), %rdi
movq 0x88(%rsp), %rax
movq 0x6a0(%rax), %rsi
callq 0x120f0
movq %rax, 0x90(%rsp)
jmp 0x19bad1
movq 0x88(%rsp), %rdi
movq 0x88(%rsp), %rax
movq 0x38(%rax), %rsi
movq 0x88(%rsp), %rax
movq 0x50(%rax), %rdx
movq 0x88(%rsp), %rax
movq 0x48(%rax), %rax
subq %rax, %rdx
sarq $0x3, %rdx
callq 0x1a0250
movq %rax, 0x90(%rsp)
jmp 0x19bad1
movq 0x88(%rsp), %rax
movq 0x2e0(%rax), %rax
movq %rax, 0x90(%rsp)
jmp 0x19bad1
movq 0x88(%rsp), %rdi
movq 0x88(%rsp), %rax
movl 0x40(%rax), %eax
movl %eax, %esi
callq 0x120f0
movq %rax, 0x90(%rsp)
jmp 0x19bad1
movq 0x88(%rsp), %rdi
movq 0x88(%rsp), %rax
movq 0x50(%rax), %rax
movq 0x88(%rsp), %rcx
movq 0x48(%rcx), %rcx
subq %rcx, %rax
sarq $0x3, %rax
movl $0x4, %ecx
cqto
idivq %rcx
movq %rax, %rsi
callq 0x120f0
movq %rax, 0x90(%rsp)
jmp 0x19bad1
movq 0x88(%rsp), %rdi
movq 0x88(%rsp), %rax
movb 0x218d(%rax), %al
andb $0x1, %al
movzbl %al, %esi
callq 0x9c10
movq %rax, 0x90(%rsp)
jmp 0x19bad1
movq 0x88(%rsp), %rdi
movq 0x88(%rsp), %rax
movb 0x218c(%rax), %al
andb $0x1, %al
movzbl %al, %esi
callq 0x9c10
movq %rax, 0x90(%rsp)
jmp 0x19bad1
movq 0x88(%rsp), %rax
movq %rax, 0x10(%rsp)
movq 0x88(%rsp), %rax
movq 0xea8(%rax), %rax
movq %rax, 0x18(%rsp)
movq 0x88(%rsp), %rax
movq %rax, 0x8(%rsp)
movq 0x88(%rsp), %rdi
leaq 0x5603d(%rip), %rsi     # 0x1f1ad5
movl $0x2b, %edx
callq 0xb880
movq 0x8(%rsp), %rdi
movq %rax, %rsi
movq 0x80(%rsp), %rdx
callq 0xb830
movq 0x10(%rsp), %rdi
movq 0x18(%rsp), %rsi
movq %rax, %rdx
callq 0x2f940
movq %rax, 0x90(%rsp)
movq 0x90(%rsp), %rax
addq $0x98, %rsp
retq
nopw %cs:(%rax,%rax)