~ubuntu-branches/ubuntu/quantal/gclcvs/quantal

base[5]= list(4,VV[25],(V71),VV[26],list(4,VV[27],VV[28],/* INLINE-ARGS */V73,list(5,VV[27],VV[31],VV[32],list(4,VV[27],VV[33],/* INLINE-ARGS */V75,list(3,VV[27],list(2,VV[4],(V72)),VV[30])),VV[35])));

510

vs_top=(vs_base=base+5)+1;

511

return;}

512

}

513

/* macro definition for DEFINE-INITIALIZE-INFO */

514

515

static void L11()

516

{register object *base=vs_base;

517

518

vs_check;

519

check_arg(2);

520

vs_top=sup;

521

{object V76=base[0]->c.c_cdr;

522

if(!endp(V76))invalid_macro_call();}

523

{object V77;

524

object V78;

525

base[3]= (VV[37]->s.s_dbind);

526

{object V79;

527

object V80= base[3];

528

if(V80==Cnil){

529

V77= Cnil;

530

goto T162;}

531

base[2]=V79=MMcons(Cnil,Cnil);

532

goto T163;

533

T163:;

534

base[5]= Cnil;

535

base[6]= VV[36];

536

base[7]= (V80->c.c_car);

537

vs_top=(vs_base=base+5)+3;

538

Lformat();

539

vs_top=sup;

540

base[4]= vs_base[0];

541

vs_top=(vs_base=base+4)+1;

542

Lintern();

543

vs_top=sup;

544

(V79->c.c_car)= vs_base[0];

545

if((V80=MMcdr(V80))==Cnil){

546

V77= base[2];

547

goto T162;}

548

V79=MMcdr(V79)=MMcons(Cnil,Cnil);

549

goto T163;}

550

goto T162;

551

T162:;

552

base[3]= (VV[37]->s.s_dbind);

553

{object V82;

554

object V83= base[3];

555

if(V83==Cnil){

556

V78= Cnil;

557

goto T169;}

558

base[2]=V82=MMcons(Cnil,Cnil);

559

goto T170;

560

T170:;

561

base[5]= Cnil;

562

base[6]= VV[38];

563

base[7]= VV[39];

564

base[8]= (V83->c.c_car);

565

vs_top=(vs_base=base+5)+4;

566

Lformat();

567

vs_top=sup;

568

base[4]= vs_base[0];

569

vs_top=(vs_base=base+4)+1;

570

Lintern();

571

vs_top=sup;

572

(V82->c.c_car)= vs_base[0];

573

if((V83=MMcdr(V83))==Cnil){

574

V78= base[2];

575

goto T169;}

576

V82=MMcdr(V82)=MMcons(Cnil,Cnil);

577

goto T170;}

578

goto T169;

579

T169:;

580

{object V86;

581

object V87= (V77);

582

if(V87==Cnil){

583

V85= Cnil;

584

goto T177;}

585

base[2]=V86=MMcons(Cnil,Cnil);

586

goto T178;

587

T178:;

588

(V86->c.c_car)= list(2,(V87->c.c_car),VV[43]);

589

if((V87=MMcdr(V87))==Cnil){

590

V85= base[2];

591

goto T177;}

592

V86=MMcdr(V86)=MMcons(Cnil,Cnil);

593

goto T178;}

594

goto T177;

595

T177:;

596

V89= listA(5,VV[40],VV[39],VV[41],VV[42],V85);

597

V90= list(4,VV[25],VV[44],VV[45],list(3,VV[46],VV[47],list(3,VV[48],VV[49],list(2,VV[4],(V78)))));

598

base[3]= (VV[37]->s.s_dbind);

599

{object V92;

600

object V93= base[3];

601

object V94= (V78);

602

if(V93==Cnil||V94==Cnil){

603

V91= Cnil;

604

goto T180;}

605

base[2]=V92=MMcons(Cnil,Cnil);

606

goto T181;

607

T181:;

608

V97= list(3,VV[55],VV[56],list(2,(V94->c.c_car),VV[30]));

609

(V92->c.c_car)= list(3,VV[54],/* INLINE-ARGS */V97,list(3,VV[57],list(2,VV[4],(V93->c.c_car)),VV[58]));

610

if((V93=MMcdr(V93))==Cnil||(V94=MMcdr(V94))==Cnil){

611

V91= base[2];

612

goto T180;}

613

V92=MMcdr(V92)=MMcons(Cnil,Cnil);

614

goto T181;}

615

goto T180;

616

T180:;

617

V98= list(4,VV[11],VV[50],VV[51],listA(3,VV[52],VV[53],append(V91,VV[59])));

618

base[3]= (VV[37]->s.s_dbind);

619

{object V100;

620

object V101= base[3];

621

if(V101==Cnil){

622

V99= Cnil;

623

goto T183;}

624

base[2]=V100=MMcons(Cnil,Cnil);

625

goto T184;

626

T184:;

627

(V100->c.c_car)= list(4,VV[60],VV[39],(V101->c.c_car),VV[61]);

628

if((V101=MMcdr(V101))==Cnil){

629

V99= base[2];

630

goto T183;}

631

V100=MMcdr(V100)=MMcons(Cnil,Cnil);

632

goto T184;}

633

goto T183;

634

T183:;

635

base[2]= listA(5,VV[6],/* INLINE-ARGS */V89,/* INLINE-ARGS */V90,/* INLINE-ARGS */V98,V99);

636

vs_top=(vs_base=base+2)+1;

637

return;}

638

}

639

/* local entry for function MAKE-INITIALIZE-INFO */

640

641

static object LI12(object first,...)

642

{

643

va_list ap;

644

int narg = VFUN_NARGS; VMB12 VMS12 VMV12

645

{object V103;

646

object V104;

647

object V105;

648

object V106;

649

object V107;

650

object V108;

651

object V109;

652

object V110;

653

object V111;

654

object V112;

655

object V113;

656

object V114;

657

object V115;

658

object V116;

659

va_start(ap,first);

660

narg= narg - 0;

661

{

662

parse_key_new_new(narg,Vcs +0,(struct key *)(void *)&LI12key,first,ap);

663

V103=(Vcs[0]);

664

V104=(Vcs[1]);

665

V105=(Vcs[2]);

666

V106=(Vcs[3]);

667

V107=(Vcs[4]);

668

V108=(Vcs[5]);

669

V109=(Vcs[6]);

670

V110=(Vcs[7]);

671

V111=(Vcs[8]);

672

V112=(Vcs[9]);

673

V113=(Vcs[10]);

674

V114=(Vcs[11]);

675

V115=(Vcs[12]);

676

V116=(Vcs[13]);

677

base[0]= VV[39];

678

base[1]= (V103);

679

base[2]= (V104);

680

base[3]= (V105);

681

base[4]= (V106);

682

base[5]= (V107);

683

base[6]= (V108);

684

base[7]= (V109);

685

base[8]= (V110);

686

base[9]= (V111);

687

base[10]= (V112);

688

base[11]= (V113);

689

base[12]= (V114);

690

base[13]= (V115);

691

base[14]= (V116);

692

vs_top=(vs_base=base+0)+15;

693

siLmake_structure();

694

vs_top=sup;

695

{object V117 = vs_base[0];

696

VMR12(V117)}

697

va_end(ap);

698

base[0]=base[0];

699

return Cnil;}

700

}}

701

/* macro definition for RESET-INITIALIZE-INFO-INTERNAL */

702

703

static void L13()

704

{register object *base=vs_base;

705

706

vs_check;

707

check_arg(2);

708

vs_top=sup;

709

{object V118=base[0]->c.c_cdr;

710

if(endp(V118))invalid_macro_call();

711

base[2]= (V118->c.c_car);

712

V118=V118->c.c_cdr;

713

if(!endp(V118))invalid_macro_call();}

714

{object V120;

715

object V121= VV[64];

716

if(V121==Cnil){

717

V119= Cnil;

718

goto T201;}

719

base[3]=V120=MMcons(Cnil,Cnil);

720

goto T202;

721

T202:;

722

(V120->c.c_car)= list(3,VV[62],list(2,(V121->c.c_car),base[2]),VV[63]);

723

if((V121=MMcdr(V121))==Cnil){

724

V119= base[3];

725

goto T201;}

726

V120=MMcdr(V120)=MMcons(Cnil,Cnil);

727

goto T202;}

728

goto T201;

729

T201:;

730

base[3]= make_cons(VV[6],V119);

731

vs_top=(vs_base=base+3)+1;

732

return;

733

}

734

/* local entry for function INITIALIZE-INFO-BOUND-SLOTS */

735

736

static object LI14(V124)

737

738

739

{ VMB14 VMS14 VMV14

740

goto TTL;

741

TTL:;

742

{register object V125;

743

V125= Cnil;

744

if((VV[43])==(STREF(object,(V124),8))){

745

goto T204;}

746

V125= make_cons(VV[65],(V125));

747

goto T204;

748

T204:;

749

if((VV[43])==(STREF(object,(V124),12))){

750

goto T208;}

751

V125= make_cons(VV[66],(V125));

752

goto T208;

753

T208:;

754

if((VV[43])==(STREF(object,(V124),16))){

755

goto T212;}

756

V125= make_cons(VV[67],(V125));

757

goto T212;

758

T212:;

759

if((VV[43])==(STREF(object,(V124),20))){

760

goto T216;}

761

V125= make_cons(VV[68],(V125));

762

goto T216;

763

T216:;

764

if((VV[43])==(STREF(object,(V124),24))){

765

goto T220;}

766

V125= make_cons(VV[69],(V125));

767

goto T220;

768

T220:;

769

if((VV[43])==(STREF(object,(V124),28))){

770

goto T224;}

771

V125= make_cons(VV[70],(V125));

772

goto T224;

773

T224:;

774

if((VV[43])==(STREF(object,(V124),32))){

775

goto T228;}

776

V125= make_cons(VV[71],(V125));

777

goto T228;

778

T228:;

779

if((VV[43])==(STREF(object,(V124),36))){

780

goto T232;}

781

V125= make_cons(VV[72],(V125));

782

goto T232;

783

T232:;

784

if((VV[43])==(STREF(object,(V124),40))){

785

goto T236;}

786

V125= make_cons(VV[73],(V125));

787

goto T236;

788

T236:;

789

if((VV[43])==(STREF(object,(V124),44))){

790

goto T240;}

791

V125= make_cons(VV[74],(V125));

792

goto T240;

793

T240:;

794

if((VV[43])==(STREF(object,(V124),48))){

795

goto T244;}

796

V125= make_cons(VV[13],(V125));

797

goto T244;

798

T244:;

799

if((VV[43])==(STREF(object,(V124),52))){

800

goto T248;}

801

V125= make_cons(VV[75],(V125));

802

goto T248;

803

T248:;

804

{object V138 = (V125);

805

VMR14(V138)}}

806

return Cnil;

807

}

808

/* macro definition for INITIALIZE-INFO-VALID-P */

809

810

static void L15()

811

{register object *base=vs_base;

812

813

vs_check;

814

check_arg(2);

815

vs_top=sup;

816

{object V139=base[0]->c.c_cdr;

817

if(endp(V139))invalid_macro_call();

818

base[2]= (V139->c.c_car);

819

V139=V139->c.c_cdr;

820

if(!endp(V139))invalid_macro_call();}

821

V140= list(2,VV[76],list(2,VV[77],base[2]));

822

V141= make_cons(/* INLINE-ARGS */V140,Cnil);

823

V142= list(3,VV[61],base[2],list(2,VV[4],VV[65]));

824

base[3]= list(3,VV[52],/* INLINE-ARGS */V141,list(4,VV[78],VV[79],list(3,VV[6],/* INLINE-ARGS */V142,list(2,VV[77],base[2])),VV[76]));

825

vs_top=(vs_base=base+3)+1;

826

return;

827

}

828

/* macro definition for INITIALIZE-INFO-RI-VALID-P */

829

830

static void L16()

831

{register object *base=vs_base;

832

833

vs_check;

834

check_arg(2);

835

vs_top=sup;

836

{object V143=base[0]->c.c_cdr;

837

if(endp(V143))invalid_macro_call();

838

base[2]= (V143->c.c_car);

839

V143=V143->c.c_cdr;

840

if(!endp(V143))invalid_macro_call();}

841

V144= list(2,VV[76],list(2,VV[80],base[2]));

842

V145= make_cons(/* INLINE-ARGS */V144,Cnil);

843

V146= list(3,VV[61],base[2],list(2,VV[4],VV[66]));

844

base[3]= list(3,VV[52],/* INLINE-ARGS */V145,list(4,VV[78],VV[79],list(3,VV[6],/* INLINE-ARGS */V146,list(2,VV[80],base[2])),VV[76]));

845

vs_top=(vs_base=base+3)+1;

846

return;

847

}

848

/* macro definition for INITIALIZE-INFO-INITARGS-FORM-LIST */

849

850

static void L17()

851

{register object *base=vs_base;

852

853

vs_check;

854

check_arg(2);

855

vs_top=sup;

856

{object V147=base[0]->c.c_cdr;

857

if(endp(V147))invalid_macro_call();

858

base[2]= (V147->c.c_car);

859

V147=V147->c.c_cdr;

860

if(!endp(V147))invalid_macro_call();}

861

V148= list(2,VV[76],list(2,VV[81],base[2]));

862

V149= make_cons(/* INLINE-ARGS */V148,Cnil);

863

V150= list(3,VV[61],base[2],list(2,VV[4],VV[67]));

864

base[3]= list(3,VV[52],/* INLINE-ARGS */V149,list(4,VV[78],VV[79],list(3,VV[6],/* INLINE-ARGS */V150,list(2,VV[81],base[2])),VV[76]));

865

vs_top=(vs_base=base+3)+1;

866

return;

867

}

868

/* macro definition for INITIALIZE-INFO-COMBINED-INITARGS-FORM-LIST */

869

870

static void L18()

871

{register object *base=vs_base;

872

873

vs_check;

874

check_arg(2);

875

vs_top=sup;

876

{object V151=base[0]->c.c_cdr;

877

if(endp(V151))invalid_macro_call();

878

base[2]= (V151->c.c_car);

879

V151=V151->c.c_cdr;

880

if(!endp(V151))invalid_macro_call();}

881

V152= list(2,VV[76],list(2,VV[82],base[2]));

882

V153= make_cons(/* INLINE-ARGS */V152,Cnil);

883

V154= list(3,VV[61],base[2],list(2,VV[4],VV[68]));

884

base[3]= list(3,VV[52],/* INLINE-ARGS */V153,list(4,VV[78],VV[79],list(3,VV[6],/* INLINE-ARGS */V154,list(2,VV[82],base[2])),VV[76]));

885

vs_top=(vs_base=base+3)+1;

886

return;

887

}

888

/* macro definition for INITIALIZE-INFO-NEW-KEYS */

889

890

static void L19()

891

{register object *base=vs_base;

892

893

vs_check;

894

check_arg(2);

895

vs_top=sup;

896

{object V155=base[0]->c.c_cdr;

897

if(endp(V155))invalid_macro_call();

898

base[2]= (V155->c.c_car);

899

V155=V155->c.c_cdr;

900

if(!endp(V155))invalid_macro_call();}

901

V156= list(2,VV[76],list(2,VV[83],base[2]));

902

V157= make_cons(/* INLINE-ARGS */V156,Cnil);

903

V158= list(3,VV[61],base[2],list(2,VV[4],VV[69]));

904

base[3]= list(3,VV[52],/* INLINE-ARGS */V157,list(4,VV[78],VV[79],list(3,VV[6],/* INLINE-ARGS */V158,list(2,VV[83],base[2])),VV[76]));

905

vs_top=(vs_base=base+3)+1;

906

return;

907

}

908

/* macro definition for INITIALIZE-INFO-DEFAULT-INITARGS-FUNCTION */

909

910

static void L20()

911

{register object *base=vs_base;

912

913

vs_check;

914

check_arg(2);

915

vs_top=sup;

916

{object V159=base[0]->c.c_cdr;

917

if(endp(V159))invalid_macro_call();

918

base[2]= (V159->c.c_car);

919

V159=V159->c.c_cdr;

920

if(!endp(V159))invalid_macro_call();}

921

V160= list(2,VV[76],list(2,VV[84],base[2]));

922

V161= make_cons(/* INLINE-ARGS */V160,Cnil);

923

V162= list(3,VV[61],base[2],list(2,VV[4],VV[70]));

924

base[3]= list(3,VV[52],/* INLINE-ARGS */V161,list(4,VV[78],VV[79],list(3,VV[6],/* INLINE-ARGS */V162,list(2,VV[84],base[2])),VV[76]));

925

vs_top=(vs_base=base+3)+1;

926

return;

927

}

928

/* macro definition for INITIALIZE-INFO-SHARED-INITIALIZE-T-FUNCTION */

929

930

static void L21()

931

{register object *base=vs_base;

932

933

vs_check;

934

check_arg(2);

935

vs_top=sup;

936

{object V163=base[0]->c.c_cdr;

937

if(endp(V163))invalid_macro_call();

938

base[2]= (V163->c.c_car);

939

V163=V163->c.c_cdr;

940

if(!endp(V163))invalid_macro_call();}

941

V164= list(2,VV[76],list(2,VV[85],base[2]));

942

V165= make_cons(/* INLINE-ARGS */V164,Cnil);

943

V166= list(3,VV[61],base[2],list(2,VV[4],VV[71]));

944

base[3]= list(3,VV[52],/* INLINE-ARGS */V165,list(4,VV[78],VV[79],list(3,VV[6],/* INLINE-ARGS */V166,list(2,VV[85],base[2])),VV[76]));

945

vs_top=(vs_base=base+3)+1;

946

return;

947

}

948

/* macro definition for INITIALIZE-INFO-SHARED-INITIALIZE-NIL-FUNCTION */

949

950

static void L22()

951

{register object *base=vs_base;

952

953

vs_check;

954

check_arg(2);

955

vs_top=sup;

956

{object V167=base[0]->c.c_cdr;

957

if(endp(V167))invalid_macro_call();

958

base[2]= (V167->c.c_car);

959

V167=V167->c.c_cdr;

960

if(!endp(V167))invalid_macro_call();}

961

V168= list(2,VV[76],list(2,VV[86],base[2]));

962

V169= make_cons(/* INLINE-ARGS */V168,Cnil);

963

V170= list(3,VV[61],base[2],list(2,VV[4],VV[72]));

964

base[3]= list(3,VV[52],/* INLINE-ARGS */V169,list(4,VV[78],VV[79],list(3,VV[6],/* INLINE-ARGS */V170,list(2,VV[86],base[2])),VV[76]));

965

vs_top=(vs_base=base+3)+1;

966

return;

967

}

968

/* macro definition for INITIALIZE-INFO-CONSTANTS */

969

970

static void L23()

971

{register object *base=vs_base;

972

973

vs_check;

974

check_arg(2);

975

vs_top=sup;

976

{object V171=base[0]->c.c_cdr;

977

if(endp(V171))invalid_macro_call();

978

base[2]= (V171->c.c_car);

979

V171=V171->c.c_cdr;

980

if(!endp(V171))invalid_macro_call();}

981

V172= list(2,VV[76],list(2,VV[87],base[2]));

982

V173= make_cons(/* INLINE-ARGS */V172,Cnil);

983

V174= list(3,VV[61],base[2],list(2,VV[4],VV[73]));

984

base[3]= list(3,VV[52],/* INLINE-ARGS */V173,list(4,VV[78],VV[79],list(3,VV[6],/* INLINE-ARGS */V174,list(2,VV[87],base[2])),VV[76]));

985

vs_top=(vs_base=base+3)+1;

986

return;

987

}

988

/* macro definition for INITIALIZE-INFO-COMBINED-INITIALIZE-FUNCTION */

989

990

static void L24()

991

{register object *base=vs_base;

992

993

vs_check;

994

check_arg(2);

995

vs_top=sup;

996

{object V175=base[0]->c.c_cdr;

997

if(endp(V175))invalid_macro_call();

998

base[2]= (V175->c.c_car);

999

V175=V175->c.c_cdr;

1000

if(!endp(V175))invalid_macro_call();}

1001

V176= list(2,VV[76],list(2,VV[88],base[2]));

1002

V177= make_cons(/* INLINE-ARGS */V176,Cnil);

1003

V178= list(3,VV[61],base[2],list(2,VV[4],VV[74]));

1004

base[3]= list(3,VV[52],/* INLINE-ARGS */V177,list(4,VV[78],VV[79],list(3,VV[6],/* INLINE-ARGS */V178,list(2,VV[88],base[2])),VV[76]));

1005

vs_top=(vs_base=base+3)+1;

1006

return;

1007

}

1008

/* macro definition for INITIALIZE-INFO-MAKE-INSTANCE-FUNCTION */

1009

1010

static void L25()

1011

{register object *base=vs_base;

1012

1013

vs_check;

1014

check_arg(2);

1015

vs_top=sup;

1016

{object V179=base[0]->c.c_cdr;

1017

if(endp(V179))invalid_macro_call();

1018

base[2]= (V179->c.c_car);

1019

V179=V179->c.c_cdr;

1020

if(!endp(V179))invalid_macro_call();}

1021

V180= list(2,VV[76],list(2,VV[89],base[2]));

1022

V181= make_cons(/* INLINE-ARGS */V180,Cnil);

1023

V182= list(3,VV[61],base[2],list(2,VV[4],VV[13]));

1024

base[3]= list(3,VV[52],/* INLINE-ARGS */V181,list(4,VV[78],VV[79],list(3,VV[6],/* INLINE-ARGS */V182,list(2,VV[89],base[2])),VV[76]));

1025

vs_top=(vs_base=base+3)+1;

1026

return;

1027

}

1028

/* macro definition for INITIALIZE-INFO-MAKE-INSTANCE-FUNCTION-SYMBOL */

1029

1030

static void L26()

1031

{register object *base=vs_base;

1032

1033

vs_check;

1034

check_arg(2);

1035

vs_top=sup;

1036

{object V183=base[0]->c.c_cdr;

1037

if(endp(V183))invalid_macro_call();

1038

base[2]= (V183->c.c_car);

1039

V183=V183->c.c_cdr;

1040

if(!endp(V183))invalid_macro_call();}

1041

V184= list(2,VV[76],list(2,VV[90],base[2]));

1042

V185= make_cons(/* INLINE-ARGS */V184,Cnil);

1043

V186= list(3,VV[61],base[2],list(2,VV[4],VV[75]));

1044

base[3]= list(3,VV[52],/* INLINE-ARGS */V185,list(4,VV[78],VV[79],list(3,VV[6],/* INLINE-ARGS */V186,list(2,VV[90],base[2])),VV[76]));

1045

vs_top=(vs_base=base+3)+1;

1046

return;

1047

}

1048

/* local entry for function RESET-INITIALIZE-INFO */

1049

1050

static object LI27(V188)

1051

1052

1053

{ VMB27 VMS27 VMV27

1054

goto TTL;

1055

TTL:;

1056

base[0]= CMPcar(STREF(object,(V188),0));

1057

vs_top=(vs_base=base+0)+1;

1058

(void) (*Lnk269)(Lclptr269);

1059

vs_top=sup;

1060

V189= vs_base[0];

1061

V190= Ct;

1062

STSET(object,(V188),4, V189);

1063

(void)(V189);

1064

{object V191;

1065

if(((VV[91]->s.s_dbind))==Cnil){

1066

goto T257;}

1067

V191= (*(LnkLI50))((V188));

1068

goto T255;

1069

goto T257;

1070

T257:;

1071

V191= VV[92];

1072

goto T255;

1073

T255:;

1074

V192= Ct;

1075

STSET(object,(V188),8, VV[43]);

1076

(void)(VV[43]);

1077

V193= Ct;

1078

STSET(object,(V188),12, VV[43]);

1079

(void)(VV[43]);

1080

V194= Ct;

1081

STSET(object,(V188),16, VV[43]);

1082

(void)(VV[43]);

1083

V195= Ct;

1084

STSET(object,(V188),20, VV[43]);

1085

(void)(VV[43]);

1086

V196= Ct;

1087

STSET(object,(V188),24, VV[43]);

1088

(void)(VV[43]);

1089

V197= Ct;

1090

STSET(object,(V188),28, VV[43]);

1091

(void)(VV[43]);

1092

V198= Ct;

1093

STSET(object,(V188),32, VV[43]);

1094

(void)(VV[43]);

1095

V199= Ct;

1096

STSET(object,(V188),36, VV[43]);

1097

(void)(VV[43]);

1098

V200= Ct;

1099

STSET(object,(V188),40, VV[43]);

1100

(void)(VV[43]);

1101

V201= Ct;

1102

STSET(object,(V188),44, VV[43]);

1103

(void)(VV[43]);

1104

V202= Ct;

1105

STSET(object,(V188),48, VV[43]);

1106

(void)(VV[43]);

1107

V203= Ct;

1108

STSET(object,(V188),52, VV[43]);

1109

(void)(VV[43]);

1110

{register object V204;

1111

1112

V204= (V191);

1113

V205= CMPcar((V204));

1114

goto T275;

1115

T275:;

1116

if(!(((V204))==Cnil)){

1117

goto T276;}

1118

goto T271;

1119

goto T276;

1120

T276:;

1121

(void)((*(LnkLI61))((V188),(V205)));

1122

V204= CMPcdr((V204));

1123

V205= CMPcar((V204));

1124

goto T275;}

1125

goto T271;

1126

T271:;

1127

{object V206 = (V188);

1128

VMR27(V206)}}

1129

base[0]=base[0];

1130

return Cnil;

1131

}

