// File: /workspace/github_c_makefile_star2_O1/BernardTatin[P]s7sh/s7.c
// Function: p_ppp_ok
static bool p_ppp_ok(s7_scheme *sc, opt_info *opc, s7_pointer s_func, s7_pointer car_x)
                {
                    s7_p_ppp_t func;
                    func = s7_p_ppp_function(s_func);
                    if (func)
                    {
                        s7_pointer arg1, arg2, arg3;
                        int32_t start;
                        opt_type_t op2 = OO_P;
                        s7_pointer sig, checker = NULL;

                        sig = c_function_signature(s_func);
                        if ((is_pair(sig)) &&
                                (is_pair(cdr(sig))) &&
                                (is_symbol(cadr(sig))))
                            checker = cadr(sig);
                        start = sc->pc;

                        opc->v[3].p_ppp_f = func;
                        arg1 = cadr(car_x);
                        arg2 = caddr(car_x);
                        arg3 = cadddr(car_x);
                        if (is_symbol(arg1)) /* dealt with at the top -> p1 */
                        {
                            s7_pointer slot, obj;
                            slot = symbol_to_slot(sc, arg1);
                            if ((!is_slot(slot)) ||
                                    (has_methods(slot_value(slot))))
                                return(return_false(sc, car_x, __func__, __LINE__));

                            obj = slot_value(slot);
                            if ((is_any_vector(obj)) &&
                                    (vector_rank(obj) > 1))
                                return(return_false(sc, car_x, __func__, __LINE__));

                            if (car(car_x) == sc->hash_table_set_symbol) /* the other setters (than nash-table/let) won't happen here -- no p_ppp function */
                            {
                                if ((!is_hash_table(obj)) || (is_immutable(obj)))
                                    return(return_false(sc, car_x, __func__, __LINE__));
                                op2 = OO_H;
                            }
                            else
                            {
                                if (car(car_x) == sc->let_set_symbol)
                                {
                                    if ((!is_let(obj)) || (is_immutable(obj)))
                                        return(return_false(sc, car_x, __func__, __LINE__));
                                    op2 = OO_E;
                                }
                            }

                            opc->v[1].p = slot;
                            if ((checker) && (s7_p_ppp_direct_function(s_func)))
                            {
                                checker = s7_symbol_value(sc, checker);
                                if (s7_apply_function(sc, checker, set_plist_1(sc, obj)) == sc->T)
                                    opc->v[3].p_ppp_f = s7_p_ppp_direct_function(s_func);
                            }
                            if (is_symbol(arg2))
                            {
                                slot = opt_simple_symbol(sc, arg2);
                                if (slot)
                                {
                                    opc->v[2].p = slot;
                                    if (is_symbol(arg3))
                                    {
                                        slot = opt_simple_symbol(sc, arg3);
                                        if (slot)
                                        {
                                            opc->v[4].p_ppp_f = opc->v[3].p_ppp_f;
                                            opc->v[3].p = slot;
                                            opc->v[0].fp = opt_p_ppp_sss;
                                            return(oo_set_type_3(opc, 5, 1, 2, 3, op2, OO_P, OO_P));
                                        }
                                    }
                                    else
                                    {
                                        if ((!is_pair(arg3)) ||
                                                ((car(arg3) == sc->quote_symbol) &&
                                                 (is_pair(cdr(arg3))))) /* (quote) as arg3 */
                                        {
                                            if (!is_pair(arg3))
                                                opc->v[4].p = arg3;
                                            else opc->v[4].p = cadr(arg3);
                                            opc->v[0].fp = opt_p_ppp_ssc;
                                            return(oo_set_type_2(opc, 5, 1, 2, op2, OO_P));
                                        }
                                    }
                                    if (optimize_op(car_x) == OP_HASH_INCREMENT)
                                    {
                                        opc->v[0].fp = opt_p_ppp_hash_increment;
                                        opc->v[4].i = sc->pc - 1;
                                        opc->v[5].p = car_x;
                                        return(oo_set_type_2(opc, 6, 1, 2, op2, OO_P));
                                    }
                                    if (cell_optimize(sc, cdddr(car_x)))
                                    {
                                        opc->v[0].fp = opt_p_ppp_ssf;
                                        return(oo_set_type_2(opc, 4, 1, 2, op2, OO_P));
                                    }
                                    pc_fallback(sc, start);
                                }
                            }
                            if ((is_proper_quote(sc, arg2)) &&
                                    (is_symbol(arg3)))
                            {
                                s7_pointer val_slot;
                                val_slot = opt_simple_symbol(sc, arg3);
                                if (val_slot)
                                {
                                    opc->v[4].p = cadr(arg2);
                                    opc->v[2].p = val_slot;
                                    opc->v[0].fp = opt_p_ppp_scs;
                                    if (opc->v[3].p_ppp_f == s7_let_set)
                                    {
                                        if (is_symbol(cadr(arg2))) /* checked is_let, has_methods and is_immutable above */
                                            opc->v[3].p_ppp_f = let_set_1;
                                        else return(return_false(sc, car_x, __func__, __LINE__));
                                    }
                                    return(oo_set_type_2(opc, 5, 1, 2, op2, OO_P));
                                }
                            }
                            if (cell_optimize(sc, cddr(car_x)))
                            {
                                if (is_symbol(arg3))
                                {
                                    s7_pointer val_slot;
                                    val_slot = opt_simple_symbol(sc, arg3);
                                    if (val_slot)
                                    {
                                        opc->v[2].p = val_slot;
                                        opc->v[0].fp = opt_p_ppp_sfs;
                                        return(oo_set_type_2(opc, 4, 1, 2, op2, OO_P));
                                    }
                                }
                                if (cell_optimize(sc, cdddr(car_x)))
                                {
                                    opc->v[0].fp = opt_p_ppp_sff;
                                    return(oo_set_type_1(opc, 4, 1, op2));
                                }
                            }
                        }
                        else
                        {
                            if ((cell_optimize(sc, cdr(car_x))) &&
                                    (cell_optimize(sc, cddr(car_x))) &&
                                    (cell_optimize(sc, cdddr(car_x))))
                            {
                                opc->v[0].fp = opt_p_ppp_fff;
                                return(oo_set_type_0(opc, 4));
                            }
                        }
                        pc_fallback(sc, start);
                    }
                    return(return_false(sc, car_x, __func__, __LINE__));
                }