1132

/* local entry for function RESET-CLASS-INITIALIZE-INFO */

1133

1134

static object LI28(V208)

1135

1136

object V208;

1137

{ VMB28 VMS28 VMV28

1138

goto TTL;

1139

TTL:;

1140

base[0]= (V208);

1141

vs_top=(vs_base=base+0)+1;

1142

(void) (*Lnk271)(Lclptr271);

1143

vs_top=sup;

1144

V209= vs_base[0];

1145

{object V210 = (*(LnkLI270))(V209);

1146

VMR28(V210)}

1147

base[0]=base[0];

1148

return Cnil;

1149

}

1150

/* local entry for function RESET-CLASS-INITIALIZE-INFO-1 */

1151

1152

static object LI29(V212)

1153

1154

1155

{ VMB29 VMS29 VMV29

1156

goto TTL;

1157

TTL:;

1158

if(!(type_of((V212))==t_cons)){

1159

goto T289;}

1160

if((CMPcar((V212)))==Cnil){

1161

goto T291;}

1162

(void)((*(LnkLI272))(CMPcar((V212))));

1163

goto T291;

1164

T291:;

1165

{object V213;

1166

V213= CMPcdr((V212));

1167

{register object V214;

1168

1169

V214= (V213);

1170

V215= CMPcar((V214));

1171

goto T298;

1172

T298:;

1173

if(!(((V214))==Cnil)){

1174

goto T299;}

1175

{object V216 = Cnil;

1176

VMR29(V216)}

1177

goto T299;

1178

T299:;

1179

(void)((*(LnkLI270))(CMPcdr((V215))));

1180

V214= CMPcdr((V214));

1181

V215= CMPcar((V214));

1182

goto T298;}}

1183

goto T289;

1184

T289:;

1185

{object V217 = Cnil;

1186

VMR29(V217)}

1187

base[0]=base[0];

1188

return Cnil;

1189

}

1190

/* local entry for function INITIALIZE-INFO */

1191

1192

static object LI30(object V219,object V218,object first,...)

1193

{

1194

va_list ap;

1195

int narg = VFUN_NARGS; VMB30 VMS30 VMV30

1196

{object V220;

1197

object V221;

1198

object V222;

1199

object V223;

1200

va_start(ap,first);

1201

if(narg <2) too_few_arguments();

1202

V220= V219;

1203

V221= V218;

1204

narg = narg - 2;

1205

if (narg <= 0) goto T309;

1206

else {

1207

V222= first;}

1208

if (--narg <= 0) goto T310;

1209

else {

1210

V223= va_arg(ap,object);}

1211

--narg; goto T311;

1212

goto T309;

1213

T309:;

1214

V222= Ct;

1215

goto T310;

1216

T310:;

1217

V223= Cnil;

1218

goto T311;

1219

T311:;

1220

{object V224;

1221

V224= Cnil;

1222

if(!(((VV[93]->s.s_dbind))==((V220)))){

1223

goto T316;}

1224

if(!(((VV[94]->s.s_dbind))==((V221)))){

1225

goto T316;}

1226

V224= (VV[95]->s.s_dbind);

1227

goto T314;

1228

goto T316;

1229

T316:;

1230

{register object V225;

1231

object V226;

1232

1233

base[0]= (V220);

1234

vs_top=(vs_base=base+0)+1;

1235

(void) (*Lnk271)(Lclptr271);

1236

vs_top=sup;

1237

V228= vs_base[0];

1238

if(V228==Cnil)goto T322;

1239

V227= V228;

1240

goto T321;

1241

goto T322;

1242

T322:;}

1243

{object V230;

1244

V230= make_cons(Cnil,Cnil);

1245

V231= ({object _tmp=get(VV[271],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[271])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[271])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;});

1246

V227= (

1247

V232 = V231,

1248

(type_of(V232) == t_sfun ?(*((V232)->sfn.sfn_self)):

1249

(fcall.argd=2,type_of(V232)==t_vfun) ?

1250

(*((V232)->sfn.sfn_self)):

1251

(fcall.fun=(V232),fcalln))((V230),V220));}

1252

goto T321;

1253

T321:;

1254

V225= (V221);

1255

V226= Cnil;

1256

goto T329;

1257

T329:;

1258

if(((V225))!=Cnil){

1259

goto T331;}

1260

goto T327;

1261

goto T331;

1262

T331:;

1263

{register object V233;

1264

1265

{object V235;

1266

V235= CMPcar((V225));

1267

V225= CMPcdr((V225));

1268

V233= (V235);}

1269

V234= (V227);

1270

if(((V222))==Cnil){

1271

goto T338;}

1272

if(((V226))!=Cnil){

1273

goto T342;}

1274

if(!(((V233))==(VV[2]))){

1275

goto T342;}

1276

{object V236;

1277

V236= CMPcar((V225));

1278

V225= CMPcdr((V225));

1279

V223= (V236);}

1280

V226= Ct;

1281

goto T338;

1282

goto T342;

1283

T342:;

1284

{object V237;

1285

V237= CMPcar((V225));

1286

V225= CMPcdr((V225));}

1287

goto T338;

1288

T338:;

1289

goto T356;

1290

T356:;

1291

{register object V238;

1292

V238= CMPcdr((V234));

1293

if(((V238))!=Cnil){

1294

goto T359;}

1295

V227= make_cons(Cnil,Cnil);

1296

{object V240;

1297

V241= make_cons((V233),(V227));

1298

V240= make_cons(/* INLINE-ARGS */V241,Cnil);

1299

(V234)->c.c_cdr = (V240);}

1300

goto T330;

1301

goto T359;

1302

T359:;

1303

if(!(eql((V233),CMPcaar((V238))))){

1304

goto T367;}

1305

V227= CMPcdar((V238));

1306

goto T330;

1307

goto T367;

1308

T367:;

1309

V234= (V238);}

1310

goto T356;}

1311

goto T330;

1312

T330:;

1313

goto T329;

1314

goto T327;

1315

T327:;{object V242;

1316

V242= CMPcar((V227));

1317

if(V242==Cnil)goto T376;

1318

V224= V242;

1319

goto T375;

1320

goto T376;

1321

T376:;}

1322

{object V244;

1323

V244= (VFUN_NARGS=0,(*(LnkLI273))());

1324

(V227)->c.c_car = (V244);

1325

V224= (V244);}

1326

goto T375;

1327

T375:;}

1328

goto T314;

1329

T314:;

1330

{object V245;

1331

V245= STREF(object,(V224),4);

1332

base[0]= (V220);

1333

vs_top=(vs_base=base+0)+1;

1334

(void) (*Lnk269)(Lclptr269);

1335

vs_top=sup;

1336

V246= vs_base[0];

1337

if(((V245))==(V246)){

1338

goto T380;}

1339

if(((V245))!=Cnil){

1340

goto T386;}

1341

{register object V247;

1342

object V248;

1343

object V249;

1344

V247= (V221);

1345

V248= make_cons(Cnil,Cnil);

1346

V249= (V248);

1347

goto T394;

1348

T394:;

1349

if(((V247))!=Cnil){

1350

goto T396;}

1351

goto T392;

1352

goto T396;

1353

T396:;

1354

{object V250;

1355

{object V251;

1356

V251= CMPcar((V247));

1357

V247= CMPcdr((V247));

1358

V250= (V251);}

1359

{object V253;

1360

V253= make_cons((V250),Cnil);

1361

(V249)->c.c_cdr = (V253);}}

1362

V249= CMPcdr((V249));

1363

if(((V222))==Cnil){

1364

goto T395;}

1365

{object V254;

1366

V254= CMPcar((V247));

1367

V247= CMPcdr((V247));}

1368

goto T395;

1369

T395:;

1370

goto T394;

1371

goto T392;

1372

T392:;

1373

V255= list(3,(V220),CMPcdr((V248)),(V223));

1374

V256= Ct;

1375

STSET(object,(V224),0, /* INLINE-ARGS */V255);

1376

(void)(/* INLINE-ARGS */V255);}

1377

goto T386;

1378

T386:;

1379

(void)((*(LnkLI272))((V224)));}

1380

goto T380;

1381

T380:;

1382

(VV[93]->s.s_dbind)= (V220);

1383

(VV[94]->s.s_dbind)= (V221);

1384

(VV[95]->s.s_dbind)= (V224);

1385

{object V257 = (V224);

1386

VMR30(V257)}}

1387

va_end(ap);

1388

base[0]=base[0];

1389

return Cnil;}

1390

}

1391

/* local entry for function UPDATE-INITIALIZE-INFO-INTERNAL */

1392

1393

static object LI31(V260,V261)

1394

1395

1396

{ VMB31 VMS31 VMV31

1397

goto TTL;

1398

TTL:;

1399

{register object V262;

1400

V262= STREF(object,(V260),0);

1401

base[1]= CMPcar((V262));

1402

base[2]= CMPcadr((V262));

1403

base[3]= CMPcaddr((V262));

1404

{object V264= V261;

1405

if((V264!= VV[67])

1406

&& (V264!= VV[69]))goto T425;

1407

{object V265;

1408

object V266;

1409

base[4]= base[1];

1410

base[5]= base[2];

1411

vs_top=(vs_base=base+4)+2;

1412

(void) (*Lnk274)();

1413

if(vs_base>=vs_top){vs_top=sup;goto T429;}

1414

V265= vs_base[0];

1415

vs_base++;

1416

if(vs_base>=vs_top){vs_top=sup;goto T430;}

1417

V266= vs_base[0];

1418

vs_top=sup;

1419

goto T431;

1420

goto T429;

1421

T429:;

1422

V265= Cnil;

1423

goto T430;

1424

T430:;

1425

V266= Cnil;

1426

goto T431;

1427

T431:;

1428

V267= Ct;

1429

STSET(object,(V260),16, (V265));

1430

(void)((V265));

1431

V268= Ct;

1432

STSET(object,(V260),24, (V266));

1433

(void)((V266));

1434

goto T420;}

1435

goto T425;

1436

T425:;

1437

if((V264!= VV[68]))goto T433;

1438

{object V269;

1439

object V270;

1440

base[4]= base[1];

1441

base[5]= base[2];

1442

base[6]= Cnil;

1443

vs_top=(vs_base=base+4)+3;

1444

(void) (*Lnk274)();

1445

if(vs_base>=vs_top){vs_top=sup;goto T438;}

1446

V269= vs_base[0];

1447

vs_base++;

1448

if(vs_base>=vs_top){vs_top=sup;goto T439;}

1449

V270= vs_base[0];

1450

vs_top=sup;

1451

goto T440;

1452

goto T438;

1453

T438:;

1454

V269= Cnil;

1455

goto T439;

1456

T439:;

1457

V270= Cnil;

1458

goto T440;

1459

T440:;

1460

V271= Ct;

1461

STSET(object,(V260),20, (V269));

1462

(void)((V269));

1463

V272= Ct;

1464

STSET(object,(V260),24, (V270));

1465

(void)((V270));

1466

goto T420;}

1467

goto T433;

1468

T433:;

1469

if((V264!= VV[70]))goto T442;

1470

{object V273;

1471

{object V274;

1472

V274= STREF(object,(V260),16);

1473

if(!(((V274))==(VV[43]))){

1474

goto T446;}

1475

(void)((*(LnkLI61))((V260),VV[67]));

1476

V273= STREF(object,(V260),16);

1477

goto T443;

1478

goto T446;

1479

T446:;

1480

V273= (V274);}

1481

goto T443;

1482

T443:;

1483

base[4]= VV[70];

1484

base[5]= (V260);

1485

base[6]= base[1];

1486

base[7]= (V273);

1487

vs_top=(vs_base=base+4)+4;

1488

(void) (*Lnk275)();

1489

vs_top=sup;

1490

V275= vs_base[0];

1491

V276= Ct;

1492

STSET(object,(V260),28, V275);

1493

(void)(V275);

1494

goto T420;}

1495

goto T442;

1496

T442:;

1497

if((V264!= VV[65])

1498

&& (V264!= VV[66]))goto T454;

1499

{object V277;

1500

base[4]= base[1];

1501

vs_top=(vs_base=base+4)+1;

1502

(void) (*Lnk276)(Lclptr276);

1503

vs_top=sup;

1504

V277= vs_base[0];

1505

V279= listA(3,VV[96],base[1],Cnil);

1506

V280= listA(3,VV[97],(V277),Cnil);

1507

base[4]= list(3,/* INLINE-ARGS */V279,/* INLINE-ARGS */V280,listA(4,VV[98],(V277),Ct,Cnil));

1508

vs_top=(vs_base=base+4)+1;

1509

L32(base);

1510

vs_top=sup;

1511

V278= vs_base[0];

1512

V281= Ct;

1513

STSET(object,(V260),8, V278);

1514

(void)(V278);

1515

V283= listA(3,VV[99],(V277),Cnil);

1516

base[4]= list(2,/* INLINE-ARGS */V283,listA(4,VV[98],(V277),Cnil,Cnil));

1517

vs_top=(vs_base=base+4)+1;

1518

L32(base);

1519

vs_top=sup;

1520

V282= vs_base[0];

1521

V284= Ct;

1522

STSET(object,(V260),12, V282);

1523

(void)(V282);

1524

goto T420;}

1525

goto T454;

1526

T454:;

1527

if((V264!= VV[71]))goto T462;

1528

{object V285;

1529

object V286;

1530

base[4]= base[1];

1531

base[5]= base[2];

1532

base[6]= Ct;

1533

base[7]= Cnil;

1534

vs_top=(vs_base=base+4)+4;

1535

(void) (*Lnk277)();

1536

if(vs_base>=vs_top){vs_top=sup;goto T468;}

1537

V285= vs_base[0];

1538

vs_base++;

1539

if(vs_base>=vs_top){vs_top=sup;goto T469;}

1540

V286= vs_base[0];

1541

vs_top=sup;

1542

goto T470;

1543

goto T468;

1544

T468:;

1545

V285= Cnil;

1546

goto T469;

1547

T469:;

1548

V286= Cnil;

1549

goto T470;

1550

T470:;

1551

base[4]= VV[71];

1552

base[5]= (V260);

1553

base[6]= base[1];

1554

base[7]= (V285);

1555

vs_top=(vs_base=base+4)+4;

1556

(void) (*Lnk275)();

1557

vs_top=sup;

1558

V287= vs_base[0];

1559

V288= Ct;

1560

STSET(object,(V260),32, V287);

1561

(void)(V287);

1562

goto T420;}

1563

goto T462;

1564

T462:;

1565

if((V264!= VV[72]))goto T476;

1566

{object V289;

1567

object V290;

1568

base[4]= base[1];

1569

base[5]= base[2];

1570

base[6]= Cnil;

1571

base[7]= Cnil;

1572

vs_top=(vs_base=base+4)+4;

1573

(void) (*Lnk277)();

1574

if(vs_base>=vs_top){vs_top=sup;goto T482;}

1575

V289= vs_base[0];

1576

vs_base++;

1577

if(vs_base>=vs_top){vs_top=sup;goto T483;}

1578

V290= vs_base[0];

1579

vs_top=sup;

1580

goto T484;

1581

goto T482;

1582

T482:;

1583

V289= Cnil;

1584

goto T483;

1585

T483:;

1586

V290= Cnil;

1587

goto T484;

1588

T484:;

1589

base[4]= VV[72];

1590

base[5]= (V260);

1591

base[6]= base[1];

1592

base[7]= (V289);

1593

vs_top=(vs_base=base+4)+4;

1594

(void) (*Lnk275)();

1595

vs_top=sup;

1596

V291= vs_base[0];

1597

V292= Ct;

1598

STSET(object,(V260),36, V291);

1599

(void)(V291);

1600

goto T420;}

1601

goto T476;

1602

T476:;

1603

if((V264!= VV[73])

1604

&& (V264!= VV[74]))goto T490;

1605

{object V293;

1606

object V294;

1607

{object V295;

1608

V295= STREF(object,(V260),20);

1609

if(!(((V295))==(VV[43]))){

1610

goto T494;}

1611

(void)((*(LnkLI61))((V260),VV[68]));

1612

V293= STREF(object,(V260),20);

1613

goto T491;

1614

goto T494;

1615

T494:;

1616

V293= (V295);}

1617

goto T491;

1618

T491:;

1619

{object V296;

1620

V296= STREF(object,(V260),24);

1621

if(!(((V296))==(VV[43]))){

1622

goto T500;}

1623

(void)((*(LnkLI61))((V260),VV[69]));

1624

V294= STREF(object,(V260),24);

1625

goto T497;

1626

goto T500;

1627

T500:;

1628

V294= (V296);}

1629

goto T497;

1630

T497:;

1631

{object V297;

1632

object V298;

1633

base[4]= base[1];

1634

base[5]= (V294);

1635

base[6]= Ct;

1636

base[7]= Ct;

1637

vs_top=(vs_base=base+4)+4;

1638

(void) (*Lnk277)();

1639

if(vs_base>=vs_top){vs_top=sup;goto T508;}

1640

V297= vs_base[0];

1641

vs_base++;

1642

if(vs_base>=vs_top){vs_top=sup;goto T509;}

1643

V298= vs_base[0];

1644

vs_top=sup;

1645

goto T510;

1646

goto T508;

1647

T508:;

1648

V297= Cnil;

1649

goto T509;

1650

T509:;

1651

V298= Cnil;

1652

goto T510;

1653

T510:;

1654

V299= Ct;

1655

STSET(object,(V260),40, (V298));

1656

(void)((V298));

1657

base[4]= VV[74];

1658

base[5]= (V260);

1659

base[6]= base[1];

1660

base[7]= append((V293),(V297));

1661

vs_top=(vs_base=base+4)+4;

1662

(void) (*Lnk275)();

1663

vs_top=sup;

1664

V300= vs_base[0];

1665

V301= Ct;

1666

STSET(object,(V260),44, V300);

1667

(void)(V300);

1668

goto T420;}}

1669

goto T490;

1670

T490:;

1671

if((V264!= VV[75]))goto T517;

1672

V302= (*(LnkLI75))((V262));

1673

V303= Ct;

1674

STSET(object,(V260),52, /* INLINE-ARGS */V302);

1675

(void)(/* INLINE-ARGS */V302);

1676

goto T420;

1677

goto T517;

1678

T517:;

1679

if((V264!= VV[13]))goto T518;

1680

{object V304;

1681

object V305;

1682

V304= (*(LnkLI278))((V262));

1683

{object V306;

1684

V306= STREF(object,(V260),52);

1685

if(!(((V306))==(VV[43]))){

1686

goto T523;}

1687

(void)((*(LnkLI61))((V260),VV[75]));

1688

V305= STREF(object,(V260),52);

1689

goto T520;

1690

goto T523;

1691

T523:;

1692

V305= (V306);}

1693

goto T520;

1694

T520:;

1695

V307= Ct;

1696

STSET(object,(V260),48, (V304));

1697

(void)((V304));

1698

if(((V305))==Cnil){

1699

goto T420;}

1700

{object V309;

1701

if((V304)!=Cnil){

1702

V309= (V304);

1703

goto T529;}

1704

V309= (VV[279]->s.s_gfdef);

1705

goto T529;

1706

T529:;

1707

V310= ({object _tmp=get(VV[280],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[280])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[280])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;});

1708

(void)((

1709

V311 = V310,

1710

(type_of(V311) == t_sfun ?(*((V311)->sfn.sfn_self)):

1711

(fcall.argd=2,type_of(V311)==t_vfun) ?

1712

(*((V311)->sfn.sfn_self)):

1713

(fcall.fun=(V311),fcalln))((V309),V305)));

1714

goto T420;}}

1715

goto T518;

1716

T518:;

1717

base[4]= VV[101];

1718

base[5]= VV[102];

1719

base[6]= VV[103];

1720

base[7]= VV[104];

1721

base[8]= V261;

1722

base[9]= VV[105];

1723

base[10]= VV[106];

1724

base[11]= VV[107];

1725

base[12]= VV[108];

1726

vs_top=(vs_base=base+4)+9;

1727

(void) (*Lnk281)();

1728

vs_top=sup;}}

1729

goto T420;

1730

T420:;

1731

{object V312 = (V260);

1732

VMR31(V312)}

1733

base[0]=base[0];

1734

return Cnil;

1735

}

1736

/* local entry for function GET-MAKE-INSTANCE-FUNCTION */

1737

1738

static object LI33(V314)

1739

1740

object V314;

1741

{ VMB32 VMS32 VMV32

1742

goto TTL;

1743

TTL:;

1744

{register object V315;

1745

object V316;

1746

V315= CMPcar((V314));

1747

V316= CMPcadr((V314));

1748

if(((VV[109]->s.s_dbind))==(VV[110])){

1749

goto T542;}

1750

{object V317 = Cnil;

1751

VMR32(V317)}

1752

goto T542;

1753

T542:;

1754

if(!(type_of((V315))==t_symbol)){

1755

goto T545;}

1756

V315= (VFUN_NARGS=1,(*(LnkLI243))((V315)));

1757

goto T545;

1758

T545:;

1759

base[2]= (V315);

1760

vs_top=(vs_base=base+2)+1;

1761

(void) (*Lnk254)(Lclptr254);

1762

vs_top=sup;

1763

if((vs_base[0])==Cnil){

1764

goto T549;}

1765

base[2]= (V315);

1766

vs_top=(vs_base=base+2)+1;

1767

(void) (*Lnk282)(Lclptr282);

1768

vs_top=sup;

1769

if((vs_base[0])!=Cnil){

1770

goto T549;}

1771

base[2]= (V315);

1772

vs_top=(vs_base=base+2)+1;

1773

(void) (*Lnk283)(Lclptr283);

1774

vs_top=sup;

1775

goto T549;

1776

T549:;

1777

{register object V318;

1778

object V319;

1779

1780

object V321;

1781

object V322;

1782

object V323;

1783

object V324;

1784

1785

object V326;

1786

object V327;

1787

{object V328;

1788

object V329= (V316);

1789

if(V329==Cnil){

1790

V318= Cnil;

1791

goto T557;}

1792

base[13]=V328=MMcons(Cnil,Cnil);

1793

goto T558;

1794

T558:;

1795

(V328->c.c_cdr)= list(2,(V329->c.c_car),Cnil);

1796

while(MMcdr(V328)!=Cnil)V328=MMcdr(V328);

1797

if((V329=MMcdr(V329))==Cnil){

1798

base[13]=base[13]->c.c_cdr;

1799

V318= base[13];

1800

goto T557;}

1801

goto T558;}

1802

goto T557;

1803

T557:;

1804

V319= make_cons((V315),(V318));

1805

base[4]= (*(LnkLI280))(VV[9]);

1806

base[4]=MMcons(base[4],Cnil);

1807

base[13]= (base[4]->c.c_car);

1808

base[14]= (V319);

1809

vs_top=(vs_base=base+13)+2;

1810

(void) (*Lnk284)(Lclptr284);

1811

vs_top=sup;

1812

V320= vs_base[0];

1813

V321= (*(LnkLI285))((V320),VV[111]);

1814

V322= list(2,(V315),(V318));

1815

V323= (*(LnkLI280))(VV[112]);

1816

base[13]= (V323);

1817

base[14]= (V322);

1818

vs_top=(vs_base=base+13)+2;

1819

(void) (*Lnk284)(Lclptr284);

1820

vs_top=sup;

1821

V324= vs_base[0];

1822

base[13]= (V315);

1823

vs_top=(vs_base=base+13)+1;

1824

(void) (*Lnk254)(Lclptr254);

1825

vs_top=sup;

1826

if((vs_base[0])!=Cnil){

1827

goto T572;}

1828

V325= Cnil;

1829

goto T571;

1830

goto T572;

1831

T572:;

1832

base[13]= (V315);

1833

vs_top=(vs_base=base+13)+1;

1834

(void) (*Lnk276)(Lclptr276);

1835

vs_top=sup;

1836

V325= vs_base[0];

1837

goto T571;

1838

T571:;

1839

if(((V325))==Cnil){

1840

goto T578;}

1841

base[13]= (*(LnkLI280))(VV[97]);

1842

base[14]= make_cons((V325),(V318));

1843

vs_top=(vs_base=base+13)+2;

1844

(void) (*Lnk284)(Lclptr284);

1845

vs_top=sup;

1846

V326= vs_base[0];

1847

goto T576;

1848

goto T578;

1849

T578:;

1850

V326= Cnil;

1851

goto T576;

1852

T576:;

1853

if(((V325))==Cnil){

1854

goto T584;}

1855

base[13]= (*(LnkLI280))(VV[98]);

1856

base[14]= listA(3,(V325),Ct,(V318));

1857

vs_top=(vs_base=base+13)+2;

1858

(void) (*Lnk284)(Lclptr284);

1859

vs_top=sup;

1860

V327= vs_base[0];

1861

goto T582;

1862

goto T584;

1863

T584:;

1864

V327= Cnil;

1865

goto T582;

1866

T582:;

1867

if(((V320))!=Cnil){

1868

goto T588;}

1869

{object V331 =

1870

make_cclosure_new(LC66,Cnil,base[4],Cdata);

1871

VMR32(V331)}

1872

goto T588;

1873

T588:;

1874

if((CMPcdr((V320)))!=Cnil){

1875

goto T592;}

1876

if(!((CMPcar((V320)))==((V321)))){

1877

goto T592;}

1878

if((CMPcdr((V324)))!=Cnil){

1879

goto T592;}

1880

base[13]= CMPcar((V324));

1881

vs_top=(vs_base=base+13)+1;

1882

(void) (*Lnk286)(Lclptr286);

1883

vs_top=sup;

1884

V332= vs_base[0];

1885

if(!((CMPcar(V332))==((VV[113]->s.s_dbind)))){

1886

goto T592;}

1887

base[13]=make_cclosure_new(LC34,Cnil,base[4],Cdata);

1888

base[13]=MMcons(base[13],base[4]);

1889

base[14]= (base[13]->c.c_car);

1890

base[15]= (V326);

1891

vs_top=(vs_base=base+14)+2;

1892

(void) (*Lnk287)();

1893

vs_top=sup;

1894

if((vs_base[0])!=Cnil){

1895

goto T604;}

1896

goto T603;

1897

goto T604;

1898

T604:;

1899

base[14]= (base[13]->c.c_car);

1900

base[15]= (V327);

1901

vs_top=(vs_base=base+14)+2;

1902

(void) (*Lnk287)();

1903

vs_top=sup;

1904

if((vs_base[0])!=Cnil){

1905

goto T591;}

1906

goto T603;

1907

T603:;

1908

goto T592;

1909

T592:;

1910

{object V333 = Cnil;

1911

VMR32(V333)}

1912

goto T591;

1913

T591:;

1914

base[13]= (V315);

1915

base[14]= (V318);

1916

vs_top=(vs_base=base+13)+2;

1917

(void) (*Lnk112)(Lclptr112);

1918

vs_top=sup;

1919

V334= vs_base[0];

1920

{object V335 = (*(LnkLI288))((V315),(V314),V334,(V326),(V327));

1921

VMR32(V335)}}}

1922

base[0]=base[0];

1923

return Cnil;

1924

}

1925

/* local entry for function GET-MAKE-INSTANCE-FUNCTION-INTERNAL */

1926

1927

static object LI35(V341,V342,V343,V344,V345)

1928

1929

1930

{ VMB33 VMS33 VMV33

1931

goto TTL;

1932

TTL:;

1933

{object V346;

1934

object V347;

1935

object V348;

1936

V346= CMPcadr((V342));

1937

V347= CMPcaddr((V342));

1938

base[3]= (*(LnkLI280))(VV[96]);

1939

base[4]= make_cons((V341),(V343));

1940

vs_top=(vs_base=base+3)+2;

1941

(void) (*Lnk284)(Lclptr284);

1942

vs_top=sup;

1943

V348= vs_base[0];

1944

if(((V347))!=Cnil){

1945

goto T618;}

1946

base[3]= (V348);

1947

base[4]= (V344);

1948

base[5]= (V345);

1949

vs_top=(vs_base=base+3)+3;

1950

Lappend();

1951

vs_top=sup;

1952

V349= vs_base[0];

1953

if(((VFUN_NARGS=5,(*(LnkLI289))((V341),(V343),V349,Ct,Cnil)))!=Cnil){

1954

goto T618;}

1955

{object V350 = Cnil;

1956

VMR33(V350)}

1957

goto T618;

1958

T618:;

1959

if((CMPcdr((V348)))!=Cnil){

1960

goto T627;}

1961

base[3]= (VV[290]->s.s_gfdef);

1962

base[4]= (V344);

1963

vs_top=(vs_base=base+3)+2;

1964

(void) (*Lnk291)();

1965

vs_top=sup;

1966

if((vs_base[0])!=Cnil){

1967

goto T627;}

1968

base[3]= (VV[290]->s.s_gfdef);

1969

base[4]= (V345);

1970

vs_top=(vs_base=base+3)+2;

1971

(void) (*Lnk291)();

1972

vs_top=sup;

1973

if((vs_base[0])==Cnil){

1974

goto T628;}

1975

goto T627;

1976

T627:;

1977

{object V351 = (*(LnkLI292))((V342),(V341),(V346),(V344),(V345));

1978

VMR33(V351)}

1979

goto T628;

1980

T628:;

1981

{object V352 = (*(LnkLI293))((V342),(V341),(V346),(V344),(V345));

1982

VMR33(V352)}}

1983

base[0]=base[0];

1984

return Cnil;

1985

}

1986

/* local entry for function COMPLICATED-INSTANCE-CREATION-METHOD */

1987

1988

static object LI36(V354)

1989

1990

object V354;

1991

{ VMB34 VMS34 VMV34

1992

goto TTL;

1993

TTL:;

1994

{object V355;

1995

base[0]= (V354);

1996

vs_top=(vs_base=base+0)+1;

1997

(void) (*Lnk294)(Lclptr294);

1998

vs_top=sup;

1999

V355= vs_base[0];

2000

if(((V355))==Cnil){

2001

goto T641;}

2002

if((CMPcdr((V355)))==Cnil){

2003

goto T644;}

2004

V356= Cnil;

2005

goto T643;

2006

goto T644;

2007

T644:;

2008

V356= ((CMPcar((V355)))==(VV[115])?Ct:Cnil);

2009

goto T643;

2010

T643:;

2011

{object V357 = ((V356)==Cnil?Ct:Cnil);

2012

VMR34(V357)}

2013

goto T641;

2014

T641:;

2015

{object V358;

2016

base[0]= (V354);

2017

vs_top=(vs_base=base+0)+1;

2018

(void) (*Lnk286)(Lclptr286);

2019

vs_top=sup;

2020

V359= vs_base[0];

2021

V358= CMPcar(V359);

2022

base[0]= (V358);

2023

vs_top=(vs_base=base+0)+1;

2024

(void) (*Lnk254)(Lclptr254);

2025

vs_top=sup;

2026

V360= vs_base[0];

2027

if(!((V360)==Cnil)){

2028

goto T649;}

2029

{object V361 = Ct;

2030

VMR34(V361)}

2031

goto T649;

2032

T649:;

2033

base[0]= (V358);

2034

vs_top=(vs_base=base+0)+1;

2035

(void) (*Lnk255)(Lclptr255);

2036

vs_top=sup;

2037

V362= vs_base[0];

2038

{object V363 = ((((VV[116])==(V362)?Ct:Cnil))==Cnil?Ct:Cnil);

2039

VMR34(V363)}}}

2040

base[0]=base[0];

2041

return Cnil;

2042

}

2043

/* local entry for function FIND-STANDARD-II-METHOD */

2044

2045

static object LI37(V366,V367)

2046

2047

object V366;register object V367;

2048

{ VMB35 VMS35 VMV35

2049

goto TTL;

2050

TTL:;

2051

{register object V368;

2052

2053

V368= (V366);

2054

V369= CMPcar((V368));

2055

goto T658;

2056

T658:;

2057

if(!(((V368))==Cnil)){

2058

goto T659;}

2059

{object V370 = Cnil;

2060

VMR35(V370)}

2061

goto T659;

2062

T659:;

2063

base[1]= (V369);

2064

vs_top=(vs_base=base+1)+1;

2065

(void) (*Lnk294)(Lclptr294);

2066

vs_top=sup;

2067

if((vs_base[0])!=Cnil){

2068

goto T663;}

2069

{register object V371;

2070

base[1]= (V369);

2071

vs_top=(vs_base=base+1)+1;

2072

(void) (*Lnk286)(Lclptr286);

2073

vs_top=sup;

2074

V372= vs_base[0];

2075

V371= CMPcar(V372);

2076

base[1]= (V371);

2077

vs_top=(vs_base=base+1)+1;

2078

(void) (*Lnk254)(Lclptr254);

2079

vs_top=sup;

2080

if((vs_base[0])==Cnil){

2081

goto T663;}

2082

if(!(type_of((V367))==t_cons||((V367))==Cnil)){

2083

goto T676;}

2084

base[1]= (V371);

2085

vs_top=(vs_base=base+1)+1;

2086

(void) (*Lnk255)(Lclptr255);

2087

vs_top=sup;

2088

V374= vs_base[0];

2089

{register object x= V374,V373= (V367);

2090

while(V373!=Cnil)

2091

if(eql(x,V373->c.c_car)){

2092

goto T674;

2093

}else V373=V373->c.c_cdr;

2094

goto T663;}

2095

goto T676;

2096

T676:;

2097

base[1]= (V371);

2098

vs_top=(vs_base=base+1)+1;

2099

(void) (*Lnk255)(Lclptr255);

2100

vs_top=sup;

2101

V375= vs_base[0];

2102

if(!((V375)==((V367)))){

2103

goto T663;}

2104

goto T674;

2105

T674:;

2106

{object V376 = (V369);

2107

VMR35(V376)}}

2108

goto T663;

2109

T663:;

2110

V368= CMPcdr((V368));

2111

V369= CMPcar((V368));

2112

goto T658;}

2113

base[0]=base[0];

2114

return Cnil;

2115

}

2116

/* macro definition for CALL-INITIALIZE-FUNCTION */

2117

2118

static void L38()

2119

{register object *base=vs_base;

2120

2121

vs_check;

2122

check_arg(2);

2123

vs_top=sup;

2124

{object V377=base[0]->c.c_cdr;

2125

if(endp(V377))invalid_macro_call();

2126

base[2]= (V377->c.c_car);

2127

V377=V377->c.c_cdr;

2128

if(endp(V377))invalid_macro_call();

2129

base[3]= (V377->c.c_car);

2130

V377=V377->c.c_cdr;

2131

if(endp(V377))invalid_macro_call();

2132

base[4]= (V377->c.c_car);

2133

V377=V377->c.c_cdr;

2134

if(!endp(V377))invalid_macro_call();}

2135

V378= list(2,VV[117],base[2]);

2136

V379= make_cons(/* INLINE-ARGS */V378,Cnil);

2137

V380= list(5,VV[119],VV[120],VV[121],base[3],base[4]);

2138

base[5]= list(3,VV[52],/* INLINE-ARGS */V379,list(4,VV[78],VV[118],/* INLINE-ARGS */V380,list(4,VV[122],VV[123],base[3],base[4])));

2139

vs_top=(vs_base=base+5)+1;

2140

return;

2141

}

2142

/* macro definition for COPY-SLOTS */

2143

2144

static void L39()

2145

{register object *base=vs_base;

2146

2147

vs_check;

2148

check_arg(2);

2149

vs_top=sup;

2150

{object V381=base[0]->c.c_cdr;

2151

if(endp(V381))invalid_macro_call();

2152

base[2]= (V381->c.c_car);

2153

V381=V381->c.c_cdr;

2154

if(!endp(V381))invalid_macro_call();}

2155

base[3]= list(2,VV[124],base[2]);

2156

vs_top=(vs_base=base+3)+1;

2157

return;

2158

}

2159

/* macro definition for ALLOCATE-STANDARD-INSTANCE--MACRO */

2160

2161

static void L40()

2162

{register object *base=vs_base;

2163

2164

vs_check;

2165

check_arg(2);

2166

vs_top=sup;

2167

{object V382=base[0]->c.c_cdr;

2168

if(endp(V382))invalid_macro_call();

2169

base[2]= (V382->c.c_car);

2170

V382=V382->c.c_cdr;

2171

if(endp(V382))invalid_macro_call();

2172

base[3]= (V382->c.c_car);

2173

V382=V382->c.c_cdr;

2174

if(!endp(V382))invalid_macro_call();}

2175

V383= list(3,VV[62],VV[126],base[2]);

2176

base[4]= list(5,VV[52],VV[125],/* INLINE-ARGS */V383,list(3,VV[62],VV[127],list(2,VV[128],base[3])),VV[129]);

2177

vs_top=(vs_base=base+4)+1;

2178

return;

2179

}

2180

/* macro definition for WITH-MAKE-INSTANCE-FUNCTION-VALID-P-CHECK */

2181

2182

static void L41()

2183

{register object *base=vs_base;

2184

2185

vs_check;

2186

check_arg(2);

2187

vs_top=sup;

2188

{object V384=base[0]->c.c_cdr;

2189

if(endp(V384))invalid_macro_call();

2190

base[2]= (V384->c.c_car);

2191

V384=V384->c.c_cdr;

2192

base[3]= V384;}

2193

V385= list(3,VV[132],VV[133],base[2]);

2194

base[4]= list(3,VV[52],VV[130],list(4,VV[78],VV[131],/* INLINE-ARGS */V385,make_cons(VV[6],base[3])));

2195

vs_top=(vs_base=base+4)+1;

2196

return;

2197

}

2198

/* function definition for MAKE-INSTANCE-FUNCTION-TRAP */

2199

2200

static void L42()

2201

{register object *base=vs_base;

2202

2203

vs_check;

2204

{object V386;

2205

object V387;

2206

check_arg(2);

2207

V386=(base[0]);

2208

V387=(base[1]);

2209

vs_top=sup;

2210

goto TTL;

2211

TTL:;

2212

{object V388;

2213

object V389;

2214

V388= (VFUN_NARGS=2,(*(LnkLI39))((V386),(V387)));

2215

{object V390;

2216

V390= STREF(object,(V388),48);

2217

if(!(((V390))==(VV[43]))){

2218

goto T691;}

2219

(void)((*(LnkLI61))((V388),VV[13]));

2220

V389= STREF(object,(V388),48);

2221

goto T688;

2222

goto T691;

2223

T691:;

2224

V389= (V390);}

2225

goto T688;

2226

T688:;

2227

base[4]= (V386);

2228

base[5]= (V387);

2229

vs_top=(vs_base=base+4)+2;

2230

{object _funobj = (V389);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))

2231

(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);

2232

else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();

2233

else super_funcall_no_event(_funobj);}

2234

return;}

2235

}

2236

}

2237

/* local entry for function MAKE-INSTANCE-FUNCTION-SIMPLE */

2238

2239

static object LI43(V396,V397,V398,V399,V400)

2240

2241

object V396;object V397;object V398;object V399;object V400;

2242

{ VMB41 VMS41 VMV41

2243

goto TTL;

2244

TTL:;

2245

{object V401;

2246

object V402;

2247

object V403;

2248

object V404;

2249

base[0]= CMPcar((V396));

2250

base[0]=MMcons(base[0],Cnil);

2251

if(!(type_of((base[0]->c.c_car))==t_symbol)){

2252

goto T699;}

2253

base[1]= (VFUN_NARGS=2,(*(LnkLI250))((base[0]->c.c_car),Cnil));

2254

goto T697;

2255

goto T699;

2256

T699:;

2257

base[1]= Cnil;

2258

goto T697;

2259

T697:;

2260

base[1]=MMcons(base[1],base[0]);

2261

base[10]= (V397);

2262

vs_top=(vs_base=base+10)+1;

2263

(void) (*Lnk269)(Lclptr269);

2264

vs_top=sup;

2265

base[2]= vs_base[0];

2266

base[2]=MMcons(base[2],base[1]);

2267

V401= make_cons((base[2]->c.c_car),Cnil);

2268

base[10]= (V397);

2269

vs_top=(vs_base=base+10)+1;

2270

(void) (*Lnk295)(Lclptr295);

2271

vs_top=sup;

2272

if((vs_base[0])==Cnil){

2273

goto T706;}

2274

base[4]= (VV[296]->s.s_gfdef);

2275

goto T704;

2276

goto T706;

2277

T706:;

2278

base[10]= (V397);

2279

vs_top=(vs_base=base+10)+1;

2280

(void) (*Lnk297)(Lclptr297);

2281

vs_top=sup;

2282

if((vs_base[0])==Cnil){

2283

goto T710;}

2284

base[4]= (VV[298]->s.s_gfdef);

2285

goto T704;

2286

goto T710;

2287

T710:;

2288

base[10]= (V397);

2289

vs_top=(vs_base=base+10)+1;

2290

(void) (*Lnk299)(Lclptr299);

2291

vs_top=sup;

2292

if((vs_base[0])==Cnil){

2293

goto T714;}

2294

base[4]= (VV[300]->s.s_gfdef);

2295

goto T704;

2296

goto T714;

2297

T714:;

2298

base[10]= VV[134];

2299

vs_top=(vs_base=base+10)+1;

2300

Lerror();

2301

vs_top=sup;

2302

base[4]= vs_base[0];

2303

goto T704;

2304

T704:;

2305

base[4]=MMcons(base[4],base[2]);

2306

base[10]= (V397);

2307

vs_top=(vs_base=base+10)+1;

2308

(void) (*Lnk297)(Lclptr297);

2309

vs_top=sup;

2310

if((vs_base[0])==Cnil){

2311

goto T720;}

2312

V402= VV[135];

2313

goto T718;

2314

goto T720;

2315

T720:;

2316

V402= Cnil;

2317

goto T718;

2318

T718:;

2319

V403= (*(LnkLI285))((V400),VV[116]);

2320

base[11]= (V403);

2321

base[12]= (V400);

2322

vs_top=(vs_base=base+11)+2;

2323

(void) (*Lnk301)();

2324

vs_top=sup;

2325

V408= vs_base[0];

2326

{object V406;

2327

object V407= V408;

2328

if(V407==Cnil){

2329

V405= Cnil;

2330

goto T725;}

2331

base[10]=V406=MMcons(Cnil,Cnil);

2332

goto T726;

2333

T726:;

2334

base[11]= (VV[98]->s.s_gfdef);

2335

base[12]= list(3,VV[136],(V407->c.c_car),Cnil);

2336

base[13]= Cnil;

2337

base[14]= (V401);

2338

vs_top=(vs_base=base+11)+4;

2339

(void) (*Lnk302)();

2340

vs_top=sup;

2341

(V406->c.c_car)= vs_base[0];

2342

if((V407=MMcdr(V407))==Cnil){

2343

V405= base[10];

2344

goto T725;}

2345

V406=MMcdr(V406)=MMcons(Cnil,Cnil);

2346

goto T726;}

2347

goto T725;

2348

T725:;

2349

base[7]= nreverse(V405);

2350

base[7]=MMcons(base[7],base[4]);

2351

V404= (*(LnkLI285))((V399),VV[116]);

2352

base[11]= (V404);

2353

base[12]= (V399);

2354

vs_top=(vs_base=base+11)+2;

2355

(void) (*Lnk301)();

2356

vs_top=sup;

2357

V413= vs_base[0];

2358

{object V411;

2359

object V412= V413;

2360

if(V412==Cnil){

2361

V410= Cnil;

2362

goto T737;}

2363

base[10]=V411=MMcons(Cnil,Cnil);

2364

goto T738;

2365

T738:;

2366

base[11]= (VV[97]->s.s_gfdef);

2367

base[12]= list(3,VV[136],(V412->c.c_car),Cnil);

2368

base[13]= Cnil;

2369

base[14]= (V401);

2370

vs_top=(vs_base=base+11)+4;

2371

(void) (*Lnk302)();

2372

vs_top=sup;

2373

(V411->c.c_car)= vs_base[0];

2374

if((V412=MMcdr(V412))==Cnil){

2375

V410= base[10];

2376

goto T737;}

2377

V411=MMcdr(V411)=MMcons(Cnil,Cnil);

2378

goto T738;}

2379

goto T737;

2380

T737:;

2381

base[9]= nreverse(V410);

2382

base[9]=MMcons(base[9],base[7]);

2383

base[12]= (V397);

2384

base[13]= (V398);

2385

base[14]= CMPcaddr((V396));

2386

vs_top=(vs_base=base+12)+3;

2387

(void) (*Lnk303)();

2388

if(vs_base>=vs_top){vs_top=sup;goto T751;}

2389

base[10]=MMcons(vs_base[0],base[9]);

2390

vs_base++;

2391

if(vs_base>=vs_top){vs_top=sup;goto T752;}

2392

base[11]=MMcons(vs_base[0],base[10]);

2393

vs_top=sup;

2394

goto T753;

2395

goto T751;

2396

T751:;

2397

base[10]=MMcons(Cnil,base[9]);

2398

goto T752;

2399

T752:;

2400

base[11]=MMcons(Cnil,base[10]);

2401

goto T753;

2402

T753:;

2403

if(!(((V402))==(VV[135]))){

2404

goto T755;}

2405

{object V415 =

2406

make_cclosure_new(LC67,Cnil,base[11],Cdata);

2407

VMR41(V415)}

2408

goto T755;

2409

T755:;

2410

{object V416 =

2411

make_cclosure_new(LC68,Cnil,base[11],Cdata);

2412

VMR41(V416)}}

2413

base[0]=base[0];

2414

return Cnil;

2415

}

2416

/* local entry for function MAKE-INSTANCE-FUNCTION-COMPLEX */

2417

2418

static object LI45(V422,V423,V424,V425,V426)

2419

2420

object V422;object V423;object V424;object V425;object V426;

2421

{ VMB42 VMS42 VMV42

2422

goto TTL;

2423

TTL:;

2424

base[0]=MMcons((V423),Cnil);

2425

base[3]= (base[0]->c.c_car);

2426

base[4]= (V424);

2427

base[5]= CMPcaddr((V422));

2428

vs_top=(vs_base=base+3)+3;

2429

(void) (*Lnk304)();

2430

if(vs_base>=vs_top){vs_top=sup;goto T761;}

2431

base[1]=MMcons(vs_base[0],base[0]);

2432

vs_base++;

2433

if(vs_base>=vs_top){vs_top=sup;goto T762;}

2434

base[2]=MMcons(vs_base[0],base[1]);

2435

vs_top=sup;

2436

goto T763;

2437

goto T761;

2438

T761:;

2439

base[1]=MMcons(Cnil,base[0]);

2440

goto T762;

2441

T762:;

2442

base[2]=MMcons(Cnil,base[1]);

2443

goto T763;

2444

T763:;

2445

base[3]= CMPcar((V422));

2446

base[3]=MMcons(base[3],base[2]);

2447

if(!(type_of((base[3]->c.c_car))==t_symbol)){

2448

goto T767;}

2449

base[4]= (VFUN_NARGS=2,(*(LnkLI250))((base[3]->c.c_car),Cnil));

2450

goto T765;

2451

goto T767;

2452

T767:;

2453

base[4]= Cnil;

2454

goto T765;

2455

T765:;

2456

base[4]=MMcons(base[4],base[3]);

2457

base[8]= (base[0]->c.c_car);

2458

vs_top=(vs_base=base+8)+1;

2459

(void) (*Lnk269)(Lclptr269);

2460

vs_top=sup;

2461

base[5]= vs_base[0];

2462

base[5]=MMcons(base[5],base[4]);

2463

base[8]= (VV[98]->s.s_gfdef);

2464

base[9]= (V426);

2465

V427= list(2,VV[150],(base[0]->c.c_car));

2466

base[10]= make_cons(/* INLINE-ARGS */V427,VV[151]);

2467

V428= (*(LnkLI285))((V426),VV[116]);

2468

V429=

2469

make_cclosure_new(LC69,Cnil,base[5],Cdata);

2470

V430= list(2,/* INLINE-ARGS */V428,V429);

2471

base[11]= make_cons(/* INLINE-ARGS */V430,Cnil);

2472

base[12]= list(3,(base[5]->c.c_car),(VV[152]->s.s_dbind),(VV[152]->s.s_dbind));

2473

vs_top=(vs_base=base+8)+5;

2474

(void) (*Lnk305)();

2475

vs_top=sup;

2476

base[6]= vs_base[0];

2477

base[6]=MMcons(base[6],base[5]);

2478

base[8]= (VV[97]->s.s_gfdef);

2479

base[9]= (V425);

2480

base[10]= list(2,list(2,VV[150],(base[0]->c.c_car)),Ct);

2481

V431= (*(LnkLI285))((V425),VV[116]);

2482

V432=

2483

make_cclosure_new(LC70,Cnil,base[6],Cdata);

2484

V433= list(2,/* INLINE-ARGS */V431,V432);

2485

base[11]= make_cons(/* INLINE-ARGS */V433,Cnil);

2486

base[12]= list(2,(base[5]->c.c_car),(VV[152]->s.s_dbind));

2487

vs_top=(vs_base=base+8)+5;

2488

(void) (*Lnk305)();

2489

vs_top=sup;

2490

base[7]= vs_base[0];

2491

base[7]=MMcons(base[7],base[6]);

2492

{object V434 =

2493

make_cclosure_new(LC71,Cnil,base[7],Cdata);

2494

VMR42(V434)}

2495

base[0]=base[0];

2496

return Cnil;

2497

}