// Assembly:
pushq %rbp
pushq %r15
pushq %r14
pushq %r13
pushq %r12
pushq %rbx
subq $0x18, %rsp
movq %rcx, %r15
movq %rdx, %r13
movq %rsi, %r14
movq %rdi, %rbx
movq %rdx, %rdi
callq 0xb65e8
testq %rax, %rax
je 0xaba69
movq 0x8(%r13), %rcx
movq 0x38(%rcx), %rcx
cmpb $0x1, (%rcx)
jne 0xab7c9
movq 0x10(%rcx), %rcx
cmpb $0x1, (%rcx)
jne 0xab7c9
movq 0x8(%rcx), %rcx
xorl %r12d, %r12d
cmpb $0xa, (%rcx)
cmoveq %rcx, %r12
jmp 0xab7cc
xorl %r12d, %r12d
movl 0x2258(%rbx), %ebp
movq %rax, 0x18(%r14)
movq 0x10(%r15), %rsi
movq 0x8(%rsi), %rcx
cmpb $0xa, (%rcx)
jne 0xab8d4
movq 0x8(%rbx), %rdi
movq 0x18(%rdi), %r8
movq 0x20(%rcx), %rax
movl $0x18, %edx
cmpq %rax, %r8
je 0xab848
jle 0xab80c
movq 0x10(%rdi), %rdi
movq 0x18(%rdi), %r8
cmpq %r8, %rax
jl 0xab7ff
cmpq %rax, %r8
je 0xab848
movl $0x10, %edx
cmpb $0x1c, (%rdi)
jne 0xab848
movq 0x8(%rdi), %rax
testq %rax, %rax
sete %r9b
je 0xab834
cmpq %rcx, 0x8(%rax)
je 0xab837
movq 0x18(%rax), %rax
jmp 0xab81f
movq %r8, %rax
testb %r9b, %r9b
je 0xab84c
movq 0x10(%rdi), %rdi
cmpb $0x1c, (%rdi)
movq %rax, %r8
je 0xab81b
movq (%rcx,%rdx), %rax
cmpb $0x20, (%rax)
jne 0xab932
movl %ebp, (%rsp)
movq 0x10(%rax), %rbp
testb $0x40, 0x3(%rbp)
jne 0xaba4b
movq 0x10(%rsi), %rcx
movq 0x10(%rcx), %rdx
movq 0x8(%rcx), %rcx
movq %rcx, 0x10(%rsp)
movq 0x8(%rdx), %rdi
movzbl (%rbp), %ecx
leaq 0xa739a(%rip), %rdx     # 0x152c20
cmpb $0x1, (%rcx,%rdx)
jne 0xab8a4
movq 0x18(%rbp), %rdx
movq 0x20(%rdx), %rdx
testq %rdx, %rdx
je 0xab8a4
cmpq $0x1, 0x10(%rdx)
jg 0xaba4b
movq 0x8(%r15), %rdx
cmpq 0xf70(%rbx), %rdx
je 0xab93d
xorl %esi, %esi
cmpq 0x1240(%rbx), %rdx
jne 0xab955
cmpb $0x1c, %cl
jne 0xaba4b
movl $0xc, %esi
jmp 0xab94b
movq %rbx, %rdi
callq 0xa8bbb
testb %al, %al
je 0xaba59
movq 0x10(%r15), %rax
movq 0x10(%rax), %rsi
movq %rbx, %rdi
callq 0xa8bbb
testb %al, %al
je 0xaba59
movq 0x10(%r15), %rax
movq 0x10(%rax), %rax
movq 0x10(%rax), %rsi
movq %rbx, %rdi
callq 0xa8bbb
testb %al, %al
je 0xaba59
leaq 0xad4c(%rip), %rax      # 0xb666b
movq %rax, (%r14)
movq $0x4, 0x60(%r14)
movb $0x1, %r12b
jmp 0xaba63
xorl %r13d, %r13d
xorl %r12d, %r12d
jmp 0xaba54
cmpb $0x1b, %cl
jne 0xaba4b
movl $0x8, %esi
testb $0x1, 0x3(%rbp)
jne 0xaba4b
movq %rdi, 0x8(%rsp)
movl %esi, 0x4(%rsp)
movq %rax, 0x8(%r14)
testq %r12, %r12
je 0xab9b1
movq %r13, %rdi
callq 0xb6615
testq %rax, %rax
je 0xab9b1
movq %rbx, %rdi
movq %r12, %rsi
callq 0xaa24
movq 0x700(%rbx), %rcx
movq %rbp, 0x8(%rcx)
movq 0x700(%rbx), %rdx
movq %rbx, %rdi
movq %rax, %rsi
callq 0xbd41
cmpq 0x118(%rbx), %rax
jne 0xab9b1
movq %r13, %rdi
callq 0xb6615
movq %rax, 0x18(%r14)
movq 0x10(%rsp), %r13
cmpb $0xa, (%r13)
movl (%rsp), %ebp
jne 0xabb41
movq %rbx, %rdi
movq %r13, %rsi
callq 0xac2d6
testq %rax, %rax
je 0xabb41
movq %rax, 0x10(%r14)
movq 0x8(%rsp), %rsi
movzbl (%rsi), %eax
cmpl $0x1, %eax
movl 0x4(%rsp), %edx
je 0xaba82
cmpl $0xa, %eax
jne 0xabaa4
movq %rbx, %rdi
callq 0xac2d6
movl 0x4(%rsp), %edx
testq %rax, %rax
je 0xababe
movq 0x18(%r14), %rcx
movq %rcx, 0x20(%r14)
movq %rax, 0x18(%r14)
leaq 0x435c(%rip), %rax      # 0xafd7e
movq %rax, (%r14)
movabsq $0x300000005, %rax      # imm = 0x300000005
movq %rax, 0x60(%r14)
movl %edx, 0x70(%r14)
movl $0x0, 0x74(%r14)
xorl %ecx, %ecx
movl $0x78, %eax
jmp 0xabcae
xorl %r13d, %r13d
xorl %r12d, %r12d
movl (%rsp), %ebp
testb %r13b, %r13b
je 0xaba63
movl %ebp, 0x2258(%rbx)
movb $0x1, %al
jmp 0xaba65
xorl %eax, %eax
testb %al, %al
je 0xaba6c
xorl %r12d, %r12d
andb $0x1, %r12b
movl %r12d, %eax
addq $0x18, %rsp
popq %rbx
popq %r12
popq %r13
popq %r14
popq %r15
popq %rbp
retq
movq 0x8(%rsi), %rcx
cmpq 0x17b0(%rbx), %rcx
jne 0xababe
movq 0x10(%rsi), %rcx
cmpb $0x1, (%rcx)
jne 0xababe
cmpb $0x1, %al
jne 0xabaa4
movq 0x10(%rsi), %rax
movq 0x8(%rax), %rsi
movq %rsi, 0x20(%r14)
leaq 0x431b(%rip), %rax      # 0xafdca
movq %rax, (%r14)
movabsq $0x200000005, %rax      # imm = 0x200000005
jmp 0xabaed
cmpw $0x18e, 0x4(%r15)       # imm = 0x18E
jne 0xabb01
leaq 0xab74(%rip), %rax      # 0xb6642
movq %rax, (%r14)
movslq 0x2258(%rbx), %rax
decq %rax
movq %rax, 0x20(%r14)
movq %r15, 0x28(%r14)
movabsq $0x200000006, %rax      # imm = 0x200000006
movq %rax, 0x60(%r14)
movl %edx, 0x70(%r14)
xorl %ecx, %ecx
movl $0x74, %eax
jmp 0xabcae
movq 0x10(%r15), %rax
movq 0x10(%rax), %rax
movq 0x10(%rax), %rsi
movq %rbx, %rdi
callq 0xa8bbb
testb %al, %al
je 0xabb3b
leaq 0x4430(%rip), %rax      # 0xaff50
movq %rax, (%r14)
movabsq $0x200000004, %rax      # imm = 0x200000004
movq %rax, 0x60(%r14)
movl 0x4(%rsp), %eax
movl %eax, 0x70(%r14)
jmp 0xabaf5
movl %ebp, 0x2258(%rbx)
cmpb $0x1, (%r13)
jne 0xabc0b
movq 0x8(%r13), %rax
cmpq 0x17b0(%rbx), %rax
jne 0xabc0b
movq 0x10(%r13), %rax
cmpb $0x1, (%rax)
jne 0xabc0b
movq 0x10(%rax), %rax
cmpq 0x110(%rbx), %rax
jne 0xabc0b
movq 0x8(%rsp), %rax
cmpb $0xa, (%rax)
jne 0xabc0b
movq %rbx, %rdi
movq 0x8(%rsp), %rsi
callq 0xac2d6
testq %rax, %rax
je 0xabbfd
movq 0x10(%r13), %rcx
movq 0x8(%rcx), %rcx
movq %rcx, 0x20(%r14)
movq %rax, 0x10(%r14)
leaq 0x446a(%rip), %rcx      # 0xb001c
movq %rcx, (%r14)
leaq -0x9f577(%rip), %rcx    # 0xc645
cmpq %rcx, 0x18(%r14)
movl 0x4(%rsp), %edx
jne 0xabbde
movq 0x10(%r13), %rcx
movq 0x8(%rcx), %rcx
cmpb $0xa, (%rcx)
jne 0xabbff
leaq -0x9f2c7(%rip), %rcx    # 0xc913
movq %rcx, 0x18(%r14)
movabsq $0x200000005, %rcx      # imm = 0x200000005
movq %rcx, 0x60(%r14)
movl %edx, 0x70(%r14)
movl $0x0, 0x74(%r14)
movb $0x1, %r12b
jmp 0xabc02
jmp 0xabc02
xorl %r12d, %r12d
testq %rax, %rax
jne 0xabcb5
movq 0x10(%r15), %rax
movq 0x10(%rax), %rsi
movq %rbx, %rdi
callq 0xa8bbb
movb $0x1, %r13b
testb %al, %al
je 0xaba54
movq 0x8(%rsp), %rsi
cmpb $0xa, (%rsi)
jne 0xabc71
movq %rbx, %rdi
callq 0xac2d6
testq %rax, %rax
movl 0x4(%rsp), %edx
je 0xabc6c
movq %rax, 0x10(%r14)
leaq 0x43f2(%rip), %rcx      # 0xb003e
movq %rcx, (%r14)
movabsq $0x200000004, %rcx      # imm = 0x200000004
movq %rcx, 0x60(%r14)
movl %edx, 0x70(%r14)
movl $0x0, 0x74(%r14)
movb $0x1, %r12b
testq %rax, %rax
jne 0xabcb5
movq 0x10(%r15), %rax
movq 0x10(%rax), %rax
movq 0x10(%rax), %rsi
movq %rbx, %rdi
callq 0xa8bbb
testb %al, %al
je 0xaba54
leaq 0x4402(%rip), %rax      # 0xb0096
movq %rax, (%r14)
movabsq $0x100000004, %rax      # imm = 0x100000004
movq %rax, 0x60(%r14)
movl $0x70, %eax
movl 0x4(%rsp), %ecx
movl %ecx, (%r14,%rax)
movb $0x1, %r12b
xorl %r13d, %r13d
jmp 0xaba54