2498

/* function definition for GET-SIMPLE-INITIALIZATION-FUNCTION */

2499

2500

static void L46()

2501

{register object *base=vs_base;

2502

2503

vs_check;

2504

{object V435;

2505

object V436;

2506

object V437;

2507

if(vs_top-vs_base<2) too_few_arguments();

2508

if(vs_top-vs_base>3) too_many_arguments();

2509

V435=(base[0]);

2510

V436=(base[1]);

2511

vs_base=vs_base+2;

2512

if(vs_base>=vs_top){vs_top=sup;goto T785;}

2513

V437=(base[2]);

2514

vs_top=sup;

2515

goto T786;

2516

goto T785;

2517

T785:;

2518

V437= Cnil;

2519

goto T786;

2520

T786:;

2521

{register object V438;

2522

V438= (VFUN_NARGS=4,(*(LnkLI39))((V435),(V436),Cnil,(V437)));

2523

{object V439;

2524

V439= STREF(object,(V438),44);

2525

if(!(((V439))==(VV[43]))){

2526

goto T792;}

2527

(void)((*(LnkLI61))((V438),VV[74]));

2528

base[3]= STREF(object,(V438),44);

2529

goto T789;

2530

goto T792;

2531

T792:;

2532

base[3]= (V439);}

2533

goto T789;

2534

T789:;

2535

{object V440;

2536

V440= STREF(object,(V438),40);

2537

if(!(((V440))==(VV[43]))){

2538

goto T798;}

2539

(void)((*(LnkLI61))((V438),VV[73]));

2540

base[4]= STREF(object,(V438),40);

2541

goto T795;

2542

goto T798;

2543

T798:;

2544

base[4]= (V440);}

2545

goto T795;

2546

T795:;

2547

vs_top=(vs_base=base+3)+2;

2548

return;}

2549

}

2550

}

2551

/* function definition for GET-COMPLEX-INITIALIZATION-FUNCTIONS */

2552

2553

static void L47()

2554

{register object *base=vs_base;

2555

2556

vs_check;

2557

{register object V441;

2558

object V442;

2559

2560

object V444;

2561

if(vs_top-vs_base<2) too_few_arguments();

2562

if(vs_top-vs_base>4) too_many_arguments();

2563

V441=(base[0]);

2564

V442=(base[1]);

2565

vs_base=vs_base+2;

2566

if(vs_base>=vs_top){vs_top=sup;goto T801;}

2567

V443=(base[2]);

2568

vs_base++;

2569

if(vs_base>=vs_top){vs_top=sup;goto T802;}

2570

V444=(base[3]);

2571

vs_top=sup;

2572

goto T803;

2573

goto T801;

2574

T801:;

2575

V443= Cnil;

2576

goto T802;

2577

T802:;

2578

V444= Cnil;

2579

goto T803;

2580

T803:;

2581

{register object V445;

2582

object V446;

2583

V445= (VFUN_NARGS=4,(*(LnkLI39))((V441),(V442),Cnil,(V443)));

2584

{object V447;

2585

V447= STREF(object,(V445),28);

2586

if(!(((V447))==(VV[43]))){

2587

goto T810;}

2588

(void)((*(LnkLI61))((V445),VV[70]));

2589

V446= STREF(object,(V445),28);

2590

goto T807;

2591

goto T810;

2592

T810:;

2593

V446= (V447);}

2594

goto T807;

2595

T807:;

2596

if(((V444))==Cnil){

2597

goto T814;}

2598

base[6]= (V446);

2599

{object V448;

2600

V448= STREF(object,(V445),32);

2601

if(!(((V448))==(VV[43]))){

2602

goto T820;}

2603

(void)((*(LnkLI61))((V445),VV[71]));

2604

base[7]= STREF(object,(V445),32);

2605

goto T817;

2606

goto T820;

2607

T820:;

2608

base[7]= (V448);}

2609

goto T817;

2610

T817:;

2611

vs_top=(vs_base=base+6)+2;

2612

return;

2613

goto T814;

2614

T814:;

2615

base[6]= (V446);

2616

{object V449;

2617

{object V451;

2618

V451= STREF(object,(V445),24);

2619

if(!(((V451))==(VV[43]))){

2620

goto T829;}

2621

(void)((*(LnkLI61))((V445),VV[69]));

2622

V450= STREF(object,(V445),24);

2623

goto T826;

2624

goto T829;

2625

T829:;

2626

V450= (V451);}

2627

goto T826;

2628

T826:;

2629

V452= (VFUN_NARGS=4,(*(LnkLI39))((V441),V450,Cnil,(V443)));

2630

V449= STREF(object,/* INLINE-ARGS */V452,32);

2631

if(!(((V449))==(VV[43]))){

2632

goto T833;}

2633

{object V454;

2634

V454= STREF(object,(V445),24);

2635

if(!(((V454))==(VV[43]))){

2636

goto T839;}

2637

(void)((*(LnkLI61))((V445),VV[69]));

2638

V453= STREF(object,(V445),24);

2639

goto T836;

2640

goto T839;

2641

T839:;

2642

V453= (V454);}

2643

goto T836;

2644

T836:;

2645

V455= (VFUN_NARGS=4,(*(LnkLI39))((V441),V453,Cnil,(V443)));

2646

(void)((*(LnkLI61))(/* INLINE-ARGS */V455,VV[71]));

2647

{object V457;

2648

V457= STREF(object,(V445),24);

2649

if(!(((V457))==(VV[43]))){

2650

goto T845;}

2651

(void)((*(LnkLI61))((V445),VV[69]));

2652

V456= STREF(object,(V445),24);

2653

goto T842;

2654

goto T845;

2655

T845:;

2656

V456= (V457);}

2657

goto T842;

2658

T842:;

2659

V458= (VFUN_NARGS=4,(*(LnkLI39))((V441),V456,Cnil,(V443)));

2660

base[7]= STREF(object,/* INLINE-ARGS */V458,32);

2661

goto T824;

2662

goto T833;

2663

T833:;

2664

base[7]= (V449);}

2665

goto T824;

2666

T824:;

2667

vs_top=(vs_base=base+6)+2;

2668

return;}

2669

}

2670

}

2671

/* local entry for function ADD-FORMS */

2672

2673

static object LI48(V461,V462)

2674

2675

2676

{ VMB45 VMS45 VMV45

2677

goto TTL;

2678

TTL:;

2679

if(((V461))==Cnil){

2680

goto T848;}

2681

base[0]= (V461);

2682

vs_top=(vs_base=base+0)+1;

2683

Lcopy_list();

2684

vs_top=sup;

2685

V461= vs_base[0];

2686

if((CMPcar((V462)))!=Cnil){

2687

goto T856;}

2688

(V462)->c.c_car = V461;

2689

goto T854;

2690

goto T856;

2691

T856:;

2692

(CMPcdr(V462))->c.c_cdr = V461;

2693

(void)(CMPcdr(V462));

2694

goto T854;

2695

T854:;

2696

{object V468;

2697

base[1]= (V461);

2698

vs_top=(vs_base=base+1)+1;

2699

Llast();

2700

vs_top=sup;

2701

V468= vs_base[0];

2702

(V462)->c.c_cdr = (V468);}

2703

goto T848;

2704

T848:;

2705

{object V469 = CMPcar((V462));

2706

VMR45(V469)}

2707

base[0]=base[0];

2708

return Cnil;

2709

}

2710

/* function definition for MAKE-DEFAULT-INITARGS-FORM-LIST */

2711

2712

static void L49()

2713

{register object *base=vs_base;

2714

2715

vs_check;

2716

{object V470;

2717

object V471;

2718

object V472;

2719

if(vs_top-vs_base<2) too_few_arguments();

2720

if(vs_top-vs_base>3) too_many_arguments();

2721

V470=(base[0]);

2722

V471=(base[1]);

2723

vs_base=vs_base+2;

2724

if(vs_base>=vs_top){vs_top=sup;goto T863;}

2725

V472=(base[2]);

2726

vs_top=sup;

2727

goto T864;

2728

goto T863;

2729

T863:;

2730

V472= Ct;

2731

goto T864;

2732

T864:;

2733

{object V473;

2734

object V474;

2735

object V475;

2736

object V476;

2737

2738

V473= make_cons(Cnil,Cnil);

2739

base[3]= (V470);

2740

vs_top=(vs_base=base+3)+1;

2741

(void) (*Lnk306)(Lclptr306);

2742

vs_top=sup;

2743

V474= vs_base[0];

2744

base[4]= (V470);

2745

vs_top=(vs_base=base+4)+1;

2746

(void) (*Lnk307)(Lclptr307);

2747

vs_top=sup;

2748

V480= vs_base[0];

2749

{object V478;

2750

object V479= V480;

2751

if(V479==Cnil){

2752

V476= Cnil;

2753

goto T869;}

2754

base[3]=V478=MMcons(Cnil,Cnil);

2755

goto T870;

2756

T870:;

2757

base[5]= (V479->c.c_car);

2758

vs_top=(vs_base=base+5)+1;

2759

(void) (*Lnk308)(Lclptr308);

2760

vs_top=sup;

2761

V484= vs_base[0];

2762

{object V482;

2763

object V483= V484;

2764

if(V483==Cnil){

2765

(V478->c.c_cdr)= Cnil;

2766

goto T873;}

2767

base[4]=V482=MMcons(Cnil,Cnil);

2768

goto T874;

2769

T874:;

2770

(V482->c.c_car)= make_cons((V483->c.c_car),(V479->c.c_car));

2771

if((V483=MMcdr(V483))==Cnil){

2772

(V478->c.c_cdr)= base[4];

2773

goto T873;}

2774

V482=MMcdr(V482)=MMcons(Cnil,Cnil);

2775

goto T874;}

2776

goto T873;

2777

T873:;

2778

while(MMcdr(V478)!=Cnil)V478=MMcdr(V478);

2779

if((V479=MMcdr(V479))==Cnil){

2780

base[3]=base[3]->c.c_cdr;

2781

V476= base[3];

2782

goto T869;}

2783

goto T870;}

2784

goto T869;

2785

T869:;

2786

V475= (V471);

2787

V477= Cnil;

2788

{register object V486;

2789

object V487;

2790

V486= (V475);

2791

V487= CMPcar((V486));

2792

goto T882;

2793

T882:;

2794

if(!(((V486))==Cnil)){

2795

goto T883;}

2796

goto T878;

2797

goto T883;

2798

T883:;

2799

{object V488;

2800

{register object x= (V487),V490= (V476);

2801

while(V490!=Cnil)

2802

if(eql(x,V490->c.c_car->c.c_car) &&V490->c.c_car != Cnil){

2803

V489= (V490->c.c_car);

2804

goto T889;

2805

}else V490=V490->c.c_cdr;

2806

V489= Cnil;}

2807

goto T889;

2808

T889:;

2809

V488= CMPcdr(V489);

2810

base[5]= (V488);

2811

base[6]= (V477);

2812

vs_top=(vs_base=base+5)+2;

2813

Ladjoin();

2814

vs_top=sup;

2815

V477= vs_base[0];}

2816

V486= CMPcdr((V486));

2817

V487= CMPcar((V486));

2818

goto T882;}

2819

goto T878;

2820

T878:;

2821

{register object V491;

2822

2823

V491= (V474);

2824

V492= CMPcar((V491));

2825

goto T902;

2826

T902:;

2827

if(!(((V491))==Cnil)){

2828

goto T903;}

2829

goto T898;

2830

goto T903;

2831

T903:;

2832

{register object V493;

2833

2834

object V495;

2835

V493= CMPcar((V492));

2836

{register object x= (V493),V497= (V476);

2837

while(V497!=Cnil)

2838

if(eql(x,V497->c.c_car->c.c_car) &&V497->c.c_car != Cnil){

2839

V496= (V497->c.c_car);

2840

goto T910;

2841

}else V497=V497->c.c_cdr;

2842

V496= Cnil;}

2843

goto T910;

2844

T910:;

2845

V494= CMPcdr(V496);

2846

V495= CMPcadr((V492));

2847

{register object x= (V494),V498= (V477);

2848

while(V498!=Cnil)

2849

if(eql(x,V498->c.c_car)){

2850

goto T907;

2851

}else V498=V498->c.c_cdr;}

2852

V499= list(2,VV[122],(V495));

2853

V500= list(2,/* INLINE-ARGS */V499,list(2,VV[161],(V493)));

2854

(void)((*(LnkLI309))(/* INLINE-ARGS */V500,(V473)));

2855

V475= make_cons(V493,(V475));

2856

V477= make_cons(V494,(V477));}

2857

goto T907;

2858

T907:;

2859

V491= CMPcdr((V491));

2860

V492= CMPcar((V491));

2861

goto T902;}

2862

goto T898;

2863

T898:;

2864

if(((V472))==Cnil){

2865

goto T923;}

2866

V503= list(3,VV[162],(V470),(VFUN_NARGS=3,(*(LnkLI39))((V470),(V475),Cnil)));

2867

V504= make_cons(/* INLINE-ARGS */V503,Cnil);

2868

(void)((*(LnkLI309))(/* INLINE-ARGS */V504,(V473)));

2869

goto T923;

2870

T923:;

2871

(void)((*(LnkLI309))(VV[163],(V473)));

2872

base[3]= CMPcar((V473));

2873

base[4]= (V475);

2874

vs_top=(vs_base=base+3)+2;

2875

return;}

2876

}

2877

}

2878

/* function definition for MAKE-SHARED-INITIALIZE-FORM-LIST */

2879

2880

static void L50()

2881

{register object *base=vs_base;

2882

2883

vs_check;

2884

{object V505;

2885

object V506;

2886

object V507;

2887

object V508;

2888

check_arg(4);

2889

V505=(base[0]);

2890

V506=(base[1]);

2891

V507=(base[2]);

2892

V508=(base[3]);

2893

vs_top=sup;

2894

goto TTL;

2895

TTL:;

2896

{object V509;

2897

object V510;

2898

object V511;

2899

object V512;

2900

object V513;

2901

object V514;

2902

object V515;

2903

object V516;

2904

V509= make_cons(Cnil,Cnil);

2905

base[12]= (V505);

2906

vs_top=(vs_base=base+12)+1;

2907

(void) (*Lnk295)(Lclptr295);

2908

vs_top=sup;

2909

if((vs_base[0])==Cnil){

2910

goto T932;}

2911

V510= VV[164];

2912

goto T930;

2913

goto T932;

2914

T932:;

2915

base[12]= (V505);

2916

vs_top=(vs_base=base+12)+1;

2917

(void) (*Lnk297)(Lclptr297);

2918

vs_top=sup;

2919

if((vs_base[0])==Cnil){

2920

goto T936;}

2921

V510= VV[165];

2922

goto T930;

2923

goto T936;

2924

T936:;

2925

base[12]= (V505);

2926

vs_top=(vs_base=base+12)+1;

2927

(void) (*Lnk299)(Lclptr299);

2928

vs_top=sup;

2929

if((vs_base[0])==Cnil){

2930

goto T940;}

2931

V510= VV[166];

2932

goto T930;

2933

goto T940;

2934

T940:;

2935

base[12]= VV[167];

2936

vs_top=(vs_base=base+12)+1;

2937

Lerror();

2938

vs_top=sup;

2939

V510= vs_base[0];

2940

goto T930;

2941

T930:;

2942

base[12]= (V505);

2943

vs_top=(vs_base=base+12)+1;

2944

(void) (*Lnk269)(Lclptr269);

2945

vs_top=sup;

2946

V511= vs_base[0];

2947

if(((V508))==Cnil){

2948

goto T948;}

2949

base[12]= ((V511))->v.v_self[12];

2950

base[13]= VV[168];

2951

base[14]= (VV[169]->s.s_dbind);

2952

vs_top=(vs_base=base+12)+3;

2953

(void) (*Lnk310)();

2954

vs_top=sup;

2955

V512= vs_base[0];

2956

goto T946;

2957

goto T948;

2958

T948:;

2959

V512= Cnil;

2960

goto T946;

2961

T946:;

2962

base[12]= (V505);

2963

vs_top=(vs_base=base+12)+1;

2964

(void) (*Lnk307)(Lclptr307);

2965

vs_top=sup;

2966

V513= vs_base[0];

2967

base[13]=VV[311]->s.s_gfdef;

2968

{object V517;

2969

object V518= (V513);

2970

if(V518==Cnil){

2971

V514= Cnil;

2972

goto T955;}

2973

base[12]=V517=MMcons(Cnil,Cnil);

2974

goto T956;

2975

T956:;

2976

base[14]= (V518->c.c_car);

2977

vs_top=(vs_base=base+14)+1;

2978

(void) (*Lnk311)(Lclptr311);

2979

vs_top=sup;

2980

(V517->c.c_car)= vs_base[0];

2981

if((V518=MMcdr(V518))==Cnil){

2982

V514= base[12];

2983

goto T955;}

2984

V517=MMcdr(V517)=MMcons(Cnil,Cnil);

2985

goto T956;}

2986

goto T955;

2987

T955:;

2988

{object V519;

2989

object V520= (V513);

2990

if(V520==Cnil){

2991

V515= Cnil;

2992

goto T959;}

2993

base[12]=V519=MMcons(Cnil,Cnil);

2994

goto T960;

2995

T960:;

2996

{object V522;

2997

V522= VV[170];

2998

{register object V523;

2999

object V524;

3000

base[15]= (V520->c.c_car);

3001

vs_top=(vs_base=base+15)+1;

3002

(void) (*Lnk308)(Lclptr308);

3003

vs_top=sup;

3004

V523= vs_base[0];

3005

V524= CMPcar((V523));

3006

goto T967;

3007

T967:;

3008

if(!(((V523))==Cnil)){

3009

goto T968;}

3010

goto T962;

3011

goto T968;

3012

T968:;

3013

{object V525;

3014

base[15]= (V524);

3015

base[16]= (V506);

3016

vs_top=(vs_base=base+15)+2;

3017

(void) (*Lnk312)();

3018

vs_top=sup;

3019

V525= vs_base[0];

3020

if(((V525))==Cnil){

3021

goto T972;}

3022

V522= (number_compare((V522),(V525))<=0?((V522)):(V525));}

3023

goto T972;

3024

T972:;

3025

V523= CMPcdr((V523));

3026

V524= CMPcar((V523));

3027

goto T967;}

3028

goto T962;

3029

T962:;

3030

(V519->c.c_car)= make_cons((V520->c.c_car),(V522));}

3031

if((V520=MMcdr(V520))==Cnil){

3032

V515= base[12];

3033

goto T959;}

3034

V519=MMcdr(V519)=MMcons(Cnil,Cnil);

3035

goto T960;}

3036

goto T959;

3037

T959:;

3038

base[12]= (V515);

3039

base[13]= (VV[313]->s.s_gfdef);

3040

base[14]= VV[171];

3041

base[15]= (VV[207]->s.s_gfdef);

3042

vs_top=(vs_base=base+12)+4;

3043

(void) (*Lnk314)();

3044

vs_top=sup;

3045

V516= vs_base[0];

3046

{long V526;

3047

V526= 0;

3048

{register object V527;

3049

3050

V527= (V516);

3051

V528= CMPcar((V527));

3052

goto T994;

3053

T994:;

3054

if(!(((V527))==Cnil)){

3055

goto T995;}

3056

goto T989;

3057

goto T995;

3058

T995:;

3059

{object V529;

3060

object V530;

3061

3062

V529= CMPcar((V528));

3063

base[15]= (V529);

3064

vs_top=(vs_base=base+15)+1;

3065

(void) (*Lnk311)(Lclptr311);

3066

vs_top=sup;

3067

V530= vs_base[0];

3068

V532= CMPcdr((V528));

3069

V533 = CMPmake_fixnum(V526);

3070

V534= number_minus(/* INLINE-ARGS */V532,V533);

3071

V531= fix(one_plus(/* INLINE-ARGS */V534));

3072

if(eql(CMPcdr((V528)),VV[170])){

3073

goto T999;}

3074

{object V535;

3075

base[16]= (V530);

3076

base[17]= (V514);

3077

vs_top=(vs_base=base+16)+2;

3078

(void) (*Lnk312)();

3079

vs_top=sup;

3080

V536= vs_base[0];

3081

V535= one_plus(V536);

3082

if(!((V531)>0)){

3083

goto T1013;}

3084

V538 = CMPmake_fixnum((long)(2)*(V531));

3085

V539= list(2,VV[172],V538);

3086

V537= make_cons(/* INLINE-ARGS */V539,Cnil);

3087

goto T1011;

3088

goto T1013;

3089

T1013:;

3090

V537= Cnil;

3091

goto T1011;

3092

T1011:;

3093

V540= list(3,VV[173],(V535),(V529));

3094

V541= make_cons(/* INLINE-ARGS */V540,Cnil);

3095

V542= append(V537,/* INLINE-ARGS */V541);

3096

(void)((*(LnkLI309))(/* INLINE-ARGS */V542,(V509)));}

3097

V526= (long)(V526)+(V531);}

3098

goto T999;

3099

T999:;

3100

V527= CMPcdr((V527));

3101

V528= CMPcar((V527));

3102

goto T994;}}

3103

goto T989;

3104

T989:;

3105

{register object V543;

3106

object V544;

3107

V543= (V516);

3108

V544= CMPcar((V543));

3109

goto T1025;

3110

T1025:;

3111

if(!(((V543))==Cnil)){

3112

goto T1026;}

3113

goto T1021;

3114

goto T1026;

3115

T1026:;

3116

{register object V545;

3117

object V546;

3118

V545= CMPcar((V544));

3119

base[15]= (V545);

3120

vs_top=(vs_base=base+15)+1;

3121

(void) (*Lnk311)(Lclptr311);

3122

vs_top=sup;

3123

V546= vs_base[0];

3124

if(!(eql(CMPcdr((V544)),VV[170]))){

3125

goto T1030;}

3126

if(((V507))==(Ct)){

3127

goto T1034;}

3128

{register object x= (V546),V547= (V507);

3129

while(V547!=Cnil)

3130

if(eql(x,V547->c.c_car)){

3131

goto T1039;

3132

}else V547=V547->c.c_cdr;

3133

goto T1030;}

3134

goto T1039;

3135

T1039:;

3136

goto T1034;

3137

T1034:;

3138

{object V548;

3139

object V549;

3140

object V550;

3141

3142

3143

base[20]= (V545);

3144

vs_top=(vs_base=base+20)+1;

3145

(void) (*Lnk315)(Lclptr315);

3146

vs_top=sup;

3147

V548= vs_base[0];

3148

base[20]= (V545);

3149

vs_top=(vs_base=base+20)+1;

3150

(void) (*Lnk316)(Lclptr316);

3151

vs_top=sup;

3152

V549= vs_base[0];

3153

if(((V510))==(VV[164])){

3154

goto T1046;}

3155

base[20]= (V545);

3156

vs_top=(vs_base=base+20)+1;

3157

(void) (*Lnk317)(Lclptr317);

3158

vs_top=sup;

3159

V550= vs_base[0];

3160

goto T1044;

3161

goto T1046;

3162

T1046:;

3163

V550= Cnil;

3164

goto T1044;

3165

T1044:;

3166

base[20]= (V546);

3167

base[21]= (V514);

3168

vs_top=(vs_base=base+20)+2;

3169

(void) (*Lnk312)();

3170

vs_top=sup;

3171

V553= vs_base[0];

3172

V551= one_plus(V553);

3173

if(((V549))!=Cnil){

3174

goto T1055;}

3175

V552= Cnil;

3176

goto T1053;

3177

goto T1055;

3178

T1055:;

3179

base[20]= (V548);

3180

vs_top=(vs_base=base+20)+1;

3181

Lconstantp();

3182

vs_top=sup;

3183

if((vs_base[0])==Cnil){

3184

goto T1058;}

3185

{object V554;

3186

V554= (

3187

(type_of((V549)) == t_sfun ?(*(((V549))->sfn.sfn_self)):

3188

(fcall.argd=0,type_of((V549))==t_vfun) ?

3189

(*(((V549))->sfn.sfn_self)):

3190

(fcall.fun=((V549)),fcalln))());

3191

if(((V508))==Cnil){

3192

goto T1063;}

3193

if(!(type_of((V550))==t_fixnum||type_of((V550))==t_bignum)){

3194

goto T1063;}

3195

(void)((((V512))->v.v_self[fix((V550))]=((V554))));

3196

V552= Cnil;

3197

goto T1053;

3198

goto T1063;

3199

T1063:;

3200

V555= list(2,VV[174],(V554));

3201

V552= list(2,/* INLINE-ARGS */V555,list(3,VV[173],(V551),(V545)));

3202

goto T1053;}

3203

goto T1058;

3204

T1058:;

3205

base[20]= (V545);

3206

vs_top=(vs_base=base+20)+1;

3207

(void) (*Lnk316)(Lclptr316);

3208

vs_top=sup;

3209

V556= vs_base[0];

3210

V557= list(2,VV[122],V556);

3211

V552= list(2,/* INLINE-ARGS */V557,list(3,VV[173],(V551),(V545)));

3212

goto T1053;

3213

T1053:;

3214

if(((V508))!=Cnil){

3215

goto T1072;}

3216

if(((V552))==Cnil){

3217

goto T1072;}

3218

V559 = CMPmake_fixnum((long)length((V552)));

3219

V560= list(4,VV[175],(V551),(V545),V559);

3220

V558= make_cons(/* INLINE-ARGS */V560,Cnil);

3221

goto T1070;

3222

goto T1072;

3223

T1072:;

3224

V558= Cnil;

3225

goto T1070;

3226

T1070:;

3227

V561= append(V558,(V552));

3228

(void)((*(LnkLI309))(/* INLINE-ARGS */V561,(V509)));}}

3229

goto T1030;

3230

T1030:;

3231

V543= CMPcdr((V543));

3232

V544= CMPcar((V543));

3233

goto T1025;}

3234

goto T1021;

3235

T1021:;

3236

base[12]= CMPcar((V509));

3237

base[13]= (V512);

3238

vs_top=(vs_base=base+12)+2;

3239

return;}

3240

}

3241

}

3242

/* local entry for function GET-PV-CELL-FOR-CLASS */

3243

3244

static object LI51(V563)

3245

3246

3247

{ VMB48 VMS48 VMV48

3248

goto TTL;

3249

TTL:;

3250

{object V564;

3251

object V565;

3252

3253

base[4]=VV[311]->s.s_gfdef;

3254

base[5]= (V563);

3255

vs_top=(vs_base=base+5)+1;

3256

(void) (*Lnk307)(Lclptr307);

3257

vs_top=sup;

3258

V569= vs_base[0];

3259

{object V567;

3260

object V568= V569;

3261

if(V568==Cnil){

3262

V564= Cnil;

3263

goto T1083;}

3264

base[3]=V567=MMcons(Cnil,Cnil);

3265

goto T1084;

3266

T1084:;

3267

base[5]= (V568->c.c_car);

3268

vs_top=(vs_base=base+5)+1;

3269

(void) (*Lnk311)(Lclptr311);

3270

vs_top=sup;

3271

(V567->c.c_car)= vs_base[0];

3272

if((V568=MMcdr(V568))==Cnil){

3273

V564= base[3];

3274

goto T1083;}

3275

V567=MMcdr(V567)=MMcons(Cnil,Cnil);

3276

goto T1084;}

3277

goto T1083;

3278

T1083:;

3279

V570= make_cons(Cnil,(V564));

3280

V565= make_cons(/* INLINE-ARGS */V570,Cnil);

3281

base[3]= (V563);

3282

base[4]= (VV[176]->s.s_dbind);

3283

vs_top=(vs_base=base+3)+2;

3284

Lgethash();

3285

vs_top=sup;

3286

V566= vs_base[0];

3287

if(((V566))==Cnil){

3288

goto T1094;}

3289

if(equal((V565),STREF(object,(V566),8))){

3290

goto T1093;}

3291

goto T1094;

3292

T1094:;

3293

V566= (VFUN_NARGS=2,(*(LnkLI318))(VV[178],(V565)));

3294

{object V572;

3295

V572= (VV[176]->s.s_dbind);

3296

base[3]= V563;

3297

base[4]= (V572);

3298

base[5]= V566;

3299

vs_top=(vs_base=base+3)+3;

3300

siLhash_set();

3301

vs_top=sup;}

3302

goto T1093;

3303

T1093:;

3304

base[3]= (V563);

3305

vs_top=(vs_base=base+3)+1;

3306

(void) (*Lnk269)(Lclptr269);

3307

vs_top=sup;

3308

V574= vs_base[0];

3309

{object V575 = (*(LnkLI319))((V566),V574);

3310

VMR48(V575)}}

3311

base[0]=base[0];

3312

return Cnil;

3313

}

3314

/* function definition for INITIALIZE-INSTANCE-SIMPLE-FUNCTION */

3315

3316

static void L52()

3317

{register object *base=vs_base;

3318

3319

vs_check;

3320

{object V576;

3321

object V577;

3322

object V578;

3323

object V579;

3324

check_arg(4);

3325

V576=(base[0]);

3326

V577=(base[1]);

3327

V578=(base[2]);

3328

V579=(base[3]);

3329

vs_top=sup;

3330

goto TTL;

3331

TTL:;

3332

{object V580;

3333

object V581;

3334

3335

V580= (*(LnkLI320))((V578));

3336

V581= STREF(object,(V577),0);

3337

base[7]= CMPcar((V581));

3338

vs_top=(vs_base=base+7)+1;

3339

(void) (*Lnk255)(Lclptr255);

3340

vs_top=sup;

3341

V583= vs_base[0];

3342

V582= listA(3,(V576),V583,CMPcdr((V581)));

3343

if(((VV[179]->s.s_dbind))!=Cnil){

3344

goto T1111;}

3345

base[7]= (V582);

3346

base[8]= (VV[180]->s.s_dbind);

3347

vs_top=(vs_base=base+7)+2;

3348

Lgethash();

3349

vs_top=sup;

3350

if((vs_base[0])==Cnil){

3351

goto T1112;}

3352

goto T1111;

3353

T1111:;

3354

{object V584;

3355

object V585;

3356

base[7]= (V580);

3357

base[8]= (V579);

3358

vs_top=(vs_base=base+7)+2;

3359

(void) (*Lnk321)();

3360

if(vs_base>=vs_top){vs_top=sup;goto T1121;}

3361

V584= vs_base[0];

3362

vs_base++;

3363

if(vs_base>=vs_top){vs_top=sup;goto T1122;}

3364

V585= vs_base[0];

3365

vs_top=sup;

3366

goto T1123;

3367

goto T1121;

3368

T1121:;

3369

V584= Cnil;

3370

goto T1122;

3371

T1122:;

3372

V585= Cnil;

3373

goto T1123;

3374

T1123:;

3375

{register object V586;

3376

{register object x= (V584),V587= (VV[181]->s.s_dbind);

3377

while(V587!=Cnil)

3378

if(equal(x,V587->c.c_car->c.c_car) &&V587->c.c_car != Cnil){

3379

V586= (V587->c.c_car);

3380

goto T1124;

3381

}else V587=V587->c.c_cdr;

3382

V586= Cnil;}

3383

goto T1124;

3384

T1124:;

3385

{object V589;

3386

V589= (VV[180]->s.s_dbind);

3387

base[7]= V582;

3388

base[8]= (V589);

3389

base[9]= Ct;

3390

vs_top=(vs_base=base+7)+3;

3391

siLhash_set();

3392

vs_top=sup;}

3393

if(((V586))==Cnil){

3394

goto T1132;}

3395

{object V592;

3396

base[8]= make_cons((V582),Cnil);

3397

base[9]= CMPcdddr((V586));

3398

base[10]= VV[12];

3399

base[11]= (VV[251]->s.s_gfdef);

3400

vs_top=(vs_base=base+8)+4;

3401

(void) (*Lnk322)();

3402

vs_top=sup;

3403

V592= vs_base[0];

3404

(CMPcddr(V586))->c.c_cdr = (V592);

3405

(void)(CMPcddr(V586));

3406

goto T1130;}

3407

goto T1132;

3408

T1132:;

3409

V586= listA(4,(V584),Cnil,Cnil,make_cons((V582),Cnil));{object V593;

3410

V593= (VV[181]->s.s_dbind);

3411

V594= make_cons((V586),Cnil);

3412

(VV[181]->s.s_dbind)= nconc(V593,/* INLINE-ARGS */V594);}

3413

goto T1130;

3414

T1130:;

3415

if(((VV[182]->s.s_dbind))!=Cnil){

3416

goto T1143;}

3417

if((CMPcadr((V586)))!=Cnil){

3418

goto T1143;}

3419

{object V596;

3420

base[8]= CMPcar((V586));

3421

vs_top=(vs_base=base+8)+1;

3422

(void) (*Lnk323)();

3423

vs_top=sup;

3424

V596= vs_base[0];

3425

(CMPcdr(V586))->c.c_car = (V596);

3426

(void)(CMPcdr(V586));}

3427

goto T1143;

3428

T1143:;

3429

if((CMPcadr((V586)))==Cnil){

3430

goto T1152;}

3431

base[7]= CMPcadr((V586));

3432

{object V597;

3433

V597= (V585);

3434

vs_top=base+8;

3435

while(V597!=Cnil)

3436

{vs_push((V597)->c.c_car);V597=(V597)->c.c_cdr;}

3437

vs_base=base+8;}

3438

{object _funobj = base[7];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))

3439

(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);

3440

else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();

3441

else super_funcall_no_event(_funobj);}

3442

return;

3443

goto T1152;

3444

T1152:;

3445

base[7]= list(3,VV[138],(V580),(V579));

3446

vs_top=(vs_base=base+7)+1;

3447

return;}}

3448

goto T1112;

3449

T1112:;

3450

base[7]= list(3,VV[138],(V580),(V579));

3451

vs_top=(vs_base=base+7)+1;

3452

return;}

3453

}

3454

}

3455

/* local entry for function LOAD-PRECOMPILED-IIS-ENTRY */

3456

3457

static object LI53(V602,V603,V604,V605)

3458

3459

object V602;object V603;object V604;object V605;

3460

{ VMB50 VMS50 VMV50

3461

goto TTL;

3462

TTL:;

3463

{object V606;

3464

{register object x= (V602),V607= (VV[181]->s.s_dbind);

3465

while(V607!=Cnil)

3466

if(equal(x,V607->c.c_car->c.c_car) &&V607->c.c_car != Cnil){

3467

V606= (V607->c.c_car);

3468

goto T1156;

3469

}else V607=V607->c.c_cdr;

3470

V606= Cnil;}

3471

goto T1156;

3472

T1156:;

3473

if(((V606))!=Cnil){

3474

goto T1157;}

3475

V606= listA(4,(V602),Cnil,Cnil,Cnil);{object V608;

3476

V608= (VV[181]->s.s_dbind);

3477

V609= make_cons((V606),Cnil);

3478

(VV[181]->s.s_dbind)= nconc(V608,/* INLINE-ARGS */V609);}

3479

goto T1157;

3480

T1157:;

3481

(CMPcdr(V606))->c.c_car = V603;

3482

(void)(CMPcdr(V606));

3483

(CMPcddr(V606))->c.c_car = V604;

3484

(void)(CMPcddr(V606));

3485

{register object V614;

3486

3487

V614= (V605);

3488

V615= CMPcar((V614));

3489

goto T1171;

3490

T1171:;

3491

if(!(((V614))==Cnil)){

3492

goto T1172;}

3493

goto T1167;

3494

goto T1172;

3495

T1172:;

3496

{register object V616;

3497

3498

3499

V616= (V615);

3500

V617= (VV[180]->s.s_dbind);

3501

V618= Ct;

3502

base[1]= (V616);

3503

base[2]= (V617);

3504

base[3]= (V618);

3505

vs_top=(vs_base=base+1)+3;

3506

siLhash_set();

3507

vs_top=sup;}

3508

V614= CMPcdr((V614));

3509

V615= CMPcar((V614));

3510

goto T1171;}

3511

goto T1167;

3512

T1167:;

3513

{object V620;

3514

base[1]= (V605);

3515

base[2]= CMPcdddr((V606));

3516

base[3]= VV[12];

3517

base[4]= (VV[251]->s.s_gfdef);

3518

vs_top=(vs_base=base+1)+4;

3519

(void) (*Lnk322)();

3520

vs_top=sup;

3521

V620= vs_base[0];

3522

(CMPcddr(V606))->c.c_cdr = (V620);

3523

(void)(CMPcddr(V606));

3524

{object V621 = (V620);

3525

VMR50(V621)}}}

3526

base[0]=base[0];

3527

return Cnil;

3528

}

3529

/* macro definition for PRECOMPILE-IIS-FUNCTIONS */

3530

3531

static void L54()

3532

{register object *base=vs_base;

3533

3534

vs_check;

3535

check_arg(2);

3536

vs_top=sup;

3537

{object V622=base[0]->c.c_cdr;

3538

if(endp(V622)){

3539

base[2]= Cnil;

3540

} else {

3541

base[2]= (V622->c.c_car);

3542

V622=V622->c.c_cdr;}

3543

if(!endp(V622))invalid_macro_call();}

3544

{register object V623;

3545

V623= small_fixnum(-1);

3546

{register object V625;

3547

3548

V625= Cnil;

3549

V626= Cnil;

3550

{register object V627;

3551

3552

V627= (VV[181]->s.s_dbind);

3553

V628= CMPcar((V627));

3554

goto T1202;

3555

T1202:;

3556

if(!(((V627))==Cnil)){

3557

goto T1203;}

3558

goto T1198;

3559

goto T1203;

3560

T1203:;

3561

if((CMPcaddr((V628)))==Cnil){

3562

goto T1208;}

3563

if(!((CMPcaddr((V628)))==(base[2]))){

3564

goto T1207;}

3565

goto T1208;

3566

T1208:;

3567

if((base[2])==Cnil){

3568

goto T1212;}

3569

{register object V629;

3570

3571

V629= (V628);

3572

V630= base[2];

3573

(CMPcddr((V629)))->c.c_car = (V630);

3574

(void)(CMPcddr((V629)));}

3575

goto T1212;

3576

T1212:;

3577

{register object V631;

3578

V623= number_plus((V623),small_fixnum(1));

3579

V632= list(3,VV[183],base[2],(V623));

3580

V633= list(2,VV[4],CMPcar((V628)));

3581

V634= list(2,VV[186],CMPcar((V628)));

3582

V635= list(2,VV[4],base[2]);

3583

V636= list(5,VV[185],/* INLINE-ARGS */V633,/* INLINE-ARGS */V634,/* INLINE-ARGS */V635,list(2,VV[4],CMPcdddr((V628))));

3584

V631= (*(LnkLI324))(/* INLINE-ARGS */V632,VV[184],/* INLINE-ARGS */V636);

3585

if(((V625))!=Cnil){

3586

goto T1221;}

3587

V626= make_cons((V631),Cnil);

3588

V625= (V626);

3589

goto T1207;

3590

goto T1221;

3591

T1221:;

3592

V638= make_cons((V631),Cnil);

3593

((V626))->c.c_cdr = /* INLINE-ARGS */V638;

3594

V637= (V626);

3595

V626= CMPcdr(V637);}

3596

goto T1207;

3597

T1207:;

3598

V627= CMPcdr((V627));

3599

V628= CMPcar((V627));

3600

goto T1202;}

3601

goto T1198;

3602

T1198:;

3603

V624= (V625);}

3604

base[3]= make_cons(VV[6],V624);

3605

vs_top=(vs_base=base+3)+1;

3606

return;}

3607

}

3608

/* function definition for COMPILE-IIS-FUNCTIONS */

3609

3610

static void L55()

3611

{register object *base=vs_base;

3612

3613

vs_check;

3614

bds_check;

3615

{object V639;

3616

check_arg(1);

3617

V639=(base[0]);

3618

vs_top=sup;

3619

goto TTL;

3620

TTL:;

3621

base[3]= (((V639))==Cnil?Ct:Cnil);

3622

bds_bind(VV[179],Ct);

3623

bds_bind(VV[91],Ct);

3624

bds_bind(VV[182],base[3]);

3625

if(!(((VV[109]->s.s_dbind))==(VV[110]))){

3626

goto T1234;}

3627

vs_base=vs_top;

3628

(void) (*Lnk325)();

3629

bds_unwind1;

3630

bds_unwind1;

3631

bds_unwind1;

3632

return;

3633

goto T1234;

3634

T1234:;

3635

base[4]= Cnil;

3636

vs_top=(vs_base=base+4)+1;

3637

bds_unwind1;

3638

bds_unwind1;

3639

bds_unwind1;

3640

return;

3641

}

3642

}

3643

/* local entry for function INITIALIZE-INSTANCE-SIMPLE */

3644

3645

static object LI56(V644,V645,V646,V647)

3646

3647

object V644;register object V645;object V646;register object V647;

3648

{ VMB53 VMS53 VMV53

3649

goto TTL;

3650

TTL:;

3651

{object V648;

3652

3653

object V650;

3654

object V651;

3655

3656

V648= CMPcar((V644));

3657

if(type_of(V646)==t_structure){

3658

goto T1241;}

3659

goto T1239;

3660

goto T1241;

3661

T1241:;

3662

if(!(((V646)->str.str_def)==(VV[187]))){

3663

goto T1239;}

3664

V650= STREF(object,(V646),4);

3665

goto T1237;

3666

goto T1239;

3667

T1239:;{object V654;

3668

V654= (VV[188]->s.s_dbind);

3669

base[0]= small_fixnum(14);

3670

base[1]= (V646);

3671

vs_top=(vs_base=base+0)+2;

3672

(void) (*Lnk326)();

3673

vs_top=sup;

3674

V655= vs_base[0];

3675

if(!((V654)==(CMPcar(V655)))){

3676

goto T1244;}}

3677

V650= CMPcar(((V646))->cc.cc_turbo[12]);

3678

goto T1237;

3679

goto T1244;

3680

T1244:;

3681

V650= Cnil;

3682

goto T1237;

3683

T1237:;

3684

V651= (*(LnkLI328))((V646));

3685

V649= (V647);

3686

V652= Cnil;

3687

goto T1252;

3688

T1252:;

3689

if(((V645))!=Cnil){

3690

goto T1254;}

3691

goto T1250;

3692

goto T1254;

3693

T1254:;

3694

{register object V656;

3695

{object V657;

3696

V657= CMPcar((V645));

3697

V645= CMPcdr((V645));

3698

V656= (V657);}

3699

{object V658;

3700

V658= CMPcar((V656));

3701

{object V659= (V658);

3702

if((V659!= VV[161]))goto T1262;

3703

V647= make_cons(V652,(V647));

3704

{object V661;

3705

V661= CMPcadr((V656));

3706

V647= make_cons((V661),(V647));

3707

goto T1253;}

3708

goto T1262;

3709

T1262:;

3710

if((V659!= VV[174]))goto T1267;

3711

V652= CMPcadr((V656));

3712

goto T1253;

3713

goto T1267;

3714

T1267:;

3715

if((V659!= VV[122]))goto T1269;

3716

V652= (

3717

V662 = CMPcadr((V656)),

3718

(type_of(V662) == t_sfun ?(*((V662)->sfn.sfn_self)):

3719

(fcall.argd=0,type_of(V662)==t_vfun) ?

3720

(*((V662)->sfn.sfn_self)):

3721

(fcall.fun=(V662),fcalln))());

3722

goto T1253;

3723

goto T1269;

3724

T1269:;

3725

if((V659!= VV[172]))goto T1271;

3726

V663= one_minus(CMPcadr((V656)));

3727

V649= nthcdr(fix(/* INLINE-ARGS */V663),(V649));

3728

{object V664;

3729

V664= CMPcar((V649));

3730

V649= CMPcdr((V649));

3731

V652= (V664);}

3732

goto T1253;

3733

goto T1271;

3734

T1271:;

3735

if((V659!= VV[173]))goto T1278;

3736

{object V665;

3737

V665= ((V648))->v.v_self[fix(CMPcadr((V656)))];

3738

if(!(type_of(V665)==t_fixnum)){

3739

goto T1281;}

3740

(void)(((V650))->v.v_self[fix((V665))]= ((V652)));

3741

goto T1253;

3742

goto T1281;

3743

T1281:;

3744

if(!(type_of(V665)==t_cons)){

3745

goto T1284;}

3746

(V665)->c.c_cdr = V652;

3747

goto T1253;

3748

goto T1284;

3749

T1284:;

3750

{object V671;

3751

V671= CMPcaddr((V656));

3752

V673= ({object _tmp=get(VV[204],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[204])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[204])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;});

3753

(void)((

3754

V674 = V673,

3755

(type_of(V674) == t_sfun ?(*((V674)->sfn.sfn_self)):

3756

(fcall.argd=4,type_of(V674)==t_vfun) ?

3757

(*((V674)->sfn.sfn_self)):

3758

(fcall.fun=(V674),fcalln))(V652,V651,V646,(V671))));

3759

goto T1253;}}

3760

goto T1278;

3761

T1278:;

3762

if((V659!= VV[175]))goto T1289;

3763

{object V675;

3764

V675= ((V648))->v.v_self[fix(CMPcadr((V656)))];

3765

if(!(type_of(V675)==t_fixnum)){

3766

goto T1294;}

3767

if(!((((((V650))->v.v_self[fix((V675))])==(VV[189])?Ct:Cnil))==Cnil)){

3768

goto T1253;}

3769

goto T1291;

3770

goto T1294;

3771

T1294:;

3772

if(!(type_of(V675)==t_cons)){

3773

goto T1297;}

3774

if(!((((CMPcdr((V675)))==(VV[189])?Ct:Cnil))==Cnil)){

3775

goto T1253;}

3776

goto T1291;

3777

goto T1297;

3778

T1297:;

3779

base[0]= (V651);

3780

base[1]= (V646);

3781

base[2]= CMPcaddr((V656));

3782

vs_top=(vs_base=base+0)+3;

3783

(void) (*Lnk213)(Lclptr213);

3784

vs_top=sup;

3785

if((vs_base[0])==Cnil){

3786

goto T1253;}}

3787

goto T1291;

3788

T1291:;

3789

{long V677;

3790

3791

V677= fix(CMPcadddr((V656)));

3792

V678= 0;

3793

goto T1305;

3794

T1305:;

3795

if(!((V678)>=(V677))){

3796

goto T1306;}

3797

goto T1253;

3798

goto T1306;

3799

T1306:;

3800

{object V679;

3801

V679= CMPcar((V645));

3802

V645= CMPcdr((V645));}

3803

V678= (long)(V678)+1;

3804

goto T1305;}

3805

goto T1289;

3806

T1289:;

3807

if((V659!= VV[162]))goto T1316;

3808

if(!(type_of((V647))==t_cons)){

3809

goto T1317;}

3810

V647= make_cons(CMPcar((V647)),CMPcdr((V647)));

3811

goto T1317;

3812

T1317:;

3813

(VV[93]->s.s_dbind)= CMPcadr((V656));

3814

(VV[94]->s.s_dbind)= (V647);

3815

(VV[95]->s.s_dbind)= CMPcaddr((V656));

3816

goto T1253;

3817

goto T1316;

3818

T1316:;

3819

if((V659!= VV[329]))goto T1326;

3820

V649= (V647);

3821

goto T1253;

3822

goto T1326;

3823

T1326:;

3824

base[0]= VV[101];

3825

base[1]= VV[102];

3826

base[2]= VV[103];

3827

base[3]= VV[104];

3828

base[4]= (V658);

3829

base[5]= VV[105];

3830

base[6]= VV[190];

3831

base[7]= VV[107];

3832

base[8]= VV[191];

3833

vs_top=(vs_base=base+0)+9;

3834

(void) (*Lnk281)();

3835

vs_top=sup;}}}

3836

goto T1253;

3837

T1253:;

3838

goto T1252;

3839

goto T1250;

3840

T1250:;

3841

{object V680 = (V647);

3842

VMR53(V680)}}

3843

base[0]=base[0];

3844

return Cnil;

3845

}

3846

/* local entry for function ADD-TO-CVECTOR */

3847

3848

static object LI57(V683,V684)

3849

3850

3851

{ VMB54 VMS54 VMV54

3852

goto TTL;

3853

TTL:;{object V685;

3854

base[0]= (V684);

3855

base[1]= (V683);

3856

vs_top=(vs_base=base+0)+2;

3857

(void) (*Lnk312)();

3858

vs_top=sup;

3859

V685= vs_base[0];

3860

if(V685==Cnil)goto T1338;

3861

{object V686 = V685;

3862

VMR54(V686)}

3863

goto T1338;

3864

T1338:;}

3865

{object V687;

3866

V687= CMPmake_fixnum((long)(((V683))->st.st_fillp));

3867

{register object V689;

3868

3869

long V691;

3870

V689= (V683);

3871

V690= (long)(((V689))->st.st_fillp);

3872

V691= (long)(((V689))->st.st_dim);

3873

if(!((V690)<(V691))){

3874

goto T1348;}

3875

(void)((((V689))->st.st_fillp)=((long)(1)+(V690)));

3876

V692 = CMPmake_fixnum(V690);

3877

(void)(aset1((V689),fix(V692),V684));

3878

goto T1343;

3879

goto T1348;

3880

T1348:;

3881

base[0]= V684;

3882

base[1]= (V689);

3883

vs_top=(vs_base=base+0)+2;

3884

(void) (*Lnk330)();

3885

vs_top=sup;}

3886

goto T1343;

3887

T1343:;

3888

{object V693 = (V687);

3889

VMR54(V693)}}

3890

base[0]=base[0];

3891

return Cnil;

3892

}

3893

/* local entry for function FIRST-FORM-TO-LISP */

3894

3895

static object LI60(V697,V698,V699)

3896

3897

3898

{ VMB55 VMS55 VMV55

3899

goto TTL;

3900

TTL:;

3901

base[0]= (V698);

3902

{object V700;

3903

{object V702;

3904

V702= CMPcdr(CMPcar(V697));

3905

{object V703;

3906

V703= CMPcar(CMPcar(V697));

3907

(V697)->c.c_car = (V702);

3908

V700= (V703);}}

3909

{object V704;

3910

V704= CMPcar((V700));

3911

{object V705= (V704);

3912

if((V705!= VV[161]))goto T1360;

3913

base[1]= CMPcadr((V700));

3914

vs_top=(vs_base=base+1)+1;

3915

L61(base);

3916

vs_top=sup;

3917

V706= vs_base[0];

3918

{object V707 = list(2,VV[192],list(3,VV[57],V706,VV[193]));

3919

VMR55(V707)}

3920

goto T1360;

3921

T1360:;

3922

if((V705!= VV[174]))goto T1363;

3923

base[1]= CMPcadr((V700));

3924

vs_top=(vs_base=base+1)+1;

3925

L61(base);

3926

vs_top=sup;

3927

V708= vs_base[0];

3928

V709= list(3,VV[194],VV[76],V708);

3929

{object V710 = make_cons(/* INLINE-ARGS */V709,Cnil);

3930

VMR55(V710)}

3931

goto T1363;

3932

T1363:;

3933

if((V705!= VV[122]))goto T1366;

3934

base[1]= CMPcadr((V700));

3935

vs_top=(vs_base=base+1)+1;

3936

L61(base);

3937

vs_top=sup;

3938

V711= vs_base[0];

3939

V712= list(3,VV[194],VV[76],list(2,VV[122],list(3,VV[195],VV[186],V711)));

3940

{object V713 = make_cons(/* INLINE-ARGS */V712,Cnil);

3941

VMR55(V713)}

3942

goto T1366;

3943

T1366:;

3944

if((V705!= VV[172]))goto T1369;

3945

{object V715;

3946

V715= one_minus(CMPcadr((V700)));

3947

{object V716= (V715);

3948

if(!eql(V716,VV[197]))goto T1372;

3949

V714= VV[198];

3950

goto T1370;

3951

goto T1372;

3952

T1372:;

3953

if(!eql(V716,VV[199]))goto T1373;

3954

V714= VV[200];

3955

goto T1370;

3956

goto T1373;

3957

T1373:;

3958

V714= list(2,VV[201],(V715));}}

3959

goto T1370;

3960

T1370:;

3961

{object V717 = list(2,list(3,VV[194],VV[196],append(V714,VV[202])),VV[203]);

3962

VMR55(V717)}

3963

goto T1369;

3964

T1369:;

3965

if((V705!= VV[173]))goto T1374;

3966

{object V718;

3967

object V719;

3968

object V720;

3969

V718= CMPcadr((V700));

3970

V719= ((V699))->v.v_self[fix((V718))];

3971

base[4]= CMPcaddr((V700));

3972

vs_top=(vs_base=base+4)+1;

3973

L61(base);

3974

vs_top=sup;

3975

V721= vs_base[0];

3976

V720= list(3,VV[62],list(4,VV[204],VV[111],VV[129],V721),VV[76]);

3977

if(((VV[205]->s.s_dbind))==Cnil){

3978

goto T1381;}

3979

if(!(type_of(V719)==t_fixnum)){

3980

goto T1384;}

3981

base[4]= (V719);

3982

vs_top=(vs_base=base+4)+1;

3983

L61(base);

3984

vs_top=sup;

3985

V723= vs_base[0];

3986

V724= list(3,VV[62],list(3,VV[206],VV[58],V723),VV[76]);

3987

{object V725 = make_cons(/* INLINE-ARGS */V724,Cnil);

3988

VMR55(V725)}

3989

goto T1384;

3990

T1384:;

3991

if(!(type_of(V719)==t_cons)){

3992

goto T1389;}

3993

base[4]= (V719);

3994

vs_top=(vs_base=base+4)+1;

3995

L61(base);

3996

vs_top=sup;

3997

V726= vs_base[0];

3998

V727= list(3,VV[62],list(2,VV[207],V726),VV[76]);

3999

{object V728 = make_cons(/* INLINE-ARGS */V727,Cnil);

4000

VMR55(V728)}

4001

goto T1389;

4002

T1389:;

4003

{object V729 = make_cons((V720),Cnil);

4004

VMR55(V729)}

4005

goto T1381;

4006

T1381:;

4007

base[4]= (V718);

4008

vs_top=(vs_base=base+4)+1;

4009

L61(base);

4010

vs_top=sup;

4011

V730= vs_base[0];

4012

if(!(type_of(V719)==t_fixnum)){

4013

goto T1397;}

4014

V731= VV[210];

4015

goto T1395;

4016

goto T1397;

4017

T1397:;

4018

if(!(type_of(V719)==t_cons)){

4019

goto T1400;}

4020

V731= VV[211];

4021

goto T1395;

4022

goto T1400;

4023

T1400:;

4024

V731= VV[212];

4025

goto T1395;

4026

T1395:;

4027

V733= list(7,VV[208],VV[209],VV[58],V730,VV[76],(V720),V731);

4028

{object V734 = make_cons(/* INLINE-ARGS */V733,Cnil);

4029

VMR55(V734)}}

4030

goto T1374;

4031

T1374:;

4032

if((V705!= VV[175]))goto T1402;

4033

{object V735;

4034

object V736;

4035

object V737;

4036

V735= CMPcadr((V700));

4037

V736= ((V699))->v.v_self[fix((V735))];

4038

base[4]= CMPcaddr((V700));

4039

vs_top=(vs_base=base+4)+1;

4040

L61(base);

4041

vs_top=sup;

4042

V738= vs_base[0];

4043

V737= list(4,VV[213],VV[111],VV[129],V738);

4044

if(((VV[205]->s.s_dbind))==Cnil){

4045

goto T1410;}

4046

if(!(type_of(V736)==t_fixnum)){

4047

goto T1413;}

4048

base[4]= (V736);

4049

vs_top=(vs_base=base+4)+1;

4050

L61(base);

4051

vs_top=sup;

4052

V741= vs_base[0];

4053

V742= list(3,VV[206],VV[58],V741);

4054

V739= list(2,VV[214],list(3,VV[55],/* INLINE-ARGS */V742,list(2,VV[4],(VV[169]->s.s_dbind))));

4055

goto T1408;

4056

goto T1413;

4057

T1413:;

4058

if(!(type_of(V736)==t_cons)){

4059

goto T1418;}

4060

base[4]= (V736);

4061

vs_top=(vs_base=base+4)+1;

4062

L61(base);

4063

vs_top=sup;

4064

V743= vs_base[0];

4065

V744= list(2,VV[207],V743);

4066

V739= list(2,VV[214],list(3,VV[55],/* INLINE-ARGS */V744,list(2,VV[4],(VV[169]->s.s_dbind))));

4067

goto T1408;

4068

goto T1418;

4069

T1418:;

4070

V739= (V737);

4071

goto T1408;

4072

goto T1410;

4073

T1410:;

4074

base[4]= (V735);

4075

vs_top=(vs_base=base+4)+1;

4076

L61(base);

4077

vs_top=sup;

4078

V745= vs_base[0];

4079

{object V747;

4080

V747= ((V699))->v.v_self[fix((V735))];

4081

if(!(type_of((V747))==t_fixnum)){

4082

goto T1427;}

4083

V746= VV[210];

4084

goto T1424;

4085

goto T1427;

4086

T1427:;

4087

if(!(type_of((V747))==t_cons)){

4088

goto T1430;}

4089

V746= VV[211];

4090

goto T1424;

4091

goto T1430;

4092

T1430:;

4093

V746= VV[212];}

4094

goto T1424;

4095

T1424:;

4096

V739= list(6,VV[215],VV[209],VV[58],V745,(V737),V746);

4097

goto T1408;

4098

T1408:;

4099

{register object V749;

4100

V749= make_cons(Cnil,Cnil);

4101

{long V750;

4102

4103

V750= fix(CMPcadddr((V700)));

4104

V751= 0;

4105

goto T1437;

4106

T1437:;

4107

if(!((V751)>=(V750))){

4108

goto T1438;}

4109

V748= CMPcar((V749));

4110

goto T1432;

4111

goto T1438;

4112

T1438:;

4113

V752= (*(LnkLI331))((V697),base[0],(V699));

4114

(void)((*(LnkLI309))(/* INLINE-ARGS */V752,(V749)));

4115

V751= (long)(V751)+1;

4116

goto T1437;}}

4117

goto T1432;

4118

T1432:;

4119

V753= listA(3,VV[54],V739,V748);

4120

{object V754 = make_cons(/* INLINE-ARGS */V753,Cnil);

4121

VMR55(V754)}}

4122

goto T1402;

4123

T1402:;

4124

if((V705!= VV[162]))goto T1445;

4125

base[1]= CMPcadr((V700));

4126

vs_top=(vs_base=base+1)+1;

4127

L61(base);

4128

vs_top=sup;

4129

V755= vs_base[0];

4130

V756= list(3,VV[194],VV[93],V755);

4131

base[1]= CMPcaddr((V700));

4132

vs_top=(vs_base=base+1)+1;

4133

L61(base);

4134

vs_top=sup;

4135

V757= vs_base[0];

4136

{object V758 = list(4,VV[216],/* INLINE-ARGS */V756,VV[217],list(3,VV[194],VV[95],V757));

4137

VMR55(V758)}

4138

goto T1445;

4139

T1445:;

4140

if((V705!= VV[329]))goto T1450;

4141

{object V759 = VV[218];

4142

VMR55(V759)}

4143

goto T1450;

4144

T1450:;

4145

base[1]= VV[101];

4146

base[2]= VV[102];

4147

base[3]= VV[103];

4148

base[4]= VV[104];

4149

base[5]= (V704);

4150

base[6]= VV[105];

4151

base[7]= VV[227];

4152

base[8]= VV[107];

4153

base[9]= VV[228];

4154

vs_top=(vs_base=base+1)+9;

4155

(void) (*Lnk281)();

4156

vs_top=sup;

4157

{object V760 = vs_base[0];

4158

VMR55(V760)}}}}

4159

base[0]=base[0];

4160

return Cnil;

4161

}

4162

/* macro definition for IIS-BODY */

4163

4164

static void L62()

4165

{register object *base=vs_base;

4166

4167

vs_check;

4168

check_arg(2);

4169

vs_top=sup;

4170

{object V761=base[0]->c.c_cdr;

4171

base[2]= V761;}

4172

V763= listA(3,VV[231],VV[232],base[2]);

4173

base[3]= listA(3,VV[52],VV[230],append(VV[229],/* INLINE-ARGS */V763));

4174

vs_top=(vs_base=base+3)+1;

4175

return;

4176

}

4177

/* function definition for FORM-LIST-TO-LISP */

4178

4179

static void L63()

4180

{register object *base=vs_base;

4181

4182

vs_check;

4183

{object V764;

4184

object V765;

4185

check_arg(2);

4186

V764=(base[0]);

4187

V765=(base[1]);

4188

vs_top=sup;

4189

goto TTL;

4190

TTL:;

4191

{register object V766;

4192

4193

4194

object V769;

4195

object V770;

4196

V766= make_cons((V765),Cnil);

4197

base[8]= CMPmake_fixnum((long)length((V765)));

4198

base[9]= small_fixnum(2);

4199

vs_top=(vs_base=base+8)+2;

4200

Lfloor();

4201

vs_top=sup;

4202

base[7]= vs_base[0];

4203

base[8]= VV[233];

4204

base[9]= small_fixnum(0);

4205

base[10]= VV[234];

4206

base[11]= Ct;

4207

vs_top=(vs_base=base+7)+5;

4208

(void) (*Lnk310)();

4209

vs_top=sup;

4210

V767= vs_base[0];

4211

V768= CMPcar((V764));

4212

{register object V771;

4213

V771= make_cons(Cnil,Cnil);

4214

goto T1473;

4215

T1473:;

4216

if((CMPcar((V766)))!=Cnil){

4217

goto T1475;}

4218

V769= CMPcar((V771));

4219

goto T1470;

4220

goto T1475;

4221

T1475:;

4222

V772= (*(LnkLI331))((V766),(V767),(V768));

4223

(void)((*(LnkLI309))(/* INLINE-ARGS */V772,(V771)));

4224

goto T1473;}

4225

goto T1470;

4226

T1470:;

4227

V773 = CMPmake_fixnum((long)length((V767)));

4228

V770= list(2,VV[235],V773);

4229

V774= list(2,VV[238],list(3,VV[239],(V770),VV[222]));

4230

base[7]= list(4,VV[236],VV[237],/* INLINE-ARGS */V774,list(2,VV[186],list(5,VV[236],VV[240],VV[241],make_cons(VV[242],(V769)),VV[193])));

4231

base[9]= (V767);

4232

base[10]= (V770);

4233

vs_top=(vs_base=base+9)+2;

4234

(void) (*Lnk332)();

4235

vs_top=sup;

4236

V775= vs_base[0];

4237

base[8]= list(2,(V764),V775);

4238

vs_top=(vs_base=base+7)+2;

4239

return;}

4240

}

4241

}

4242

/* local entry for function GET-MAKE-INSTANCE-FUNCTION-SYMBOL */

4243

4244

static object LI64(V777)

4245

4246

object V777;

4247

{ VMB58 VMS58 VMV58

4248

goto TTL;

4249

TTL:;

4250

V778= make_cons((V777),Cnil);

4251

(void)((*(LnkLI7))(/* INLINE-ARGS */V778));

4252

{object V779 = (*(LnkLI75))((V777));

4253

VMR58(V779)}

4254

return Cnil;

4255

}

4256

/* local function CONST */

4257

4258

static void L61(base0)

4259

4260

{ register object *base=vs_base;

4261

4262

vs_check;

4263

{object V780;

4264

check_arg(1);

4265

V780=(base[0]);

4266

vs_top=sup;

4267

goto TTL;

4268

TTL:;

4269

if(type_of((V780))==t_fixnum||

4270

type_of((V780))==t_bignum||

4271

type_of((V780))==t_ratio||

4272

type_of((V780))==t_shortfloat||

4273

type_of((V780))==t_longfloat||

4274

type_of((V780))==t_complex){

4275

goto T1486;}

4276

if(!(type_of((V780))==t_character)){

4277

goto T1487;}

4278

goto T1486;

4279

T1486:;

4280

base[1]= (V780);

4281

vs_top=(vs_base=base+1)+1;

4282

return;

4283

goto T1487;

4284

T1487:;

4285

if(!(type_of((V780))==t_symbol)){

4286

goto T1492;}

4287

base[1]= (V780);

4288

vs_top=(vs_base=base+1)+1;

4289

Lsymbol_package();

4290

vs_top=sup;

4291

if((vs_base[0])==Cnil){

4292

goto T1492;}

4293

base[1]= list(2,VV[4],(V780));

4294

vs_top=(vs_base=base+1)+1;

4295

return;

4296

goto T1492;

4297

T1492:;

4298

base[1]= list(3,VV[221],VV[222],(*(LnkLI333))(base0[0],(V780)));

4299

vs_top=(vs_base=base+1)+1;

4300

return;

4301

}

4302

}

4303

/* local function CLOSURE */

4304

4305

static void LC71(base0)

4306

4307

{ register object *base=vs_base;

4308

4309

vs_check;

4310

{object V781;

4311

object V782;

4312

if(vs_top-vs_base<1) too_few_arguments();

4313

V781=(base[0]);

4314

vs_base=vs_base+1;

4315

vs_top[0]=Cnil;

4316

{object *p=vs_top;

4317

for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}

4318

V782=(base[1]);

4319

vs_top=sup;

4320

{object V783;

4321

if(((base0[3]->c.c_car))==Cnil){

4322

goto T1499;}

4323

V783= (VFUN_NARGS=2,(*(LnkLI334))((base0[4]->c.c_car),(base0[3]->c.c_car)));

4324

goto T1497;

4325

goto T1499;

4326

T1499:;

4327

V783= (V781);

4328

goto T1497;

4329

T1497:;

4330

if(!(((V783))==((V781)))){

4331

goto T1501;}

4332

if(!((((((base0[2]->c.c_car))->v.v_self[8])==(Ct)?Ct:Cnil))==Cnil)){

4333

goto T1502;}

4334

goto T1501;

4335

T1501:;

4336

base[2]= (V783);

4337

base[3]= (V782);

4338

vs_top=(vs_base=base+2)+2;

4339

(void) (*Lnk132)();

4340

return;

4341

goto T1502;

4342

T1502:;

4343

{register object V784;

4344

4345

{register object V786;

4346

V786= (base0[6]->c.c_car);

4347

if(!(type_of((V786))==t_cons)){

4348

goto T1510;}

4349

if(!((CMPcar((V786)))==(VV[138]))){

4350

goto T1510;}

4351

V784= (*(LnkLI119))(CMPcadr((V786)),CMPcaddr((V786)),Cnil,(V782));

4352

goto T1508;

4353

goto T1510;

4354

T1510:;

4355

V784= (

4356

(type_of((V786)) == t_sfun ?(*(((V786))->sfn.sfn_self)):

4357

(fcall.argd=2,type_of((V786))==t_vfun) ?

4358

(*(((V786))->sfn.sfn_self)):

4359

(fcall.fun=((V786)),fcalln))(Cnil,(V782)));}

4360

goto T1508;

4361

T1508:;

4362

base[4]=VV[96]->s.s_gfdef;

4363

base[5]= (base0[7]->c.c_car);

4364

{object V787;

4365

V787= (V784);

4366

vs_top=base+6;

4367

while(V787!=Cnil)

4368

{vs_push((V787)->c.c_car);V787=(V787)->c.c_cdr;}

4369

vs_base=base+5;}

4370

(void) (*Lnk96)(Lclptr96);

4371

vs_top=sup;

4372

V785= vs_base[0];

4373

base[4]= (base0[0]->c.c_car);

4374

base[5]= VV[139];

4375

vs_top=(vs_base=base+4)+2;

4376

(void) (*Lnk335)();

4377

vs_top=sup;

4378

if((vs_base[0])==Cnil){

4379

goto T1520;}

4380

(void)((

4381

V788 = STREF(object,(base0[0]->c.c_car),0),

4382

(type_of(V788) == t_sfun ?(*((V788)->sfn.sfn_self)):

4383

(fcall.argd=4,type_of(V788)==t_vfun) ?

4384

(*((V788)->sfn.sfn_self)):

4385

(fcall.fun=(V788),fcalln))(STREF(object,(base0[0]->c.c_car),4),STREF(object,(base0[0]->c.c_car),8),(V785),(V784))));

4386

goto T1517;

4387

goto T1520;

4388

T1520:;

4389

{object V789;

4390

V789= (base0[0]->c.c_car);

4391

{register object V790;

4392

V790= (V789);

4393

base[4]= (V790);

4394

base[5]= VV[140];

4395

vs_top=(vs_base=base+4)+2;

4396

(void) (*Lnk335)();

4397

vs_top=sup;

4398

if((vs_base[0])==Cnil){

4399

goto T1525;}

4400

{object V791;

4401

object V792;

4402

4403

V791= STREF(object,(base0[0]->c.c_car),0);

4404

V792= make_cons((V785),(V784));

4405

V793= STREF(object,(base0[0]->c.c_car),4);

4406

if(((V793))==Cnil){

4407

goto T1533;}

4408

if((CMPcdr((V793)))!=Cnil){

4409

goto T1533;}

4410

(void)((

4411

(type_of((V791)) == t_sfun ?(*(((V791))->sfn.sfn_self)):

4412

(fcall.argd=2,type_of((V791))==t_vfun) ?

4413

(*(((V791))->sfn.sfn_self)):

4414

(fcall.fun=((V791)),fcalln))((V792),CMPcar((V793)))));

4415

goto T1517;

4416

goto T1533;

4417

T1533:;

4418

base[4]= (V791);

4419

base[5]= (V792);

4420

{object V794;

4421

V794= (V793);

4422

vs_top=base+6;

4423

while(V794!=Cnil)

4424

{vs_push((V794)->c.c_car);V794=(V794)->c.c_cdr;}

4425

vs_base=base+5;}

4426

{object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))

4427

(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);

4428

else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();

4429

else super_funcall_no_event(_funobj);}

4430

vs_top=sup;

4431

goto T1517;}

4432

goto T1525;

4433

T1525:;

4434

base[4]= (V790);

4435

vs_top=(vs_base=base+4)+1;

4436

Lfunctionp();

4437

vs_top=sup;

4438

if((vs_base[0])==Cnil){

4439

goto T1541;}

4440

base[4]= (base0[0]->c.c_car);

4441

base[5]= (V785);

4442

{object V795;

4443

V795= (V784);

4444

vs_top=base+6;

4445

while(V795!=Cnil)

4446

{vs_push((V795)->c.c_car);V795=(V795)->c.c_cdr;}

4447

vs_base=base+5;}

4448

{object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))

4449

(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);

4450

else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();

4451

else super_funcall_no_event(_funobj);}

4452

vs_top=sup;

4453

goto T1517;

4454

goto T1541;

4455

T1541:;

4456

base[4]= VV[101];

4457

base[5]= VV[102];

4458

base[6]= VV[141];

4459

base[7]= VV[104];

4460

base[8]= (V789);

4461

base[9]= VV[105];

4462

base[10]= VV[159];

4463

base[11]= VV[107];

4464

base[12]= VV[160];

4465

vs_top=(vs_base=base+4)+9;

4466

(void) (*Lnk281)();

4467

vs_top=sup;}}

4468

goto T1517;

4469

T1517:;

4470

base[4]= (V785);

4471

vs_top=(vs_base=base+4)+1;

4472

return;}}

4473

}

4474

}

4475

/* local function CLOSURE */

4476

4477

static void LC70(base0)

4478

4479

{ register object *base=vs_base;

4480

4481

vs_check;

4482

{object V796;

4483

object V797;

4484

if(vs_top-vs_base<1) too_few_arguments();

4485

V796=(base[0]);

4486

vs_base=vs_base+1;

4487

vs_top[0]=Cnil;

4488

{object *p=vs_top;

4489

for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}

4490

V797=(base[1]);

4491

vs_top=sup;

4492

base[2]= (base0[0]->c.c_car);

4493

base[3]= VV[139];

4494

vs_top=(vs_base=base+2)+2;

4495

(void) (*Lnk335)();

4496

vs_top=sup;

4497

if((vs_base[0])==Cnil){

4498

goto T1558;}

4499

base[2]= STREF(object,(base0[0]->c.c_car),0);

4500

base[3]= STREF(object,(base0[0]->c.c_car),4);

4501

base[4]= STREF(object,(base0[0]->c.c_car),8);

4502

base[5]= (V796);

4503

base[6]= Ct;

4504

base[7]= (V797);

4505

vs_top=(vs_base=base+3)+5;

4506

{object _funobj = base[2];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))

4507

(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);

4508

else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();

4509

else super_funcall_no_event(_funobj);}

4510

return;

4511

goto T1558;

4512

T1558:;

4513

{object V798;

4514

V798= (base0[0]->c.c_car);

4515

{register object V799;

4516

V799= (V798);

4517

base[2]= (V799);

4518

base[3]= VV[140];

4519

vs_top=(vs_base=base+2)+2;

4520

(void) (*Lnk335)();

4521

vs_top=sup;

4522

if((vs_base[0])==Cnil){

4523

goto T1569;}

4524

{object V800;

4525

object V801;

4526

4527

V800= STREF(object,(base0[0]->c.c_car),0);

4528

V801= listA(3,(V796),Ct,(V797));

4529

V802= STREF(object,(base0[0]->c.c_car),4);

4530

if(((V802))==Cnil){

4531

goto T1577;}

4532

if((CMPcdr((V802)))!=Cnil){

4533

goto T1577;}

4534

base[2]= (V801);

4535

base[3]= CMPcar((V802));

4536

vs_top=(vs_base=base+2)+2;

4537

{object _funobj = (V800);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))

4538

(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);

4539

else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();

4540

else super_funcall_no_event(_funobj);}

4541

return;

4542

goto T1577;

4543

T1577:;

4544

base[2]= (V800);

4545

base[3]= (V801);

4546

{object V803;

4547

V803= (V802);

4548

vs_top=base+4;

4549

while(V803!=Cnil)

4550

{vs_push((V803)->c.c_car);V803=(V803)->c.c_cdr;}

4551

vs_base=base+3;}

4552

{object _funobj = base[2];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))

4553

(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);

4554

else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();

4555

else super_funcall_no_event(_funobj);}

4556

return;}

4557

goto T1569;

4558

T1569:;

4559

base[2]= (V799);

4560

vs_top=(vs_base=base+2)+1;

4561

Lfunctionp();

4562

vs_top=sup;

4563

if((vs_base[0])==Cnil){

4564

goto T1587;}

4565

base[2]= (base0[0]->c.c_car);

4566

base[3]= (V796);

4567

base[4]= Ct;

4568

{object V804;

4569

V804= (V797);

4570

vs_top=base+5;

4571

while(V804!=Cnil)

4572

{vs_push((V804)->c.c_car);V804=(V804)->c.c_cdr;}

4573

vs_base=base+3;}

4574

{object _funobj = base[2];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))

4575

(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);

4576

else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();

4577

else super_funcall_no_event(_funobj);}

4578

return;

4579

goto T1587;

4580

T1587:;

4581

base[2]= VV[101];

4582

base[3]= VV[102];

4583

base[4]= VV[141];

4584

base[5]= VV[104];

4585

base[6]= (V798);

4586

base[7]= VV[105];

4587

base[8]= VV[157];

4588

base[9]= VV[107];

4589

base[10]= VV[158];

4590

vs_top=(vs_base=base+2)+9;

4591

(void) (*Lnk281)();

4592

return;}}

4593

}

4594

}

4595

/* local function CLOSURE */

4596

4597

static void LC69(base0)

4598

4599

{ register object *base=vs_base;

4600

4601

vs_check;

4602

{object V805;

4603

object V806;

4604

object V807;

4605

if(vs_top-vs_base<2) too_few_arguments();

4606

V805=(base[0]);

4607

V806=(base[1]);

4608

vs_base=vs_base+2;

4609

vs_top[0]=Cnil;

4610

{object *p=vs_top;

4611

for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}

4612

V807=(base[2]);

4613

vs_top=sup;

4614

{register object V808;

4615

V808= (base0[3]->c.c_car);

4616

if(!(type_of((V808))==t_cons)){

4617

goto T1605;}

4618

if(!((CMPcar((V808)))==(VV[138]))){

4619

goto T1605;}

4620

(void)((*(LnkLI119))(CMPcadr((V808)),CMPcaddr((V808)),(V805),(V807)));

4621

goto T1603;

4622

goto T1605;

4623

T1605:;

4624

(void)((

4625

(type_of((V808)) == t_sfun ?(*(((V808))->sfn.sfn_self)):

4626

(fcall.argd=2,type_of((V808))==t_vfun) ?

4627

(*(((V808))->sfn.sfn_self)):

4628

(fcall.fun=((V808)),fcalln))((V805),(V807))));}

4629

goto T1603;

4630

T1603:;

4631

base[3]= (V805);

4632

vs_top=(vs_base=base+3)+1;

4633

return;

4634

}

4635

}

4636

/* local function CLOSURE */

4637

4638

static void LC68(base0)

4639

4640

{ register object *base=vs_base;

4641

4642

vs_check;

4643

{object V809;

4644

object V810;

4645

if(vs_top-vs_base<1) too_few_arguments();

4646

V809=(base[0]);

4647

vs_base=vs_base+1;

4648

vs_top[0]=Cnil;

4649

{object *p=vs_top;

4650

for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}

4651

V810=(base[1]);

4652

vs_top=sup;

4653

{object V811;

4654

if(((base0[6]->c.c_car))==Cnil){

4655

goto T1611;}

4656

V811= (VFUN_NARGS=2,(*(LnkLI334))((base0[7]->c.c_car),(base0[6]->c.c_car)));

4657

goto T1609;

4658

goto T1611;

4659

T1611:;

4660

V811= (V809);

4661

goto T1609;

4662

T1609:;

4663

if(!(((V811))==((V809)))){

4664

goto T1613;}

4665

if(!((((((base0[5]->c.c_car))->v.v_self[8])==(Ct)?Ct:Cnil))==Cnil)){

4666

goto T1614;}

4667

goto T1613;

4668

T1613:;

4669

base[2]= (V811);

4670

base[3]= (V810);

4671

vs_top=(vs_base=base+2)+2;

4672

(void) (*Lnk132)();

4673

return;

4674

goto T1614;

4675

T1614:;

4676

{register object V812;

4677

object V813;

4678

V812= (

4679

(type_of((base0[4]->c.c_car)) == t_sfun ?(*(((base0[4]->c.c_car))->sfn.sfn_self)):

4680

(fcall.argd=2,type_of((base0[4]->c.c_car))==t_vfun) ?

4681

(*(((base0[4]->c.c_car))->sfn.sfn_self)):

4682

(fcall.fun=((base0[4]->c.c_car)),fcalln))((base0[5]->c.c_car),(base0[0]->c.c_car)));

4683

{object V814;

4684

V814= (base0[1]->c.c_car);

4685

if(!(type_of((V814))==t_cons)){

4686

goto T1623;}

4687

if(!((CMPcar((V814)))==(VV[138]))){

4688

goto T1623;}

4689

V813= (*(LnkLI119))(CMPcadr((V814)),CMPcaddr((V814)),(V812),(V810));

4690

goto T1621;

4691

goto T1623;

4692

T1623:;

4693

V813= (

4694

(type_of((V814)) == t_sfun ?(*(((V814))->sfn.sfn_self)):

4695

(fcall.argd=2,type_of((V814))==t_vfun) ?

4696

(*(((V814))->sfn.sfn_self)):

4697

(fcall.fun=((V814)),fcalln))((V812),(V810)));}

4698

goto T1621;

4699

T1621:;

4700

{object V815;

4701

4702

V815= (base0[3]->c.c_car);

4703

V816= CMPcar((V815));

4704

goto T1631;

4705

T1631:;

4706

if(!(((V815))==Cnil)){

4707

goto T1632;}

4708

goto T1627;

4709

goto T1632;

4710

T1632:;

4711

base[5]= (V816);

4712

base[6]= VV[139];

4713

vs_top=(vs_base=base+5)+2;

4714

(void) (*Lnk335)();

4715

vs_top=sup;

4716

if((vs_base[0])==Cnil){

4717

goto T1639;}

4718

(void)((

4719

V817 = STREF(object,(V816),0),

4720

(type_of(V817) == t_sfun ?(*((V817)->sfn.sfn_self)):

4721

(fcall.argd=5,type_of(V817)==t_vfun) ?

4722

(*((V817)->sfn.sfn_self)):

4723

(fcall.fun=(V817),fcalln))(STREF(object,(V816),4),STREF(object,(V816),8),(V812),Ct,(V813))));

4724

goto T1636;

4725

goto T1639;

4726

T1639:;

4727

base[5]= V816;

4728

base[6]= VV[140];

4729

vs_top=(vs_base=base+5)+2;

4730

(void) (*Lnk335)();

4731

vs_top=sup;

4732

if((vs_base[0])==Cnil){

4733

goto T1644;}

4734

{object V820;

4735

object V821;

4736

object V822;

4737

V820= STREF(object,(V816),0);

4738

V821= listA(3,(V812),Ct,(V813));

4739

V822= STREF(object,(V816),4);

4740

if(((V822))==Cnil){

4741

goto T1652;}

4742

if((CMPcdr((V822)))!=Cnil){

4743

goto T1652;}

4744

(void)((

4745

(type_of((V820)) == t_sfun ?(*(((V820))->sfn.sfn_self)):

4746

(fcall.argd=2,type_of((V820))==t_vfun) ?

4747

(*(((V820))->sfn.sfn_self)):

4748

(fcall.fun=((V820)),fcalln))((V821),CMPcar((V822)))));

4749

goto T1636;

4750

goto T1652;

4751

T1652:;

4752

base[5]= (V820);

4753

base[6]= (V821);

4754

{object V823;

4755

V823= (V822);

4756

vs_top=base+7;

4757

while(V823!=Cnil)

4758

{vs_push((V823)->c.c_car);V823=(V823)->c.c_cdr;}

4759

vs_base=base+6;}

4760

{object _funobj = base[5];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))

4761

(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);

4762

else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();

4763

else super_funcall_no_event(_funobj);}

4764

vs_top=sup;

4765

goto T1636;}

4766

goto T1644;

4767

T1644:;

4768

base[5]= V816;

4769

vs_top=(vs_base=base+5)+1;

4770

Lfunctionp();

4771

vs_top=sup;

4772

if((vs_base[0])==Cnil){

4773

goto T1660;}

4774

base[5]= (V816);

4775

base[6]= (V812);

4776

base[7]= Ct;

4777

{object V824;

4778

V824= (V813);

4779

vs_top=base+8;

4780

while(V824!=Cnil)

4781

{vs_push((V824)->c.c_car);V824=(V824)->c.c_cdr;}

4782

vs_base=base+6;}

4783

{object _funobj = base[5];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))

4784

(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);

4785

else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();

4786

else super_funcall_no_event(_funobj);}

4787

vs_top=sup;

4788

goto T1636;

4789

goto T1660;

4790

T1660:;

4791

base[5]= VV[101];

4792

base[6]= VV[102];

4793

base[7]= VV[141];

4794

base[8]= VV[104];

4795

base[9]= V816;

4796

base[10]= VV[105];

4797

base[11]= VV[146];

4798

base[12]= VV[107];

4799

base[13]= VV[147];

4800

vs_top=(vs_base=base+5)+9;

4801

(void) (*Lnk281)();

4802

vs_top=sup;

4803

goto T1636;

4804

T1636:;

4805

V815= CMPcdr((V815));

4806

V816= CMPcar((V815));

4807

goto T1631;}

4808

goto T1627;

4809

T1627:;

4810

{object V825;

4811

4812

V825= (base0[2]->c.c_car);

4813

V826= CMPcar((V825));

4814

goto T1685;

4815

T1685:;

4816

if(!(((V825))==Cnil)){

4817

goto T1686;}

4818

goto T1681;

4819

goto T1686;

4820

T1686:;

4821

base[5]= (V826);

4822

base[6]= VV[139];

4823

vs_top=(vs_base=base+5)+2;

4824

(void) (*Lnk335)();

4825

vs_top=sup;

4826

if((vs_base[0])==Cnil){

4827

goto T1693;}

4828

(void)((

4829

V827 = STREF(object,(V826),0),

4830

(type_of(V827) == t_sfun ?(*((V827)->sfn.sfn_self)):

4831

(fcall.argd=4,type_of(V827)==t_vfun) ?

4832

(*((V827)->sfn.sfn_self)):

4833

(fcall.fun=(V827),fcalln))(STREF(object,(V826),4),STREF(object,(V826),8),(V812),(V813))));

4834

goto T1690;

4835

goto T1693;

4836

T1693:;

4837

base[5]= V826;

4838

base[6]= VV[140];

4839

vs_top=(vs_base=base+5)+2;

4840

(void) (*Lnk335)();

4841

vs_top=sup;

4842

if((vs_base[0])==Cnil){

4843

goto T1698;}

4844

{object V830;

4845

object V831;

4846

object V832;

4847

V830= STREF(object,(V826),0);

4848

V831= make_cons((V812),(V813));

4849

V832= STREF(object,(V826),4);

4850

if(((V832))==Cnil){

4851

goto T1706;}

4852

if((CMPcdr((V832)))!=Cnil){

4853

goto T1706;}

4854

(void)((

4855

(type_of((V830)) == t_sfun ?(*(((V830))->sfn.sfn_self)):

4856

(fcall.argd=2,type_of((V830))==t_vfun) ?

4857

(*(((V830))->sfn.sfn_self)):

4858

(fcall.fun=((V830)),fcalln))((V831),CMPcar((V832)))));

4859

goto T1690;

4860

goto T1706;

4861

T1706:;

4862

base[5]= (V830);

4863

base[6]= (V831);

4864

{object V833;

4865

V833= (V832);

4866

vs_top=base+7;

4867

while(V833!=Cnil)

4868

{vs_push((V833)->c.c_car);V833=(V833)->c.c_cdr;}

4869

vs_base=base+6;}

4870

{object _funobj = base[5];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))

4871

(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);

4872

else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();

4873

else super_funcall_no_event(_funobj);}

4874

vs_top=sup;

4875

goto T1690;}

4876

goto T1698;

4877

T1698:;

4878

base[5]= V826;

4879

vs_top=(vs_base=base+5)+1;

4880

Lfunctionp();

4881

vs_top=sup;

4882

if((vs_base[0])==Cnil){

4883

goto T1714;}

4884

base[5]= (V826);

4885

base[6]= (V812);

4886

{object V834;

4887

V834= (V813);

4888

vs_top=base+7;

4889

while(V834!=Cnil)

4890

{vs_push((V834)->c.c_car);V834=(V834)->c.c_cdr;}

4891

vs_base=base+6;}

4892

{object _funobj = base[5];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))

4893

(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);

4894

else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();

4895

else super_funcall_no_event(_funobj);}

4896

vs_top=sup;

4897

goto T1690;

4898

goto T1714;

4899

T1714:;

4900

base[5]= VV[101];

4901

base[6]= VV[102];

4902

base[7]= VV[141];

4903

base[8]= VV[104];

4904

base[9]= V826;

4905

base[10]= VV[105];

4906

base[11]= VV[148];

4907

base[12]= VV[107];

4908

base[13]= VV[149];

4909

vs_top=(vs_base=base+5)+9;

4910

(void) (*Lnk281)();

4911

vs_top=sup;

4912

goto T1690;

4913

T1690:;

4914

V825= CMPcdr((V825));

4915

V826= CMPcar((V825));

4916

goto T1685;}

4917

goto T1681;

4918

T1681:;

4919

base[4]= (V812);

4920

vs_top=(vs_base=base+4)+1;

4921

return;}}

4922

}

4923

}

4924

/* local function CLOSURE */

4925

4926

static void LC67(base0)

4927

4928

{ register object *base=vs_base;

4929

4930

vs_check;

4931

{object V835;

4932

4933

if(vs_top-vs_base<1) too_few_arguments();

4934

V835=(base[0]);

4935

vs_base=vs_base+1;

4936

vs_top[0]=Cnil;

4937

{object *p=vs_top;

4938

for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}

4939

V836=(base[1]);

4940

vs_top=sup;

4941

{object V837;

4942

if(((base0[6]->c.c_car))==Cnil){

4943

goto T1736;}

4944

V837= (VFUN_NARGS=2,(*(LnkLI334))((base0[7]->c.c_car),(base0[6]->c.c_car)));

4945

goto T1734;

4946

goto T1736;

4947

T1736:;

4948

V837= (V835);

4949

goto T1734;

4950

T1734:;

4951

if(!(((V837))==((V835)))){

4952

goto T1738;}

4953

if(!((((((base0[5]->c.c_car))->v.v_self[8])==(Ct)?Ct:Cnil))==Cnil)){

4954

goto T1739;}

4955

goto T1738;

4956

T1738:;

4957

base[2]= (V837);

4958

base[3]= (V836);

4959

vs_top=(vs_base=base+2)+2;

4960

(void) (*Lnk132)();

4961

return;

4962

goto T1739;

4963

T1739:;

4964

{register object V838;

4965

{object V839;

4966

V839= (*(LnkLI336))();

4967

V840= Ct;

4968

STSET(object,(V839),0, (base0[5]->c.c_car));

4969

(void)((base0[5]->c.c_car));

4970

base[2]= (base0[0]->c.c_car);

4971

vs_top=(vs_base=base+2)+1;

4972

Lcopy_seq();

4973

vs_top=sup;

4974

V841= vs_base[0];

4975

V842= Ct;

4976

STSET(object,(V839),4, V841);

4977

(void)(V841);

4978

V838= (V839);}

4979

{object V843;

4980

V843= (base0[1]->c.c_car);

4981

if(!(type_of((V843))==t_cons)){

4982

goto T1753;}

4983

if(!((CMPcar((V843)))==(VV[138]))){

4984

goto T1753;}

4985

(void)((*(LnkLI119))(CMPcadr((V843)),CMPcaddr((V843)),(V838),(V836)));

4986

goto T1751;

4987

goto T1753;

4988

T1753:;

4989

(void)((

4990

(type_of((V843)) == t_sfun ?(*(((V843))->sfn.sfn_self)):

4991

(fcall.argd=2,type_of((V843))==t_vfun) ?

4992

(*(((V843))->sfn.sfn_self)):

4993

(fcall.fun=((V843)),fcalln))((V838),(V836))));}

4994

goto T1751;

4995

T1751:;

4996

{object V844;

4997

4998

V844= (base0[3]->c.c_car);

4999

V845= CMPcar((V844));

5000

goto T1761;

5001

T1761:;

5002

if(!(((V844))==Cnil)){

5003

goto T1762;}

5004

goto T1757;

5005

goto T1762;

5006

T1762:;

5007

base[3]= (V845);

5008

base[4]= VV[139];

5009

vs_top=(vs_base=base+3)+2;

5010

(void) (*Lnk335)();

5011

vs_top=sup;

5012

if((vs_base[0])==Cnil){

5013

goto T1769;}

5014

(void)((

5015

V846 = STREF(object,(V845),0),

5016

(type_of(V846) == t_sfun ?(*((V846)->sfn.sfn_self)):

5017

(fcall.argd=5,type_of(V846)==t_vfun) ?

5018

(*((V846)->sfn.sfn_self)):

5019

(fcall.fun=(V846),fcalln))(STREF(object,(V845),4),STREF(object,(V845),8),(V838),Ct,(V836))));

5020

goto T1766;

5021

goto T1769;

5022

T1769:;

5023

base[3]= V845;

5024

base[4]= VV[140];

5025

vs_top=(vs_base=base+3)+2;

5026

(void) (*Lnk335)();

5027

vs_top=sup;

5028

if((vs_base[0])==Cnil){

5029

goto T1774;}

5030

{object V849;

5031

object V850;

5032

object V851;

5033

V849= STREF(object,(V845),0);

5034

V850= listA(3,(V838),Ct,(V836));

5035

V851= STREF(object,(V845),4);

5036

if(((V851))==Cnil){

5037

goto T1782;}

5038

if((CMPcdr((V851)))!=Cnil){

5039

goto T1782;}

5040

(void)((

5041

(type_of((V849)) == t_sfun ?(*(((V849))->sfn.sfn_self)):

5042

(fcall.argd=2,type_of((V849))==t_vfun) ?

5043

(*(((V849))->sfn.sfn_self)):

5044

(fcall.fun=((V849)),fcalln))((V850),CMPcar((V851)))));

5045

goto T1766;

5046

goto T1782;

5047

T1782:;

5048

base[3]= (V849);

5049

base[4]= (V850);

5050

{object V852;

5051

V852= (V851);

5052

vs_top=base+5;

5053

while(V852!=Cnil)

5054

{vs_push((V852)->c.c_car);V852=(V852)->c.c_cdr;}

5055

vs_base=base+4;}

5056

{object _funobj = base[3];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))

5057

(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);

5058

else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();

5059

else super_funcall_no_event(_funobj);}

5060

vs_top=sup;

5061

goto T1766;}

5062

goto T1774;

5063

T1774:;

5064

base[3]= V845;

5065

vs_top=(vs_base=base+3)+1;

5066

Lfunctionp();

5067

vs_top=sup;

5068

if((vs_base[0])==Cnil){

5069

goto T1790;}

5070

base[3]= (V845);

5071

base[4]= (V838);

5072

base[5]= Ct;

5073

{object V853;

5074

V853= (V836);

5075

vs_top=base+6;

5076

while(V853!=Cnil)

5077

{vs_push((V853)->c.c_car);V853=(V853)->c.c_cdr;}

5078

vs_base=base+4;}

5079

{object _funobj = base[3];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))

5080

(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);

5081

else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();

5082

else super_funcall_no_event(_funobj);}

5083

vs_top=sup;

5084

goto T1766;

5085

goto T1790;

5086

T1790:;

5087

base[3]= VV[101];

5088

base[4]= VV[102];

5089

base[5]= VV[141];

5090

base[6]= VV[104];

5091

base[7]= V845;

5092

base[8]= VV[105];

5093

base[9]= VV[142];

5094

base[10]= VV[107];

5095

base[11]= VV[143];

5096

vs_top=(vs_base=base+3)+9;

5097

(void) (*Lnk281)();

5098

vs_top=sup;

5099

goto T1766;

5100

T1766:;

5101

V844= CMPcdr((V844));

5102

V845= CMPcar((V844));

5103

goto T1761;}

5104

goto T1757;

5105

T1757:;

5106

{object V854;

5107

5108

V854= (base0[2]->c.c_car);

5109

V855= CMPcar((V854));

5110

goto T1815;

5111

T1815:;

5112

if(!(((V854))==Cnil)){

5113

goto T1816;}

5114

goto T1811;

5115

goto T1816;

5116

T1816:;

5117

base[3]= (V855);

5118

base[4]= VV[139];

5119

vs_top=(vs_base=base+3)+2;

5120

(void) (*Lnk335)();

5121

vs_top=sup;

5122

if((vs_base[0])==Cnil){

5123

goto T1823;}

5124

(void)((

5125

V856 = STREF(object,(V855),0),

5126

(type_of(V856) == t_sfun ?(*((V856)->sfn.sfn_self)):

5127

(fcall.argd=4,type_of(V856)==t_vfun) ?

5128

(*((V856)->sfn.sfn_self)):

5129

(fcall.fun=(V856),fcalln))(STREF(object,(V855),4),STREF(object,(V855),8),(V838),(V836))));

5130

goto T1820;

5131

goto T1823;

5132

T1823:;

5133

base[3]= V855;

5134

base[4]= VV[140];

5135

vs_top=(vs_base=base+3)+2;

5136

(void) (*Lnk335)();

5137

vs_top=sup;

5138

if((vs_base[0])==Cnil){

5139

goto T1828;}

5140

{object V859;

5141

object V860;

5142

object V861;

5143

V859= STREF(object,(V855),0);

5144

V860= make_cons((V838),(V836));

5145

V861= STREF(object,(V855),4);

5146

if(((V861))==Cnil){

5147

goto T1836;}

5148

if((CMPcdr((V861)))!=Cnil){

5149

goto T1836;}

5150

(void)((

5151

(type_of((V859)) == t_sfun ?(*(((V859))->sfn.sfn_self)):

5152

(fcall.argd=2,type_of((V859))==t_vfun) ?

5153

(*(((V859))->sfn.sfn_self)):

5154

(fcall.fun=((V859)),fcalln))((V860),CMPcar((V861)))));

5155

goto T1820;

5156

goto T1836;

5157

T1836:;

5158

base[3]= (V859);

5159

base[4]= (V860);

5160

{object V862;

5161

V862= (V861);

5162

vs_top=base+5;

5163

while(V862!=Cnil)

5164

{vs_push((V862)->c.c_car);V862=(V862)->c.c_cdr;}

5165

vs_base=base+4;}

5166

{object _funobj = base[3];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))

5167

(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);

5168

else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();

5169

else super_funcall_no_event(_funobj);}

5170

vs_top=sup;

5171

goto T1820;}

5172

goto T1828;

5173

T1828:;

5174

base[3]= V855;

5175

vs_top=(vs_base=base+3)+1;

5176

Lfunctionp();

5177

vs_top=sup;

5178

if((vs_base[0])==Cnil){

5179

goto T1844;}

5180

base[3]= (V855);

5181

base[4]= (V838);

5182

{object V863;

5183

V863= (V836);

5184

vs_top=base+5;

5185

while(V863!=Cnil)

5186

{vs_push((V863)->c.c_car);V863=(V863)->c.c_cdr;}

5187

vs_base=base+4;}

5188

{object _funobj = base[3];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))

5189

(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);

5190

else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();

5191

else super_funcall_no_event(_funobj);}

5192

vs_top=sup;

5193

goto T1820;

5194

goto T1844;

5195

T1844:;

5196

base[3]= VV[101];

5197

base[4]= VV[102];

5198

base[5]= VV[141];

5199

base[6]= VV[104];

5200

base[7]= V855;

5201

base[8]= VV[105];

5202

base[9]= VV[144];

5203

base[10]= VV[107];

5204

base[11]= VV[145];

5205

vs_top=(vs_base=base+3)+9;

5206

(void) (*Lnk281)();

5207

vs_top=sup;

5208

goto T1820;

5209

T1820:;

5210

V854= CMPcdr((V854));

5211

V855= CMPcar((V854));

5212

goto T1815;}

5213

goto T1811;

5214

T1811:;

5215

base[2]= (V838);

5216

vs_top=(vs_base=base+2)+1;

5217

return;}}

5218

}

5219

}

5220

/* local function CHECK-METH */

5221

5222

static void LC34(base0)

5223

5224

{ register object *base=vs_base;

5225

5226

vs_check;

5227

{object V864;

5228

check_arg(1);

5229

V864=(base[0]);

5230

vs_top=sup;

5231

{register object V865;

5232

base[1]= (V864);

5233

vs_top=(vs_base=base+1)+1;

5234

(void) (*Lnk294)(Lclptr294);

5235

vs_top=sup;

5236

V865= vs_base[0];

5237

if(((V865))!=Cnil){

5238

goto T1867;}

5239

base[1]= (V864);

5240

vs_top=(vs_base=base+1)+1;

5241

(void) (*Lnk286)(Lclptr286);

5242

vs_top=sup;

5243

V866= vs_base[0];

5244

base[1]= ((CMPcar(V866))==((VV[1]->s.s_dbind))?Ct:Cnil);

5245

vs_top=(vs_base=base+1)+1;

5246

return;

5247

goto T1867;

5248

T1867:;

5249

if((CMPcdr((V865)))==Cnil){

5250

goto T1871;}

5251

base[1]= Cnil;

5252

vs_top=(vs_base=base+1)+1;

5253

return;

5254

goto T1871;

5255

T1871:;

5256

if(!((CMPcar((V865)))==(VV[114]))){

5257

goto T1873;}

5258

base[1]= Ct;

5259

vs_top=(vs_base=base+1)+1;

5260

return;

5261

goto T1873;

5262

T1873:;

5263

base[1]= ((CMPcar((V865)))==(VV[115])?Ct:Cnil);

5264

vs_top=(vs_base=base+1)+1;

5265

return;}

5266

}

5267

}

5268

/* local function CLOSURE */

5269

5270

static void LC66(base0)

5271

5272

{ register object *base=vs_base;

5273

5274

vs_check;

5275

{object V867;

5276

object V868;

5277

if(vs_top-vs_base<1) too_few_arguments();

5278

V867=(base[0]);

5279

vs_base=vs_base+1;

5280

vs_top[0]=Cnil;

5281

{object *p=vs_top;

5282

for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}

5283

V868=(base[1]);

5284

vs_top=sup;

5285

base[2]=VV[337]->s.s_gfdef;

5286

base[3]= (base0[0]->c.c_car);

5287

base[4]= (V867);

5288

{object V869;

5289

V869= (V868);

5290

vs_top=base+5;

5291

while(V869!=Cnil)

5292

{vs_push((V869)->c.c_car);V869=(V869)->c.c_cdr;}

5293

vs_base=base+3;}

5294

(void) (*Lnk337)(Lclptr337);

5295

return;

5296

}

5297

}

5298

/* local function COMPUTE-VALID-P */

5299

5300

static void L32(base0)

5301

5302

{ register object *base=vs_base;

5303

5304

vs_check;

5305

{object V870;

5306

check_arg(1);

5307

V870=(base[0]);

5308

vs_top=sup;

5309

goto TTL;

5310

TTL:;

5311

if(!((((base0[3])==Cnil?Ct:Cnil))==Cnil)){

5312

goto T1878;}

5313

base[1]= Ct;

5314

vs_top=(vs_base=base+1)+1;

5315

return;

5316

goto T1878;

5317

T1878:;

5318

{register object V871;

5319

object V872;

5320

base[1]= base0[1];

5321

base[2]= (V870);

5322

vs_top=(vs_base=base+1)+2;

5323

(void) (*Lnk338)();

5324

if(vs_base>=vs_top){vs_top=sup;goto T1883;}

5325

V871= vs_base[0];

5326

vs_base++;

5327

if(vs_base>=vs_top){vs_top=sup;goto T1884;}

5328

V872= vs_base[0];

5329

vs_top=sup;

5330

goto T1885;

5331

goto T1883;

5332

T1883:;

5333

V871= Cnil;

5334

goto T1884;

5335

T1884:;

5336

V872= Cnil;

5337

goto T1885;

5338

T1885:;

5339

if(!(((((V872))==Cnil?Ct:Cnil))==Cnil)){

5340

goto T1886;}

5341

base[1]= Ct;

5342

vs_top=(vs_base=base+1)+1;

5343

return;

5344

goto T1886;

5345

T1886:;

5346

{register object V873;

5347

5348

V873= base0[2];

5349

V874= CMPcar((V873));

5350

goto T1891;

5351

T1891:;

5352

if(!(((V873))==Cnil)){

5353

goto T1892;}

5354

base[2]= Ct;

5355

vs_top=(vs_base=base+2)+1;

5356

return;

5357

goto T1892;

5358

T1892:;

5359

{register object x= (V874),V875= (V871);

5360

while(V875!=Cnil)

5361

if(eql(x,V875->c.c_car)){

5362

goto T1896;

5363

}else V875=V875->c.c_cdr;}

5364

if(((V874))==(VV[2])){

5365

goto T1896;}

5366

base[2]= make_cons(VV[100],(V874));

5367

vs_top=(vs_base=base+2)+1;

5368

return;

5369

goto T1896;

5370

T1896:;

5371

V873= CMPcdr((V873));

5372

V874= CMPcar((V873));

5373

goto T1891;}}

5374

}

5375

}

5376

/* local function CLOSURE */

5377

5378

static void LC65(base0)

5379

5380

{ register object *base=vs_base;

5381

5382

vs_check;

5383

{register object V876;

5384

object V877;

5385

object V878;

5386

check_arg(3);

5387

V876=(base[0]);

5388

V877=(base[1]);

5389

V878=(base[2]);

5390

vs_top=sup;{object V879;

5391

if(((V877))==(VV[8])){

5392

goto T1908;}

5393

V879= Cnil;

5394

goto T1907;

5395

goto T1908;

5396

T1908:;

5397

if(type_of((V876))==t_cons){

5398

goto T1910;}

5399

V879= Cnil;

5400

goto T1907;

5401

goto T1910;

5402

T1910:;

5403

if((CMPcar((V876)))==(VV[9])){

5404

goto T1912;}

5405

V879= Cnil;

5406

goto T1907;

5407

goto T1912;

5408

T1912:;

5409

V879= (*(LnkLI339))((V876));

5410

goto T1907;

5411

T1907:;

5412

if(V879==Cnil)goto T1906;

5413

base[3]= V879;

5414

vs_top=(vs_base=base+3)+1;

5415

return;

5416

goto T1906;

5417

T1906:;}

5418

base[3]= (V876);

5419

vs_top=(vs_base=base+3)+1;

5420

return;

5421

}

5422

}

5423

static object LnkTLI339(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[339],(void **)(void *)&LnkLI339,1,first,ap);va_end(ap);return V1;} /* EXPAND-MAKE-INSTANCE-FORM */

5424

static void LnkT338(){ call_or_link(VV[338],(void **)(void *)&Lnk338);} /* CHECK-INITARGS-VALUES */

5425

static void LnkT337(ptr) object *ptr;{ call_or_link_closure(VV[337],(void **)(void *)&Lnk337,(void **)(void *)&Lclptr337);} /* NO-APPLICABLE-METHOD */

5426

static object LnkTLI336(){return call_proc0(VV[336],(void **)(void *)&LnkLI336);} /* %%ALLOCATE-INSTANCE--CLASS */

5427

static void LnkT335(){ call_or_link(VV[335],(void **)(void *)&Lnk335);} /* STRUCTURE-SUBTYPE-P */

5428

static void LnkT96(ptr) object *ptr;{ call_or_link_closure(VV[96],(void **)(void *)&Lnk96,(void **)(void *)&Lclptr96);} /* ALLOCATE-INSTANCE */

5429

static object LnkTLI119(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[119],(void **)(void *)&LnkLI119,4,first,ap);va_end(ap);return V1;} /* INITIALIZE-INSTANCE-SIMPLE */

5430

static void LnkT132(){ call_or_link(VV[132],(void **)(void *)&Lnk132);} /* MAKE-INSTANCE-FUNCTION-TRAP */

5431

static object LnkTLI334(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[334],(void **)(void *)&LnkLI334,first,ap);va_end(ap);return V1;} /* FIND-CLASS-FROM-CELL */

5432

static object LnkTLI333(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[333],(void **)(void *)&LnkLI333,2,first,ap);va_end(ap);return V1;} /* ADD-TO-CVECTOR */

5433

static object LnkTLI7(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[7],(void **)(void *)&LnkLI7,1,first,ap);va_end(ap);return V1;} /* GET-MAKE-INSTANCE-FUNCTIONS */

5434

static void LnkT332(){ call_or_link(VV[332],(void **)(void *)&Lnk332);} /* COERCE */

5435

static object LnkTLI331(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[331],(void **)(void *)&LnkLI331,3,first,ap);va_end(ap);return V1;} /* FIRST-FORM-TO-LISP */

5436

static void LnkT330(){ call_or_link(VV[330],(void **)(void *)&Lnk330);} /* VECTOR-PUSH-EXTEND */

5437

static void LnkT213(ptr) object *ptr;{ call_or_link_closure(VV[213],(void **)(void *)&Lnk213,(void **)(void *)&Lclptr213);} /* SLOT-BOUNDP-USING-CLASS */

5438

static object LnkTLI328(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[328],(void **)(void *)&LnkLI328,1,first,ap);va_end(ap);return V1;} /* CLASS-OF */

5439

static object LnkTLI327(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[327],(void **)(void *)&LnkLI327,4098,first,ap);va_end(ap);return V1;} /* %CCLOSURE-ENV-NTHCDR */

5440

static void LnkT326(){ call_or_link(VV[326],(void **)(void *)&Lnk326);} /* CCLOSURE-ENV-NTHCDR */

5441

static void LnkT325(){ call_or_link(VV[325],(void **)(void *)&Lnk325);} /* UPDATE-MAKE-INSTANCE-FUNCTION-TABLE */

5442

static object LnkTLI324(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[324],(void **)(void *)&LnkLI324,3,first,ap);va_end(ap);return V1;} /* MAKE-TOP-LEVEL-FORM */

5443

static void LnkT323(){ call_or_link(VV[323],(void **)(void *)&Lnk323);} /* COMPILE-LAMBDA */

5444

static void LnkT322(){ call_or_link(VV[322],(void **)(void *)&Lnk322);} /* UNION */

5445

static void LnkT321(){ call_or_link(VV[321],(void **)(void *)&Lnk321);} /* FORM-LIST-TO-LISP */

5446

static object LnkTLI320(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[320],(void **)(void *)&LnkLI320,1,first,ap);va_end(ap);return V1;} /* GET-PV-CELL-FOR-CLASS */

5447

static object LnkTLI319(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[319],(void **)(void *)&LnkLI319,2,first,ap);va_end(ap);return V1;} /* PV-TABLE-LOOKUP */

5448

static object LnkTLI318(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[318],(void **)(void *)&LnkLI318,first,ap);va_end(ap);return V1;} /* INTERN-PV-TABLE */

5449

static void LnkT317(ptr) object *ptr;{ call_or_link_closure(VV[317],(void **)(void *)&Lnk317,(void **)(void *)&Lclptr317);} /* SLOT-DEFINITION-LOCATION */

5450

static void LnkT316(ptr) object *ptr;{ call_or_link_closure(VV[316],(void **)(void *)&Lnk316,(void **)(void *)&Lclptr316);} /* SLOT-DEFINITION-INITFUNCTION */

5451

static void LnkT315(ptr) object *ptr;{ call_or_link_closure(VV[315],(void **)(void *)&Lnk315,(void **)(void *)&Lclptr315);} /* SLOT-DEFINITION-INITFORM */

5452

static void LnkT314(){ call_or_link(VV[314],(void **)(void *)&Lnk314);} /* STABLE-SORT */

5453

static void LnkT312(){ call_or_link(VV[312],(void **)(void *)&Lnk312);} /* POSITION */

5454

static void LnkT311(ptr) object *ptr;{ call_or_link_closure(VV[311],(void **)(void *)&Lnk311,(void **)(void *)&Lclptr311);} /* SLOT-DEFINITION-NAME */

5455

static void LnkT310(){ call_or_link(VV[310],(void **)(void *)&Lnk310);} /* MAKE-ARRAY */

5456

static object LnkTLI309(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[309],(void **)(void *)&LnkLI309,2,first,ap);va_end(ap);return V1;} /* ADD-FORMS */

5457

static void LnkT308(ptr) object *ptr;{ call_or_link_closure(VV[308],(void **)(void *)&Lnk308,(void **)(void *)&Lclptr308);} /* SLOT-DEFINITION-INITARGS */

5458

static void LnkT307(ptr) object *ptr;{ call_or_link_closure(VV[307],(void **)(void *)&Lnk307,(void **)(void *)&Lclptr307);} /* CLASS-SLOTS */

5459

static void LnkT306(ptr) object *ptr;{ call_or_link_closure(VV[306],(void **)(void *)&Lnk306,(void **)(void *)&Lclptr306);} /* CLASS-DEFAULT-INITARGS */

5460

static void LnkT305(){ call_or_link(VV[305],(void **)(void *)&Lnk305);} /* GET-SECONDARY-DISPATCH-FUNCTION */

5461

static void LnkT304(){ call_or_link(VV[304],(void **)(void *)&Lnk304);} /* GET-COMPLEX-INITIALIZATION-FUNCTIONS */

5462

static void LnkT303(){ call_or_link(VV[303],(void **)(void *)&Lnk303);} /* GET-SIMPLE-INITIALIZATION-FUNCTION */

5463

static void LnkT302(){ call_or_link(VV[302],(void **)(void *)&Lnk302);} /* MAKE-EFFECTIVE-METHOD-FUNCTION */

5464

static void LnkT301(){ call_or_link(VV[301],(void **)(void *)&Lnk301);} /* REMOVE */

5465

static void LnkT299(ptr) object *ptr;{ call_or_link_closure(VV[299],(void **)(void *)&Lnk299,(void **)(void *)&Lclptr299);} /* FUNCALLABLE-STANDARD-CLASS-P */

5466

static void LnkT297(ptr) object *ptr;{ call_or_link_closure(VV[297],(void **)(void *)&Lnk297,(void **)(void *)&Lclptr297);} /* STANDARD-CLASS-P */

5467

static void LnkT295(ptr) object *ptr;{ call_or_link_closure(VV[295],(void **)(void *)&Lnk295,(void **)(void *)&Lclptr295);} /* STRUCTURE-CLASS-P */

5468

static void LnkT294(ptr) object *ptr;{ call_or_link_closure(VV[294],(void **)(void *)&Lnk294,(void **)(void *)&Lclptr294);} /* METHOD-QUALIFIERS */

5469

static object LnkTLI293(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[293],(void **)(void *)&LnkLI293,5,first,ap);va_end(ap);return V1;} /* MAKE-INSTANCE-FUNCTION-SIMPLE */

5470

static object LnkTLI292(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[292],(void **)(void *)&LnkLI292,5,first,ap);va_end(ap);return V1;} /* MAKE-INSTANCE-FUNCTION-COMPLEX */

5471

static void LnkT291(){ call_or_link(VV[291],(void **)(void *)&Lnk291);} /* SOME */

5472

static object LnkTLI289(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[289],(void **)(void *)&LnkLI289,first,ap);va_end(ap);return V1;} /* CHECK-INITARGS-1 */

5473

static void LnkT112(ptr) object *ptr;{ call_or_link_closure(VV[112],(void **)(void *)&Lnk112,(void **)(void *)&Lclptr112);} /* DEFAULT-INITARGS */

5474

static object LnkTLI288(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[288],(void **)(void *)&LnkLI288,5,first,ap);va_end(ap);return V1;} /* GET-MAKE-INSTANCE-FUNCTION-INTERNAL */

5475

static void LnkT287(){ call_or_link(VV[287],(void **)(void *)&Lnk287);} /* EVERY */

5476

static void LnkT286(ptr) object *ptr;{ call_or_link_closure(VV[286],(void **)(void *)&Lnk286,(void **)(void *)&Lclptr286);} /* METHOD-SPECIALIZERS */

5477

static object LnkTLI285(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[285],(void **)(void *)&LnkLI285,2,first,ap);va_end(ap);return V1;} /* FIND-STANDARD-II-METHOD */

5478

static void LnkT284(ptr) object *ptr;{ call_or_link_closure(VV[284],(void **)(void *)&Lnk284,(void **)(void *)&Lclptr284);} /* COMPUTE-APPLICABLE-METHODS */

5479

static object LnkTLI280(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[280],(void **)(void *)&LnkLI280,1,first,ap);va_end(ap);return V1;} /* GDEFINITION */

5480

static void LnkT283(ptr) object *ptr;{ call_or_link_closure(VV[283],(void **)(void *)&Lnk283,(void **)(void *)&Lclptr283);} /* FINALIZE-INHERITANCE */

5481

static void LnkT282(ptr) object *ptr;{ call_or_link_closure(VV[282],(void **)(void *)&Lnk282,(void **)(void *)&Lclptr282);} /* CLASS-FINALIZED-P */

5482

static void LnkT281(){ call_or_link(VV[281],(void **)(void *)&Lnk281);} /* ERROR */

5483

static object LnkTLI278(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[278],(void **)(void *)&LnkLI278,1,first,ap);va_end(ap);return V1;} /* GET-MAKE-INSTANCE-FUNCTION */

5484

static void LnkT277(){ call_or_link(VV[277],(void **)(void *)&Lnk277);} /* MAKE-SHARED-INITIALIZE-FORM-LIST */

5485

static void LnkT276(ptr) object *ptr;{ call_or_link_closure(VV[276],(void **)(void *)&Lnk276,(void **)(void *)&Lclptr276);} /* CLASS-PROTOTYPE */

5486

static void LnkT275(){ call_or_link(VV[275],(void **)(void *)&Lnk275);} /* INITIALIZE-INSTANCE-SIMPLE-FUNCTION */

5487

static void LnkT274(){ call_or_link(VV[274],(void **)(void *)&Lnk274);} /* MAKE-DEFAULT-INITARGS-FORM-LIST */

5488

static object LnkTLI273(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[273],(void **)(void *)&LnkLI273,first,ap);va_end(ap);return V1;} /* MAKE-INITIALIZE-INFO */

5489

static object LnkTLI272(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[272],(void **)(void *)&LnkLI272,1,first,ap);va_end(ap);return V1;} /* RESET-INITIALIZE-INFO */

5490

static void LnkT271(ptr) object *ptr;{ call_or_link_closure(VV[271],(void **)(void *)&Lnk271,(void **)(void *)&Lclptr271);} /* CLASS-INITIALIZE-INFO */

5491

static object LnkTLI270(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[270],(void **)(void *)&LnkLI270,1,first,ap);va_end(ap);return V1;} /* RESET-CLASS-INITIALIZE-INFO-1 */

5492

static object LnkTLI50(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[50],(void **)(void *)&LnkLI50,1,first,ap);va_end(ap);return V1;} /* INITIALIZE-INFO-BOUND-SLOTS */

5493

static void LnkT269(ptr) object *ptr;{ call_or_link_closure(VV[269],(void **)(void *)&Lnk269,(void **)(void *)&Lclptr269);} /* CLASS-WRAPPER */

5494

static void LnkT9(ptr) object *ptr;{ call_or_link_closure(VV[9],(void **)(void *)&Lnk9,(void **)(void *)&Lclptr9);} /* MAKE-INSTANCE */

5495

static void LnkT255(ptr) object *ptr;{ call_or_link_closure(VV[255],(void **)(void *)&Lnk255,(void **)(void *)&Lclptr255);} /* CLASS-NAME */

5496

static void LnkT254(ptr) object *ptr;{ call_or_link_closure(VV[254],(void **)(void *)&Lnk254,(void **)(void *)&Lclptr254);} /* CLASSP */

5497

static object LnkTLI39(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[39],(void **)(void *)&LnkLI39,first,ap);va_end(ap);return V1;} /* INITIALIZE-INFO */

5498

static object LnkTLI61(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[61],(void **)(void *)&LnkLI61,2,first,ap);va_end(ap);return V1;} /* UPDATE-INITIALIZE-INFO-INTERNAL */

5499

static void LnkT253(ptr) object *ptr;{ call_or_link_closure(VV[253],(void **)(void *)&Lnk253,(void **)(void *)&Lclptr253);} /* FORWARD-REFERENCED-CLASS-P */

5500

static void LnkT252(){ call_or_link(VV[252],(void **)(void *)&Lnk252);} /* FIND */

5501

static object LnkTLI250(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[250],(void **)(void *)&LnkLI250,first,ap);va_end(ap);return V1;} /* FIND-CLASS-CELL */

5502

static void LnkT249(){ call_or_link(VV[249],(void **)(void *)&Lnk249);} /* WALK-FORM */

5503

static object LnkTLI75(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[75],(void **)(void *)&LnkLI75,1,first,ap);va_end(ap);return V1;} /* MAKE-INSTANCE-FUNCTION-SYMBOL */

5504

static object LnkTLI247(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[247],(void **)(void *)&LnkLI247,1,first,ap);va_end(ap);return V1;} /* CONSTANT-SYMBOL-P */

5505

static void LnkT246(){ call_or_link(VV[246],(void **)(void *)&Lnk246);} /* MAP-ALL-CLASSES */

5506

static void LnkT244(ptr) object *ptr;{ call_or_link_closure(VV[244],(void **)(void *)&Lnk244,(void **)(void *)&Lclptr244);} /* CLASS-PRECEDENCE-LIST */

5507

static object LnkTLI243(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[243],(void **)(void *)&LnkLI243,first,ap);va_end(ap);return V1;} /* FIND-CLASS */

5508

5509

#ifdef SYSTEM_SPECIAL_INIT

5510

SYSTEM_SPECIAL_INIT

5511

#endif

5512

Older »