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

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

base[6]= V10;

base[7]= V11;

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

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

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

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

else super_funcall_no_event(_funobj);}

return;

goto T20;

T20:;

if((V15!= VV[251]))goto T24;

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

base[6]= V10;

base[7]= V11;

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

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

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

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

100

else super_funcall_no_event(_funobj);}

101

return;

102

goto T24;

103

T24:;

104

if((V15!= VV[253]))goto T28;

105

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

106

base[6]= V10;

107

base[7]= V11;

108

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

109

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

110

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

111

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

112

else super_funcall_no_event(_funobj);}

113

return;

114

goto T28;

115

T28:;

116

base[5]= VV[0];

117

base[6]= VV[1];

118

base[7]= VV[2];

119

base[8]= VV[3];

120

base[9]= V12;

121

base[10]= VV[4];

122

base[11]= VV[12];

123

base[12]= VV[6];

124

base[13]= VV[13];

125

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

126

(void) (*Lnk255)();

127

return;}

128

}

129

}

130

/* local entry for function (FAST-METHOD SLOT-ACCESSOR-STD-P (EFFECTIVE-SLOT-DEFINITION T)) */

131

132

static object LI3(V26,V27,V28,V29)

133

134

135

{ VMB3 VMS3 VMV3

136

goto TTL;

137

TTL:;

138

{object V31;

139

object V32;

140

V31= CMPcar((V26));

141

V32= CMPcdr((V26));

142

{object V33;

143

if(type_of(V28)==t_structure){

144

goto T51;}

145

goto T49;

146

goto T51;

147

T51:;

148

if(!(((V28)->str.str_def)==(VV[21]))){

149

goto T49;}

150

V33= STREF(object,(V28),4);

151

goto T47;

152

goto T49;

153

T49:;{object V35;

154

V35= (VV[16]->s.s_dbind);

155

base[0]= small_fixnum(14);

156

base[1]= (V28);

157

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

158

(void) (*Lnk256)();

159

vs_top=sup;

160

V36= vs_base[0];

161

if(!((V35)==(CMPcar(V36)))){

162

goto T54;}}

163

V33= CMPcar(((V28))->cc.cc_turbo[12]);

164

goto T47;

165

goto T54;

166

T54:;

167

V33= Cnil;

168

goto T47;

169

T47:;

170

{long V37;

171

{register object V38;

172

V38= ((V31))->v.v_self[1];

173

if(!(type_of(V38)==t_fixnum)){

174

goto T64;}

175

V38= ((V33))->v.v_self[fix((V38))];

176

goto T62;

177

goto T64;

178

T64:;

179

V38= VV[17];

180

goto T62;

181

T62:;

182

if(!(((V38))==(VV[17]))){

183

goto T67;}

184

base[0]= (V28);

185

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

186

(void) (*Lnk258)(Lclptr258);

187

vs_top=sup;

188

V37= fix(vs_base[0]);

189

goto T59;

190

goto T67;

191

T67:;

192

V37= fix((V38));}

193

goto T59;

194

T59:;

195

if(!(((V29))==(VV[18]))){

196

goto T71;}

197

{object V40 = ((7)==(V37)?Ct:Cnil);

198

VMR3(V40)}

199

goto T71;

200

T71:;

201

{long V41;

202

{object V43= V29;

203

if((V43!= VV[249]))goto T74;

204

V41= 1;

205

goto T73;

206

goto T74;

207

T74:;

208

if((V43!= VV[251]))goto T75;

209

V41= 2;

210

goto T73;

211

goto T75;

212

T75:;

213

if((V43!= VV[253]))goto T76;

214

V41= 4;

215

goto T73;

216

goto T76;

217

T76:;

218

base[0]= VV[0];

219

base[1]= VV[1];

220

base[2]= VV[2];

221

base[3]= VV[3];

222

base[4]= V29;

223

base[5]= VV[4];

224

base[6]= VV[22];

225

base[7]= VV[6];

226

base[8]= VV[23];

227

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

228

(void) (*Lnk255)();

229

vs_top=sup;

230

V41= fix(vs_base[0]);}

231

goto T73;

232

T73:;

233

{object V44 = (((((long)((V41) & (V37)))==0?Ct:Cnil))==Cnil?Ct:Cnil);

234

VMR3(V44)}}}}}

235

base[0]=base[0];

236

return Cnil;

237

}

238

/* local entry for function (FAST-METHOD (SETF SLOT-ACCESSOR-STD-P) (T EFFECTIVE-SLOT-DEFINITION T)) */

239

240

static object LI4(V50,V51,V52,V53,V54)

241

242

243

{ VMB4 VMS4 VMV4

244

goto TTL;

245

TTL:;

246

{object V56;

247

object V57;

248

V56= CMPcar((V50));

249

V57= CMPcdr((V50));

250

{object V58;

251

if(type_of(V53)==t_structure){

252

goto T96;}

253

goto T94;

254

goto T96;

255

T96:;

256

if(!(((V53)->str.str_def)==(VV[27]))){

257

goto T94;}

258

V58= STREF(object,(V53),4);

259

goto T92;

260

goto T94;

261

T94:;{object V60;

262

V60= (VV[16]->s.s_dbind);

263

base[0]= small_fixnum(14);

264

base[1]= (V53);

265

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

266

(void) (*Lnk256)();

267

vs_top=sup;

268

V61= vs_base[0];

269

if(!((V60)==(CMPcar(V61)))){

270

goto T99;}}

271

V58= CMPcar(((V53))->cc.cc_turbo[12]);

272

goto T92;

273

goto T99;

274

T99:;

275

V58= Cnil;

276

goto T92;

277

T92:;

278

{long V62;

279

long V63;

280

{object V65= V54;

281

if((V65!= VV[249]))goto T106;

282

V62= 1;

283

goto T105;

284

goto T106;

285

T106:;

286

if((V65!= VV[251]))goto T107;

287

V62= 2;

288

goto T105;

289

goto T107;

290

T107:;

291

if((V65!= VV[253]))goto T108;

292

V62= 4;

293

goto T105;

294

goto T108;

295

T108:;

296

base[0]= VV[0];

297

base[1]= VV[1];

298

base[2]= VV[2];

299

base[3]= VV[3];

300

base[4]= V54;

301

base[5]= VV[4];

302

base[6]= VV[28];

303

base[7]= VV[6];

304

base[8]= VV[29];

305

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

306

(void) (*Lnk255)();

307

vs_top=sup;

308

V62= fix(vs_base[0]);}

309

goto T105;

310

T105:;

311

{register object V66;

312

V66= ((V56))->v.v_self[1];

313

if(!(type_of(V66)==t_fixnum)){

314

goto T123;}

315

V66= ((V58))->v.v_self[fix((V66))];

316

goto T121;

317

goto T123;

318

T123:;

319

V66= VV[17];

320

goto T121;

321

T121:;

322

if(!(((V66))==(VV[17]))){

323

goto T126;}

324

base[0]= (V53);

325

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

326

(void) (*Lnk258)(Lclptr258);

327

vs_top=sup;

328

V63= fix(vs_base[0]);

329

goto T118;

330

goto T126;

331

T126:;

332

V63= fix((V66));}

333

goto T118;

334

T118:;

335

{object V68;

336

if(((V52))==Cnil){

337

goto T131;}

338

V68= CMPmake_fixnum((long)((V62) | (V63)));

339

goto T129;

340

goto T131;

341

T131:;

342

V68= CMPmake_fixnum((long)(((long)(~(V62))) & (V63)));

343

goto T129;

344

T129:;

345

{object V69;

346

V69= ((V56))->v.v_self[1];

347

if(!(type_of(V69)==t_fixnum)){

348

goto T135;}

349

(void)(((V58))->v.v_self[fix((V69))]= ((V68)));

350

goto T104;

351

goto T135;

352

T135:;

353

base[0]= (V68);

354

base[1]= (V53);

355

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

356

(void) (*Lnk259)(Lclptr259);

357

vs_top=sup;}}}

358

goto T104;

359

T104:;

360

{object V71 = (V52);

361

VMR4(V71)}}}

362

base[0]=base[0];

363

return Cnil;

364

}

365

/* local entry for function (FAST-METHOD INITIALIZE-INTERNAL-SLOT-FUNCTIONS (EFFECTIVE-SLOT-DEFINITION)) */

366

367

static object LI5(V75,V76,V77)

368

369

object V75;object V76;register object V77;

370

{ VMB5 VMS5 VMV5

371

goto TTL;

372

TTL:;

373

{object V79;

374

object V80;

375

V79= CMPcar((V75));

376

V80= CMPcdr((V75));

377

{object V81;

378

if(type_of(V77)==t_structure){

379

goto T149;}

380

goto T147;

381

goto T149;

382

T149:;

383

if(!(((V77)->str.str_def)==(VV[41]))){

384

goto T147;}

385

V81= STREF(object,(V77),4);

386

goto T145;

387

goto T147;

388

T147:;{object V83;

389

V83= (VV[16]->s.s_dbind);

390

base[0]= small_fixnum(14);

391

base[1]= (V77);

392

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

393

(void) (*Lnk256)();

394

vs_top=sup;

395

V84= vs_base[0];

396

if(!((V83)==(CMPcar(V84)))){

397

goto T152;}}

398

V81= CMPcar(((V77))->cc.cc_turbo[12]);

399

goto T145;

400

goto T152;

401

T152:;

402

V81= Cnil;

403

goto T145;

404

T145:;

405

{object V85;

406

object V86;

407

{object V87;

408

V87= ((V79))->v.v_self[2];

409

if(!(type_of(V87)==t_fixnum)){

410

goto T162;}

411

V87= ((V81))->v.v_self[fix((V87))];

412

goto T160;

413

goto T162;

414

T162:;

415

V87= VV[17];

416

goto T160;

417

T160:;

418

if(!(((V87))==(VV[17]))){

419

goto T165;}

420

base[2]= (V77);

421

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

422

(void) (*Lnk260)(Lclptr260);

423

vs_top=sup;

424

V85= vs_base[0];

425

goto T157;

426

goto T165;

427

T165:;

428

V85= (V87);}

429

goto T157;

430

T157:;

431

{object V89;

432

V89= ((V79))->v.v_self[1];

433

if(!(type_of(V89)==t_fixnum)){

434

goto T173;}

435

V89= ((V81))->v.v_self[fix((V89))];

436

goto T171;

437

goto T173;

438

T173:;

439

V89= VV[17];

440

goto T171;

441

T171:;

442

if(!(((V89))==(VV[17]))){

443

goto T176;}

444

base[2]= (V77);

445

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

446

(void) (*Lnk261)(Lclptr261);

447

vs_top=sup;

448

V86= vs_base[0];

449

goto T168;

450

goto T176;

451

T176:;

452

V86= (V89);}

453

goto T168;

454

T168:;

455

{object V91;{object V92;

456

base[2]= (V85);

457

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

458

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

459

Lgethash();

460

vs_top=sup;

461

V92= vs_base[0];

462

if(V92==Cnil)goto T181;

463

V91= V92;

464

goto T180;

465

goto T181;

466

T181:;}

467

{object V94;

468

object V95;

469

V94= (VV[31]->s.s_dbind);

470

base[3]= VV[32];

471

base[4]= VV[33];

472

base[5]= VV[34];

473

base[6]= small_fixnum(5);

474

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

475

Lmake_hash_table();

476

vs_top=sup;

477

V95= vs_base[0];

478

base[3]= V85;

479

base[4]= (V94);

480

base[5]= (V95);

481

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

482

siLhash_set();

483

vs_top=sup;

484

V91= vs_base[0];}

485

goto T180;

486

T180:;

487

base[2]= V86;

488

base[3]= V91;

489

base[4]= V77;

490

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

491

siLhash_set();

492

vs_top=sup;}

493

{register object V99;

494

495

V99= VV[35];

496

V100= CMPcar((V99));

497

goto T201;

498

T201:;

499

if(!(((V99))==Cnil)){

500

goto T202;}

501

goto T197;

502

goto T202;

503

T202:;

504

{register object V101;

505

506

{register object V103;

507

V103= (V100);

508

{object V104= (V103);

509

if((V104!= VV[249]))goto T208;

510

V101= VV[36];

511

goto T207;

512

goto T208;

513

T208:;

514

if((V104!= VV[251]))goto T209;

515

V101= VV[37];

516

goto T207;

517

goto T209;

518

T209:;

519

if((V104!= VV[253]))goto T210;

520

V101= VV[38];

521

goto T207;

522

goto T210;

523

T210:;

524

base[5]= VV[0];

525

base[6]= VV[1];

526

base[7]= VV[2];

527

base[8]= VV[3];

528

base[9]= (V103);

529

base[10]= VV[4];

530

base[11]= VV[42];

531

base[12]= VV[6];

532

base[13]= VV[43];

533

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

534

(void) (*Lnk255)();

535

vs_top=sup;

536

V101= vs_base[0];}}

537

goto T207;

538

T207:;

539

V102= (*(LnkLI262))((V101));

540

base[5]= (V77);

541

base[6]= (V100);

542

base[7]= (V102);

543

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

544

(void) (*Lnk263)(Lclptr263);

545

vs_top=sup;}

546

V99= CMPcdr((V99));

547

V100= CMPcar((V99));

548

goto T201;}

549

goto T197;

550

T197:;

551

{object V105 = (VFUN_NARGS=1,(*(LnkLI264))((V85)));

552

VMR5(V105)}}}}

553

base[0]=base[0];

554

return Cnil;

555

}

556

/* local entry for function (FAST-METHOD COMPUTE-SLOT-ACCESSOR-INFO (EFFECTIVE-SLOT-DEFINITION T T)) */

557

558

static object LI6(V111,V112,V113,V114,V115)

559

560

561

{ VMB6 VMS6 VMV6

562

goto TTL;

563

TTL:;

564

{object V117;

565

object V118;

566

V117= CMPcar((V111));

567

V118= CMPcdr((V111));

568

{object V119;

569

if(type_of(V113)==t_structure){

570

goto T239;}

571

goto T237;

572

goto T239;

573

T239:;

574

if(!(((V113)->str.str_def)==(VV[48]))){

575

goto T237;}

576

V119= STREF(object,(V113),4);

577

goto T235;

578

goto T237;

579

T237:;{object V121;

580

V121= (VV[16]->s.s_dbind);

581

base[0]= small_fixnum(14);

582

base[1]= (V113);

583

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

584

(void) (*Lnk256)();

585

vs_top=sup;

586

V122= vs_base[0];

587

if(!((V121)==(CMPcar(V122)))){

588

goto T242;}}

589

V119= CMPcar(((V113))->cc.cc_turbo[12]);

590

goto T235;

591

goto T242;

592

T242:;

593

V119= Cnil;

594

goto T235;

595

T235:;

596

{object V123;

597

598

object V125;

599

object V126;

600

{register object V127;

601

V127= ((V117))->v.v_self[2];

602

if(!(type_of(V127)==t_fixnum)){

603

goto T252;}

604

V127= ((V119))->v.v_self[fix((V127))];

605

goto T250;

606

goto T252;

607

T252:;

608

V127= VV[17];

609

goto T250;

610

T250:;

611

if(!(((V127))==(VV[17]))){

612

goto T255;}

613

base[4]= (V113);

614

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

615

(void) (*Lnk260)(Lclptr260);

616

vs_top=sup;

617

V123= vs_base[0];

618

goto T247;

619

goto T255;

620

T255:;

621

V123= (V127);}

622

goto T247;

623

T247:;

624

{register object V129;

625

V129= ((V117))->v.v_self[1];

626

if(!(type_of(V129)==t_fixnum)){

627

goto T263;}

628

V129= ((V119))->v.v_self[fix((V129))];

629

goto T261;

630

goto T263;

631

T263:;

632

V129= VV[17];

633

goto T261;

634

T261:;

635

if(!(((V129))==(VV[17]))){

636

goto T266;}

637

base[4]= (V113);

638

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

639

(void) (*Lnk261)(Lclptr261);

640

vs_top=sup;

641

V124= vs_base[0];

642

goto T258;

643

goto T266;

644

T266:;

645

V124= (V129);}

646

goto T258;

647

T258:;

648

V125= (*(LnkLI265))((V124),(V123));

649

if((V125)==Cnil){

650

V126= Cnil;

651

goto T270;}

652

base[4]= (V125);

653

base[5]= VV[18];

654

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

655

(void) (*Lnk266)(Lclptr266);

656

vs_top=sup;

657

V126= vs_base[0];

658

goto T270;

659

T270:;

660

{object V131;

661

object V132;

662

if(!(((VV[45]->s.s_dbind))==(VV[46]))){

663

goto T276;}

664

base[4]= (V115);

665

base[5]= (V114);

666

base[6]= (V124);

667

base[7]= (V113);

668

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

669

(void) (*Lnk267)();

670

goto T274;

671

goto T276;

672

T276:;

673

base[4]= (V124);

674

base[5]= (V113);

675

base[6]= (V114);

676

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

677

(void) (*Lnk268)();

678

goto T274;

679

T274:;

680

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

681

V131= vs_base[0];

682

vs_base++;

683

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

684

V132= vs_base[0];

685

vs_top=sup;

686

goto T287;

687

goto T285;

688

T285:;

689

V131= Cnil;

690

goto T286;

691

T286:;

692

V132= Cnil;

693

goto T287;

694

T287:;

695

base[4]= (V131);

696

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

697

(void) (*Lnk269)();

698

vs_top=sup;

699

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

700

(void)((

701

V137 = V136,

702

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

703

(fcall.argd=3,type_of(V137)==t_vfun) ?

704

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

705

(fcall.fun=(V137),fcalln))(V132,V113,V114)));

706

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

707

(void)((

708

V142 = V141,

709

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

710

(fcall.argd=3,type_of(V142)==t_vfun) ?

711

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

712

(fcall.fun=(V142),fcalln))(V131,V113,V114)));}

713

if(((V125))==Cnil){

714

goto T294;}

715

base[4]= (V113);

716

base[5]= VV[18];

717

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

718

(void) (*Lnk266)(Lclptr266);

719

vs_top=sup;

720

V143= vs_base[0];

721

if(((V126))==(V143)){

722

goto T294;}

723

{object V144;

724

V144= make_cons((V124),(V123));

725

(VV[47]->s.s_dbind)= make_cons((V144),(VV[47]->s.s_dbind));

726

{object V145 = (VV[47]->s.s_dbind);

727

VMR6(V145)}}

728

goto T294;

729

T294:;

730

{object V146 = Cnil;

731

VMR6(V146)}}}}

732

base[0]=base[0];

733

return Cnil;

734

}

735

/* local entry for function (FAST-METHOD SLOT-DEFINITION-ALLOCATION (STRUCTURE-SLOT-DEFINITION)) */

736

737

static object LI7(V150,V151,V152)

738

739

object V150;object V151;object V152;

740

{ VMB7 VMS7 VMV7

741

goto TTL;

742

TTL:;

743

{object V154 = VV[49];

744

VMR7(V154)}

745

return Cnil;

746

}

747

/* local entry for function (FAST-METHOD SHARED-INITIALIZE :AFTER (DOCUMENTATION-MIXIN T)) */

748

749

static object LI8(V160,V161,V162,V163,V164)

750

751

object V160;object V161;object V162;object V163;object V164;

752

{ VMB8 VMS8 VMV8

753

goto TTL;

754

TTL:;

755

{object V166;

756

object V168;

757

base[2]= VV[50];

758

base[3]= V164;

759

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

760

(void) (*Lnk271)();

761

vs_top=sup;

762

V166= vs_base[0];

763

if(((V166))==Cnil){

764

goto T312;}

765

V168= CMPcar((V166));

766

goto T310;

767

goto T312;

768

T312:;

769

V168= Cnil;

770

goto T310;

771

T310:;

772

if((V166)==Cnil){

773

goto T315;}

774

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

775

base[3]= V168;

776

base[4]= V162;

777

base[5]= VV[51];

778

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

779

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

780

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

781

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

782

else super_funcall_no_event(_funobj);}

783

vs_top=sup;

784

{object V172 = vs_base[0];

785

VMR8(V172)}

786

goto T315;

787

T315:;

788

{object V173 = Cnil;

789

VMR8(V173)}}

790

base[0]=base[0];

791

return Cnil;

792

}

793

/* local entry for function (FAST-METHOD DOCUMENTATION (T)) */

794

795

static object LI9(V178,V179,V180,V181)

796

797

object V178;object V179;object V180;object V181;

798

{ VMB9 VMS9 VMV9

799

goto TTL;

800

TTL:;

801

{register object V182;

802

object V183;

803

V182= (V181);

804

if(((V182))==Cnil){

805

goto T326;}

806

{object V184;

807

V184= CMPcar((V182));

808

V182= CMPcdr((V182));

809

V183= (V184);

810

goto T324;}

811

goto T326;

812

T326:;

813

V183= Cnil;

814

goto T324;

815

T324:;

816

base[1]= (V180);

817

base[2]= (V183);

818

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

819

(void) (*Lnk273)();

820

vs_top=sup;

821

{object V185 = vs_base[0];

822

VMR9(V185)}}

823

base[0]=base[0];

824

return Cnil;

825

}

826

/* local entry for function (FAST-METHOD (SETF DOCUMENTATION) (T T)) */

827

828

static object LI10(V191,V192,V193,V194,V195)

829

830

object V191;object V192;object V193;object V194;object V195;

831

{ VMB10 VMS10 VMV10

832

goto TTL;

833

TTL:;

834

{register object V196;

835

object V197;

836

V196= (V195);

837

if(((V196))==Cnil){

838

goto T338;}

839

{object V198;

840

V198= CMPcar((V196));

841

V196= CMPcdr((V196));

842

V197= (V198);

843

goto T336;}

844

goto T338;

845

T338:;

846

V197= Cnil;

847

goto T336;

848

T336:;

849

base[1]= VV[52];

850

base[2]= (V194);

851

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

852

Lerror();

853

vs_top=sup;

854

{object V199 = vs_base[0];

855

VMR10(V199)}}

856

base[0]=base[0];

857

return Cnil;

858

}

859

/* local entry for function (FAST-METHOD DOCUMENTATION (DOCUMENTATION-MIXIN)) */

860

861

static object LI11(V204,V205,V206,V207)

862

863

object V204;object V205;object V206;object V207;

864

{ VMB11 VMS11 VMV11

865

goto TTL;

866

TTL:;

867

{register object V208;

868

object V209;

869

V208= (V207);

870

if(((V208))==Cnil){

871

goto T350;}

872

{object V210;

873

V210= CMPcar((V208));

874

V208= CMPcdr((V208));

875

V209= (V210);

876

goto T348;}

877

goto T350;

878

T350:;

879

V209= Cnil;

880

goto T348;

881

T348:;

882

{object V211 = (*(LnkLI272))((V206),VV[51]);

883

VMR11(V211)}}

884

base[0]=base[0];

885

return Cnil;

886

}

887

/* local entry for function (FAST-METHOD (SETF DOCUMENTATION) (T DOCUMENTATION-MIXIN)) */

888

889

static object LI12(V217,V218,V219,V220,V221)

890

891

object V217;object V218;object V219;object V220;object V221;

892

{ VMB12 VMS12 VMV12

893

goto TTL;

894

TTL:;

895

{register object V222;

896

object V223;

897

V222= (V221);

898

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

899

goto T360;}

900

{object V224;

901

V224= CMPcar((V222));

902

V222= CMPcdr((V222));

903

V223= (V224);

904

goto T358;}

905

goto T360;

906

T360:;

907

V223= Cnil;

908

goto T358;

909

T358:;

910

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

911

base[2]= V219;

912

base[3]= V220;

913

base[4]= VV[51];

914

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

915

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

916

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

917

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

918

else super_funcall_no_event(_funobj);}

919

vs_top=sup;

920

{object V228 = vs_base[0];

921

VMR12(V228)}}

922

base[0]=base[0];

923

return Cnil;

924

}

925

/* function definition for (FAST-METHOD DOCUMENTATION (STANDARD-SLOT-DEFINITION)) */

926

927

static void L13()

928

{register object *base=vs_base;

929

930

vs_check;

931

{register object V229;

932

object V230;

933

934

object V232;

935

check_arg(4);

936

V229=(base[0]);

937

V230=(base[1]);

938

V231=(base[2]);

939

V232=(base[3]);

940

vs_top=sup;

941

goto TTL;

942

TTL:;

943

{register object V233;

944

object V234;

945

V233= (V232);

946

if(((V233))==Cnil){

947

goto T374;}

948

{object V235;

949

V235= CMPcar((V233));

950

V233= CMPcdr((V233));

951

V234= (V235);

952

goto T372;}

953

goto T374;

954

T374:;

955

V234= Cnil;

956

goto T372;

957

T372:;

958

{object V236;

959

object V237;

960

V236= CMPcar((V229));

961

V237= CMPcdr((V229));

962

{object V238;

963

if(type_of(V231)==t_structure){

964

goto T387;}

965

goto T385;

966

goto T387;

967

T387:;

968

if(!(((V231)->str.str_def)==(VV[54]))){

969

goto T385;}

970

V238= STREF(object,(V231),4);

971

goto T383;

972

goto T385;

973

T385:;{object V240;

974

V240= (VV[16]->s.s_dbind);

975

base[5]= small_fixnum(14);

976

base[6]= (V231);

977

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

978

(void) (*Lnk256)();

979

vs_top=sup;

980

V241= vs_base[0];

981

if(!((V240)==(CMPcar(V241)))){

982

goto T390;}}

983

V238= CMPcar(((V231))->cc.cc_turbo[12]);

984

goto T383;

985

goto T390;

986

T390:;

987

V238= Cnil;

988

goto T383;

989

T383:;

990

{register object V242;

991

V242= ((V236))->v.v_self[1];

992

if(!(type_of(V242)==t_fixnum)){

993

goto T399;}

994

V242= ((V238))->v.v_self[fix((V242))];

995

goto T397;

996

goto T399;

997

T399:;

998

V242= VV[17];

999

goto T397;

1000

T397:;

1001

if(!(((V242))==(VV[17]))){

1002

goto T402;}

1003

base[5]= (V231);

1004

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

1005

(void) (*Lnk274)(Lclptr274);

1006

return;

1007

goto T402;

1008

T402:;

1009

base[5]= (V242);

1010

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

1011

return;}}}}

1012

}

1013

}

1014

/* function definition for (FAST-METHOD (SETF DOCUMENTATION) (T STANDARD-SLOT-DEFINITION)) */

1015

1016

static void L14()

1017

{register object *base=vs_base;

1018

1019

vs_check;

1020

{register object V244;

1021

object V245;

1022

object V246;

1023

1024

object V248;

1025

check_arg(5);

1026

V244=(base[0]);

1027

V245=(base[1]);

1028

V246=(base[2]);

1029

V247=(base[3]);

1030

V248=(base[4]);

1031

vs_top=sup;

1032

goto TTL;

1033

TTL:;

1034

{register object V249;

1035

object V250;

1036

V249= (V248);

1037

if(((V249))==Cnil){

1038

goto T410;}

1039

{object V251;

1040

V251= CMPcar((V249));

1041

V249= CMPcdr((V249));

1042

V250= (V251);

1043

goto T408;}

1044

goto T410;

1045

T410:;

1046

V250= Cnil;

1047

goto T408;

1048

T408:;

1049

{object V252;

1050

object V253;

1051

V252= CMPcar((V244));

1052

V253= CMPcdr((V244));

1053

{object V254;

1054

if(type_of(V247)==t_structure){

1055

goto T423;}

1056

goto T421;

1057

goto T423;

1058

T423:;

1059

if(!(((V247)->str.str_def)==(VV[56]))){

1060

goto T421;}

1061

V254= STREF(object,(V247),4);

1062

goto T419;

1063

goto T421;

1064

T421:;{object V256;

1065

V256= (VV[16]->s.s_dbind);

1066

base[6]= small_fixnum(14);

1067

base[7]= (V247);

1068

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

1069

(void) (*Lnk256)();

1070

vs_top=sup;

1071

V257= vs_base[0];

1072

if(!((V256)==(CMPcar(V257)))){

1073

goto T426;}}

1074

V254= CMPcar(((V247))->cc.cc_turbo[12]);

1075

goto T419;

1076

goto T426;

1077

T426:;

1078

V254= Cnil;

1079

goto T419;

1080

T419:;

1081

{object V259;

1082

V259= ((V252))->v.v_self[1];

1083

if(!(type_of(V259)==t_fixnum)){

1084

goto T433;}

1085

base[6]= ((V254))->v.v_self[fix((V259))]= (V246);

1086

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

1087

return;

1088

goto T433;

1089

T433:;

1090

base[6]= V246;

1091

base[7]= (V247);

1092

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

1093

(void) (*Lnk275)(Lclptr275);

1094

return;}}}}

1095

}

1096

}

1097

/* local entry for function (FAST-METHOD CLASS-FINALIZED-P (PCL-CLASS)) */

1098

1099

static object LI15(V264,V265,V266)

1100

1101

1102

{ VMB15 VMS15 VMV15

1103

goto TTL;

1104

TTL:;

1105

{object V268;

1106

object V269;

1107

V268= CMPcar((V264));

1108

V269= CMPcdr((V264));

1109

{object V270;

1110

if(type_of(V266)==t_structure){

1111

goto T447;}

1112

goto T445;

1113

goto T447;

1114

T447:;

1115

if(!(((V266)->str.str_def)==(VV[58]))){

1116

goto T445;}

1117

V270= STREF(object,(V266),4);

1118

goto T443;

1119

goto T445;

1120

T445:;{object V272;

1121

V272= (VV[16]->s.s_dbind);

1122

base[0]= small_fixnum(14);

1123

base[1]= (V266);

1124

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

1125

(void) (*Lnk256)();

1126

vs_top=sup;

1127

V273= vs_base[0];

1128

if(!((V272)==(CMPcar(V273)))){

1129

goto T450;}}

1130

V270= CMPcar(((V266))->cc.cc_turbo[12]);

1131

goto T443;

1132

goto T450;

1133

T450:;

1134

V270= Cnil;

1135

goto T443;

1136

T443:;

1137

{register object V276;

1138

V276= ((V268))->v.v_self[1];

1139

if(!(type_of(V276)==t_fixnum)){

1140

goto T461;}

1141

V276= ((V270))->v.v_self[fix((V276))];

1142

goto T459;

1143

goto T461;

1144

T461:;

1145

V276= VV[17];

1146

goto T459;

1147

T459:;

1148

if(!(((V276))==(VV[17]))){

1149

goto T464;}

1150

base[0]= (V266);

1151

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

1152

(void) (*Lnk276)(Lclptr276);

1153

vs_top=sup;

1154

V275= vs_base[0];

1155

goto T456;

1156

goto T464;

1157

T464:;

1158

V275= (V276);}

1159

goto T456;

1160

T456:;

1161

{object V278 = ((((V275)==Cnil?Ct:Cnil))==Cnil?Ct:Cnil);

1162

VMR15(V278)}}}

1163

base[0]=base[0];

1164

return Cnil;

1165

}

1166

/* function definition for (FAST-METHOD CLASS-PROTOTYPE (STD-CLASS)) */

1167

1168

static void L16()

1169

{register object *base=vs_base;

1170

1171

vs_check;

1172

{register object V279;

1173

object V280;

1174

1175

check_arg(3);

1176

V279=(base[0]);

1177

V280=(base[1]);

1178

V281=(base[2]);

1179

vs_top=sup;

1180

goto TTL;

1181

TTL:;

1182

{object V283;

1183

object V284;

1184

V283= CMPcar((V279));

1185

V284= CMPcdr((V279));

1186

{object V285;

1187

if(type_of(V281)==t_structure){

1188

goto T477;}

1189

goto T475;

1190

goto T477;

1191

T477:;

1192

if(!(((V281)->str.str_def)==(VV[60]))){

1193

goto T475;}

1194

V285= STREF(object,(V281),4);

1195

goto T473;

1196

goto T475;

1197

T475:;{object V287;

1198

V287= (VV[16]->s.s_dbind);

1199

base[3]= small_fixnum(14);

1200

base[4]= (V281);

1201

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

1202

(void) (*Lnk256)();

1203

vs_top=sup;

1204

V288= vs_base[0];

1205

if(!((V287)==(CMPcar(V288)))){

1206

goto T480;}}

1207

V285= CMPcar(((V281))->cc.cc_turbo[12]);

1208

goto T473;

1209

goto T480;

1210

T480:;

1211

V285= Cnil;

1212

goto T473;

1213

T473:;

1214

{object V290;

1215

{register object V291;

1216

V291= ((V283))->v.v_self[1];

1217

if(!(type_of(V291)==t_fixnum)){

1218

goto T491;}

1219

V291= ((V285))->v.v_self[fix((V291))];

1220

goto T489;

1221

goto T491;

1222

T491:;

1223

V291= VV[17];

1224

goto T489;

1225

T489:;

1226

if(!(((V291))==(VV[17]))){

1227

goto T494;}

1228

base[3]= (V281);

1229

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

1230

(void) (*Lnk277)(Lclptr277);

1231

vs_top=sup;

1232

V290= vs_base[0];

1233

goto T486;

1234

goto T494;

1235

T494:;

1236

V290= (V291);}

1237

goto T486;

1238

T486:;

1239

if(((V290))==Cnil){

1240

goto T498;}

1241

base[3]= (V290);

1242

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

1243

return;

1244

goto T498;

1245

T498:;

1246

{object V293;

1247

base[3]= (V281);

1248

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

1249

(void) (*Lnk278)(Lclptr278);

1250

vs_top=sup;

1251

V293= vs_base[0];

1252

{object V294;

1253

V294= ((V283))->v.v_self[1];

1254

if(!(type_of(V294)==t_fixnum)){

1255

goto T504;}

1256

base[3]= ((V285))->v.v_self[fix((V294))]= ((V293));

1257

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

1258

return;

1259

goto T504;

1260

T504:;

1261

base[3]= (V293);

1262

base[4]= (V281);

1263

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

1264

(void) (*Lnk279)(Lclptr279);

1265

return;}}}}}

1266

}

1267

}

1268

/* function definition for (FAST-METHOD CLASS-PROTOTYPE (STRUCTURE-CLASS)) */

1269

1270

static void L17()

1271

{register object *base=vs_base;

1272

1273

vs_check;

1274

{register object V296;

1275

object V297;

1276

1277

check_arg(3);

1278

V296=(base[0]);

1279

V297=(base[1]);

1280

V298=(base[2]);

1281

vs_top=sup;

1282

goto TTL;

1283

TTL:;

1284

{register object V300;

1285

object V301;

1286

V300= CMPcar((V296));

1287

V301= CMPcdr((V296));

1288

{object V302;

1289

if(type_of(V298)==t_structure){

1290

goto T518;}

1291

goto T516;

1292

goto T518;

1293

T518:;

1294

if(!(((V298)->str.str_def)==(VV[62]))){

1295

goto T516;}

1296

V302= STREF(object,(V298),4);

1297

goto T514;

1298

goto T516;

1299

T516:;{object V304;

1300

V304= (VV[16]->s.s_dbind);

1301

base[3]= small_fixnum(14);

1302

base[4]= (V298);

1303

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

1304

(void) (*Lnk256)();

1305

vs_top=sup;

1306

V305= vs_base[0];

1307

if(!((V304)==(CMPcar(V305)))){

1308

goto T521;}}

1309

V302= CMPcar(((V298))->cc.cc_turbo[12]);

1310

goto T514;

1311

goto T521;

1312

T521:;

1313

V302= Cnil;

1314

goto T514;

1315

T514:;

1316

{object V307;

1317

{register object V308;

1318

V308= ((V300))->v.v_self[2];

1319

if(!(type_of(V308)==t_fixnum)){

1320

goto T532;}

1321

V308= ((V302))->v.v_self[fix((V308))];

1322

goto T530;

1323

goto T532;

1324

T532:;

1325

V308= VV[17];

1326

goto T530;

1327

T530:;

1328

if(!(((V308))==(VV[17]))){

1329

goto T535;}

1330

base[3]= (V298);

1331

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

1332

(void) (*Lnk277)(Lclptr277);

1333

vs_top=sup;

1334

V307= vs_base[0];

1335

goto T527;

1336

goto T535;

1337

T535:;

1338

V307= (V308);}

1339

goto T527;

1340

T527:;

1341

if(((V307))==Cnil){

1342

goto T539;}

1343

base[3]= (V307);

1344

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

1345

return;

1346

goto T539;

1347

T539:;

1348

{object V310;

1349

{register object V311;

1350

V311= ((V300))->v.v_self[1];

1351

if(!(type_of(V311)==t_fixnum)){

1352

goto T549;}

1353

V311= ((V302))->v.v_self[fix((V311))];

1354

goto T547;

1355

goto T549;

1356

T549:;

1357

V311= VV[17];

1358

goto T547;

1359

T547:;

1360

if(!(((V311))==(VV[17]))){

1361

goto T552;}

1362

base[3]= (V298);

1363

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

1364

(void) (*Lnk280)(Lclptr280);

1365

vs_top=sup;

1366

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

1367

goto T543;}

1368

goto T544;

1369

goto T552;

1370

T552:;

1371

if(((V311))==Cnil){

1372

goto T543;}}

1373

goto T544;

1374

T544:;

1375

base[3]= (V298);

1376

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

1377

(void) (*Lnk278)(Lclptr278);

1378

vs_top=sup;

1379

V310= vs_base[0];

1380

goto T541;

1381

goto T543;

1382

T543:;

1383

{register object V314;

1384

V314= ((V300))->v.v_self[3];

1385

if(!(type_of(V314)==t_fixnum)){

1386

goto T561;}

1387

V314= ((V302))->v.v_self[fix((V314))];

1388

goto T559;

1389

goto T561;

1390

T561:;

1391

V314= VV[17];

1392

goto T559;

1393

T559:;

1394

if(!(((V314))==(VV[17]))){

1395

goto T564;}

1396

base[3]= (V298);

1397

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

1398

(void) (*Lnk276)(Lclptr276);

1399

vs_top=sup;

1400

V313= vs_base[0];

1401

goto T556;

1402

goto T564;

1403

T564:;

1404

V313= (V314);}

1405

goto T556;

1406

T556:;

1407

V310= (VFUN_NARGS=1,(*(LnkLI281))(V313));

1408

goto T541;

1409

T541:;

1410

{object V316;

1411

V316= ((V300))->v.v_self[2];

1412

if(!(type_of(V316)==t_fixnum)){

1413

goto T569;}

1414

base[3]= ((V302))->v.v_self[fix((V316))]= ((V310));

1415

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

1416

return;

1417

goto T569;

1418

T569:;

1419

base[3]= (V310);

1420

base[4]= (V298);

1421

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

1422

(void) (*Lnk279)(Lclptr279);

1423

return;}}}}}

1424

}

1425

}

1426

/* local entry for function (FAST-METHOD CLASS-DIRECT-DEFAULT-INITARGS (SLOT-CLASS)) */

1427

1428

static object LI18(V321,V322,V323)

1429

1430

object V321;object V322;object V323;

1431

{ VMB18 VMS18 VMV18

1432

goto TTL;

1433

TTL:;

1434

{object V325 = (*(LnkLI272))((V323),VV[63]);

1435

VMR18(V325)}

1436

return Cnil;

1437

}

1438

/* local entry for function (FAST-METHOD CLASS-DEFAULT-INITARGS (SLOT-CLASS)) */

1439

1440

static object LI19(V329,V330,V331)

1441

1442

object V329;object V330;object V331;

1443

{ VMB19 VMS19 VMV19

1444

goto TTL;

1445

TTL:;

1446

{object V333 = (*(LnkLI272))((V331),VV[64]);

1447

VMR19(V333)}

1448

return Cnil;

1449

}

1450

/* local entry for function (FAST-METHOD CLASS-CONSTRUCTORS (SLOT-CLASS)) */

1451

1452

static object LI20(V337,V338,V339)

1453

1454

object V337;object V338;object V339;

1455

{ VMB20 VMS20 VMV20

1456

goto TTL;

1457

TTL:;

1458

{object V341 = (*(LnkLI272))((V339),VV[65]);

1459

VMR20(V341)}

1460

return Cnil;

1461

}

1462

/* local entry for function (FAST-METHOD CLASS-SLOT-CELLS (STD-CLASS)) */

1463

1464

static object LI21(V345,V346,V347)

1465

1466

object V345;object V346;object V347;

1467

{ VMB21 VMS21 VMV21

1468

goto TTL;

1469

TTL:;

1470

{object V349 = (*(LnkLI272))((V347),VV[66]);

1471

VMR21(V349)}

1472

return Cnil;

1473

}

1474

/* local entry for function (FAST-METHOD ADD-DIRECT-SUBCLASS (CLASS CLASS)) */

1475

1476

static object LI22(V354,V355,V356,V357)

1477

1478

1479

{ VMB22 VMS22 VMV22

1480

goto TTL;

1481

TTL:;

1482

{object V359;

1483

object V360;

1484

V359= CMPcar((V354));

1485

V360= CMPcdr((V354));

1486

{object V361;

1487

if(type_of(V356)==t_structure){

1488

goto T591;}

1489

goto T589;

1490

goto T591;

1491

T591:;

1492

if(!(((V356)->str.str_def)==(VV[68]))){

1493

goto T589;}

1494

V361= STREF(object,(V356),4);

1495

goto T587;

1496

goto T589;

1497

T589:;{object V363;

1498

V363= (VV[16]->s.s_dbind);

1499

base[0]= small_fixnum(14);

1500

base[1]= (V356);

1501

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

1502

(void) (*Lnk256)();

1503

vs_top=sup;

1504

V364= vs_base[0];

1505

if(!((V363)==(CMPcar(V364)))){

1506

goto T594;}}

1507

V361= CMPcar(((V356))->cc.cc_turbo[12]);

1508

goto T587;

1509

goto T594;

1510

T594:;

1511

V361= Cnil;

1512

goto T587;

1513

T587:;

1514

{object V367;

1515

base[0]= V357;

1516

{register object V368;

1517

V368= ((V359))->v.v_self[1];

1518

if(!(type_of(V368)==t_fixnum)){

1519

goto T608;}

1520

V368= ((V361))->v.v_self[fix((V368))];

1521

goto T606;

1522

goto T608;

1523

T608:;

1524

V368= VV[17];

1525

goto T606;

1526

T606:;

1527

if(!(((V368))==(VV[17]))){

1528

goto T611;}

1529

base[2]= (V356);

1530

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

1531

(void) (*Lnk282)(Lclptr282);

1532

vs_top=sup;

1533

base[1]= vs_base[0];

1534

goto T603;

1535

goto T611;

1536

T611:;

1537

base[1]= (V368);}

1538

goto T603;

1539

T603:;

1540

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

1541

Ladjoin();

1542

vs_top=sup;

1543

V367= vs_base[0];

1544

{object V370;

1545

V370= ((V359))->v.v_self[1];

1546

if(!(type_of(V370)==t_fixnum)){

1547

goto T616;}

1548

(void)(((V361))->v.v_self[fix((V370))]= ((V367)));

1549

goto T600;

1550

goto T616;

1551

T616:;

1552

base[0]= (V367);

1553

base[1]= (V356);

1554

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

1555

(void) (*Lnk283)(Lclptr283);

1556

vs_top=sup;}}

1557

goto T600;

1558

T600:;

1559

{object V372 = (V357);

1560

VMR22(V372)}}}

1561

base[0]=base[0];

1562

return Cnil;

1563

}

1564

/* local entry for function (FAST-METHOD REMOVE-DIRECT-SUBCLASS (CLASS CLASS)) */

1565

1566

static object LI23(V377,V378,V379,V380)

1567

1568

1569

{ VMB23 VMS23 VMV23

1570

goto TTL;

1571

TTL:;

1572

{object V382;

1573

object V383;

1574

V382= CMPcar((V377));

1575

V383= CMPcdr((V377));

1576

{object V384;

1577

if(type_of(V379)==t_structure){

1578

goto T630;}

1579

goto T628;

1580

goto T630;

1581

T630:;

1582

if(!(((V379)->str.str_def)==(VV[70]))){

1583

goto T628;}

1584

V384= STREF(object,(V379),4);

1585

goto T626;

1586

goto T628;

1587

T628:;{object V386;

1588

V386= (VV[16]->s.s_dbind);

1589

base[0]= small_fixnum(14);

1590

base[1]= (V379);

1591

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

1592

(void) (*Lnk256)();

1593

vs_top=sup;

1594

V387= vs_base[0];

1595

if(!((V386)==(CMPcar(V387)))){

1596

goto T633;}}

1597

V384= CMPcar(((V379))->cc.cc_turbo[12]);

1598

goto T626;

1599

goto T633;

1600

T633:;

1601

V384= Cnil;

1602

goto T626;

1603

T626:;

1604

{object V389;

1605

base[0]= (V380);

1606

{register object V390;

1607

V390= ((V382))->v.v_self[1];

1608

if(!(type_of(V390)==t_fixnum)){

1609

goto T647;}

1610

V390= ((V384))->v.v_self[fix((V390))];

1611

goto T645;

1612

goto T647;

1613

T647:;

1614

V390= VV[17];

1615

goto T645;

1616

T645:;

1617

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

1618

goto T650;}

1619

base[2]= (V379);

1620

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

1621

(void) (*Lnk282)(Lclptr282);

1622

vs_top=sup;

1623

base[1]= vs_base[0];

1624

goto T642;

1625

goto T650;

1626

T650:;

1627

base[1]= (V390);}

1628

goto T642;

1629

T642:;

1630

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

1631

(void) (*Lnk145)();

1632

vs_top=sup;

1633

V389= vs_base[0];

1634

{object V392;

1635

V392= ((V382))->v.v_self[1];

1636

if(!(type_of(V392)==t_fixnum)){

1637

goto T655;}

1638

(void)(((V384))->v.v_self[fix((V392))]= ((V389)));

1639

goto T639;

1640

goto T655;

1641

T655:;

1642

base[0]= (V389);

1643

base[1]= (V379);

1644

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

1645

(void) (*Lnk283)(Lclptr283);

1646

vs_top=sup;}}

1647

goto T639;

1648

T639:;

1649

{object V394 = (V380);

1650

VMR23(V394)}}}

1651

base[0]=base[0];

1652

return Cnil;

1653

}

1654

/* local entry for function (FAST-METHOD ADD-DIRECT-METHOD (CLASS METHOD)) */

1655

1656

static object LI24(V399,V400,V401,V402)

1657

1658

1659

{ VMB24 VMS24 VMV24

1660

goto TTL;

1661

TTL:;

1662

{register object V404;

1663

object V405;

1664

V404= CMPcar((V399));

1665

V405= CMPcdr((V399));

1666

{object V406;

1667

if(type_of(V401)==t_structure){

1668

goto T669;}

1669

goto T667;

1670

goto T669;

1671

T669:;

1672

if(!(((V401)->str.str_def)==(VV[72]))){

1673

goto T667;}

1674

V406= STREF(object,(V401),4);

1675

goto T665;

1676

goto T667;

1677

T667:;{object V408;

1678

V408= (VV[16]->s.s_dbind);

1679

base[0]= small_fixnum(14);

1680

base[1]= (V401);

1681

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

1682

(void) (*Lnk256)();

1683

vs_top=sup;

1684

V409= vs_base[0];

1685

if(!((V408)==(CMPcar(V409)))){

1686

goto T672;}}

1687

V406= CMPcar(((V401))->cc.cc_turbo[12]);

1688

goto T665;

1689

goto T672;

1690

T672:;

1691

V406= Cnil;

1692

goto T665;

1693

T665:;

1694

{object V411;

1695

object V412;

1696

{register object V413;

1697

V413= ((V404))->v.v_self[1];

1698

if(!(type_of(V413)==t_fixnum)){

1699

goto T685;}

1700

V413= ((V406))->v.v_self[fix((V413))];

1701

goto T683;

1702

goto T685;

1703

T685:;

1704

V413= VV[17];

1705

goto T683;

1706

T683:;

1707

if(!(((V413))==(VV[17]))){

1708

goto T688;}

1709

base[2]= (V401);

1710

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

1711

(void) (*Lnk284)(Lclptr284);

1712

vs_top=sup;

1713

V411= vs_base[0];

1714

goto T680;

1715

goto T688;

1716

T688:;

1717

V411= (V413);}

1718

goto T680;

1719

T680:;

1720

base[2]= (V402);

1721

{register object V416;

1722

V416= ((V404))->v.v_self[1];

1723

if(!(type_of(V416)==t_fixnum)){

1724

goto T699;}

1725

V416= ((V406))->v.v_self[fix((V416))];

1726

goto T697;

1727

goto T699;

1728

T699:;

1729

V416= VV[17];

1730

goto T697;

1731

T697:;

1732

if(!(((V416))==(VV[17]))){

1733

goto T702;}

1734

base[4]= (V401);

1735

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

1736

(void) (*Lnk284)(Lclptr284);

1737

vs_top=sup;

1738

V415= vs_base[0];

1739

goto T694;

1740

goto T702;

1741

T702:;

1742

V415= (V416);}

1743

goto T694;

1744

T694:;

1745

base[3]= CMPcar(V415);

1746

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

1747

Ladjoin();

1748

vs_top=sup;

1749

V412= vs_base[0];

1750

((V411))->c.c_car = (V412);}

1751

{object V418;

1752

{register object V420;

1753

V420= ((V404))->v.v_self[1];

1754

if(!(type_of(V420)==t_fixnum)){

1755

goto T711;}

1756

V420= ((V406))->v.v_self[fix((V420))];

1757

goto T709;

1758

goto T711;

1759

T711:;

1760

V420= VV[17];

1761

goto T709;

1762

T709:;

1763

if(!(((V420))==(VV[17]))){

1764

goto T714;}

1765

base[1]= (V401);

1766

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

1767

(void) (*Lnk284)(Lclptr284);

1768

vs_top=sup;

1769

V418= vs_base[0];

1770

goto T706;

1771

goto T714;

1772

T714:;

1773

V418= (V420);}

1774

goto T706;

1775

T706:;

1776

((V418))->c.c_cdr = Cnil;}

1777

{object V422 = (V402);

1778

VMR24(V422)}}}

1779

base[0]=base[0];

1780

return Cnil;

1781

}

1782

/* local entry for function (FAST-METHOD REMOVE-DIRECT-METHOD (CLASS METHOD)) */

1783

1784

static object LI25(V427,V428,V429,V430)

1785

1786

1787

{ VMB25 VMS25 VMV25

1788

goto TTL;

1789

TTL:;

1790

{register object V432;

1791

object V433;

1792

V432= CMPcar((V427));

1793

V433= CMPcdr((V427));

1794

{object V434;

1795

if(type_of(V429)==t_structure){

1796

goto T728;}

1797

goto T726;

1798

goto T728;

1799

T728:;

1800

if(!(((V429)->str.str_def)==(VV[74]))){

1801

goto T726;}

1802

V434= STREF(object,(V429),4);

1803

goto T724;

1804

goto T726;

1805

T726:;{object V436;

1806

V436= (VV[16]->s.s_dbind);

1807

base[0]= small_fixnum(14);

1808

base[1]= (V429);

1809

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

1810

(void) (*Lnk256)();

1811

vs_top=sup;

1812

V437= vs_base[0];

1813

if(!((V436)==(CMPcar(V437)))){

1814

goto T731;}}

1815

V434= CMPcar(((V429))->cc.cc_turbo[12]);

1816

goto T724;

1817

goto T731;

1818

T731:;

1819

V434= Cnil;

1820

goto T724;

1821

T724:;

1822

{object V439;

1823

object V440;

1824

{register object V441;

1825

V441= ((V432))->v.v_self[1];

1826

if(!(type_of(V441)==t_fixnum)){

1827

goto T744;}

1828

V441= ((V434))->v.v_self[fix((V441))];

1829

goto T742;

1830

goto T744;

1831

T744:;

1832

V441= VV[17];

1833

goto T742;

1834

T742:;

1835

if(!(((V441))==(VV[17]))){

1836

goto T747;}

1837

base[2]= (V429);

1838

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

1839

(void) (*Lnk284)(Lclptr284);

1840

vs_top=sup;

1841

V439= vs_base[0];

1842

goto T739;

1843

goto T747;

1844

T747:;

1845

V439= (V441);}

1846

goto T739;

1847

T739:;

1848

base[2]= (V430);

1849

{register object V444;

1850

V444= ((V432))->v.v_self[1];

1851

if(!(type_of(V444)==t_fixnum)){

1852

goto T758;}

1853

V444= ((V434))->v.v_self[fix((V444))];

1854

goto T756;

1855

goto T758;

1856

T758:;

1857

V444= VV[17];

1858

goto T756;

1859

T756:;

1860

if(!(((V444))==(VV[17]))){

1861

goto T761;}

1862

base[4]= (V429);

1863

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

1864

(void) (*Lnk284)(Lclptr284);

1865

vs_top=sup;

1866

V443= vs_base[0];

1867

goto T753;

1868

goto T761;

1869

T761:;

1870

V443= (V444);}

1871

goto T753;

1872

T753:;

1873

base[3]= CMPcar(V443);

1874

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

1875

(void) (*Lnk145)();

1876

vs_top=sup;

1877

V440= vs_base[0];

1878

((V439))->c.c_car = (V440);}

1879

{object V446;

1880

{register object V448;

1881

V448= ((V432))->v.v_self[1];

1882

if(!(type_of(V448)==t_fixnum)){

1883

goto T770;}

1884

V448= ((V434))->v.v_self[fix((V448))];

1885

goto T768;

1886

goto T770;

1887

T770:;

1888

V448= VV[17];

1889

goto T768;

1890

T768:;

1891

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

1892

goto T773;}

1893

base[1]= (V429);

1894

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

1895

(void) (*Lnk284)(Lclptr284);

1896

vs_top=sup;

1897

V446= vs_base[0];

1898

goto T765;

1899

goto T773;

1900

T773:;

1901

V446= (V448);}

1902

goto T765;

1903

T765:;

1904

((V446))->c.c_cdr = Cnil;}

1905

{object V450 = (V430);

1906

VMR25(V450)}}}

1907

base[0]=base[0];

1908

return Cnil;

1909

}

1910

/* local entry for function (FAST-METHOD SPECIALIZER-DIRECT-METHODS (CLASS)) */

1911

1912

static object LI26(V454,V455,V456)

1913

1914

1915

{ VMB26 VMS26 VMV26

1916

goto TTL;

1917

TTL:;

1918

{object V458;

1919

object V459;

1920

V458= CMPcar((V454));

1921

V459= CMPcdr((V454));

1922

{object V460;

1923

if(type_of(V456)==t_structure){

1924

goto T787;}

1925

goto T785;

1926

goto T787;

1927

T787:;

1928

if(!(((V456)->str.str_def)==(VV[76]))){

1929

goto T785;}

1930

V460= STREF(object,(V456),4);

1931

goto T783;

1932

goto T785;

1933

T785:;{object V462;

1934

V462= (VV[16]->s.s_dbind);

1935

base[0]= small_fixnum(14);

1936

base[1]= (V456);

1937

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

1938

(void) (*Lnk256)();

1939

vs_top=sup;

1940

V463= vs_base[0];

1941

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

1942

goto T790;}}

1943

V460= CMPcar(((V456))->cc.cc_turbo[12]);

1944

goto T783;

1945

goto T790;

1946

T790:;

1947

V460= Cnil;

1948

goto T783;

1949

T783:;

1950

{register object V466;

1951

V466= ((V458))->v.v_self[1];

1952

if(!(type_of(V466)==t_fixnum)){

1953

goto T801;}

1954

V466= ((V460))->v.v_self[fix((V466))];

1955

goto T799;

1956

goto T801;

1957

T801:;

1958

V466= VV[17];

1959

goto T799;

1960

T799:;

1961

if(!(((V466))==(VV[17]))){

1962

goto T804;}

1963

base[0]= (V456);

1964

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

1965

(void) (*Lnk284)(Lclptr284);

1966

vs_top=sup;

1967

V465= vs_base[0];

1968

goto T796;

1969

goto T804;

1970

T804:;

1971

V465= (V466);}

1972

goto T796;

1973

T796:;

1974

{object V468 = CMPcar(V465);

1975

VMR26(V468)}}}

1976

base[0]=base[0];

1977

return Cnil;

1978

}

1979

/* local entry for function (FAST-METHOD SPECIALIZER-DIRECT-GENERIC-FUNCTIONS (CLASS)) */

1980

1981

static object LI27(V472,V473,V474)

1982

1983

object V472;object V473;register object V474;

1984

{ VMB27 VMS27 VMV27

1985

goto TTL;

1986

TTL:;

1987

{object V476;

1988

object V477;

1989

V476= CMPcar((V472));

1990

V477= CMPcdr((V472));

1991

{object V478;

1992

if(type_of(V474)==t_structure){

1993

goto T817;}

1994

goto T815;

1995

goto T817;

1996

T817:;

1997

if(!(((V474)->str.str_def)==(VV[78]))){

1998

goto T815;}

1999

V478= STREF(object,(V474),4);

2000

goto T813;

2001

goto T815;

2002

T815:;{object V480;

2003

V480= (VV[16]->s.s_dbind);

2004

base[0]= small_fixnum(14);

2005

base[1]= (V474);

2006

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

2007

(void) (*Lnk256)();

2008

vs_top=sup;

2009

V481= vs_base[0];

2010

if(!((V480)==(CMPcar(V481)))){

2011

goto T820;}}

2012

V478= CMPcar(((V474))->cc.cc_turbo[12]);

2013

goto T813;

2014

goto T820;

2015

T820:;

2016

V478= Cnil;

2017

goto T813;

2018

T813:;

2019

{object V483;

2020

{object V485;

2021

V485= ((V476))->v.v_self[1];

2022

if(!(type_of(V485)==t_fixnum)){

2023

goto T832;}

2024

V485= ((V478))->v.v_self[fix((V485))];

2025

goto T830;

2026

goto T832;

2027

T832:;

2028

V485= VV[17];

2029

goto T830;

2030

T830:;

2031

if(!(((V485))==(VV[17]))){

2032

goto T835;}

2033

base[0]= (V474);

2034

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

2035

(void) (*Lnk284)(Lclptr284);

2036

vs_top=sup;

2037

V484= vs_base[0];

2038

goto T827;

2039

goto T835;

2040

T835:;

2041

V484= (V485);}

2042

goto T827;

2043

T827:;

2044

V483= CMPcdr(V484);

2045

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

2046

goto T839;}

2047

{object V487 = (V483);

2048

VMR27(V487)}

2049

goto T839;

2050

T839:;

2051

{object V488;

2052

object V489;

2053

{object V490;

2054

V490= ((V476))->v.v_self[1];

2055

if(!(type_of(V490)==t_fixnum)){

2056

goto T846;}

2057

V490= ((V478))->v.v_self[fix((V490))];

2058

goto T844;

2059

goto T846;

2060

T846:;

2061

V490= VV[17];

2062

goto T844;

2063

T844:;

2064

if(!(((V490))==(VV[17]))){

2065

goto T849;}

2066

base[2]= (V474);

2067

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

2068

(void) (*Lnk284)(Lclptr284);

2069

vs_top=sup;

2070

V488= vs_base[0];

2071

goto T841;

2072

goto T849;

2073

T849:;

2074

V488= (V490);}

2075

goto T841;

2076

T841:;

2077

{register object V492;

2078

2079

V492= Cnil;

2080

V493= Cnil;

2081

{register object V494;

2082

2083

{object V497;

2084

V497= ((V476))->v.v_self[1];

2085

if(!(type_of(V497)==t_fixnum)){

2086

goto T862;}

2087

V497= ((V478))->v.v_self[fix((V497))];

2088

goto T860;

2089

goto T862;

2090

T862:;

2091

V497= VV[17];

2092

goto T860;

2093

T860:;

2094

if(!(((V497))==(VV[17]))){

2095

goto T865;}

2096

base[4]= (V474);

2097

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

2098

(void) (*Lnk284)(Lclptr284);

2099

vs_top=sup;

2100

V496= vs_base[0];

2101

goto T857;

2102

goto T865;

2103

T865:;

2104

V496= (V497);}

2105

goto T857;

2106

T857:;

2107

V494= CMPcar(V496);

2108

V495= CMPcar((V494));

2109

goto T870;

2110

T870:;

2111

if(!(((V494))==Cnil)){

2112

goto T871;}

2113

goto T855;

2114

goto T871;

2115

T871:;

2116

{register object V499;

2117

base[4]= (V495);

2118

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

2119

(void) (*Lnk285)(Lclptr285);

2120

vs_top=sup;

2121

V499= vs_base[0];

2122

if(((V492))!=Cnil){

2123

goto T879;}

2124

V493= make_cons((V499),Cnil);

2125

V492= (V493);

2126

goto T875;

2127

goto T879;

2128

T879:;

2129

{register object x= (V499),V500= (V492);

2130

while(V500!=Cnil)

2131

if(x==(V500->c.c_car)){

2132

goto T875;

2133

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

2134

V502= make_cons((V499),Cnil);

2135

((V493))->c.c_cdr = /* INLINE-ARGS */V502;

2136

V501= (V493);

2137

V493= CMPcdr(V501);}

2138

goto T875;

2139

T875:;

2140

V494= CMPcdr((V494));

2141

V495= CMPcar((V494));

2142

goto T870;}

2143

goto T855;

2144

T855:;

2145

V489= (V492);}

2146

((V488))->c.c_cdr = (V489);

2147

{object V503 = (V489);

2148

VMR27(V503)}}}}}

2149

base[0]=base[0];

2150

return Cnil;

2151

}

2152

/* local entry for function (FAST-METHOD SPECIALIZER-METHOD-TABLE (EQL-SPECIALIZER)) */

2153

2154

static object LI28(V507,V508,V509)

2155

2156

object V507;object V508;object V509;

2157

{ VMB28 VMS28 VMV28

2158

goto TTL;

2159

TTL:;

2160

{object V511 = (VV[79]->s.s_dbind);

2161

VMR28(V511)}

2162

return Cnil;

2163

}

2164

/* local entry for function (FAST-METHOD SPECIALIZER-METHOD-TABLE (CLASS-EQ-SPECIALIZER)) */

2165

2166

static object LI29(V515,V516,V517)

2167

2168

object V515;object V516;object V517;

2169

{ VMB29 VMS29 VMV29

2170

goto TTL;

2171

TTL:;

2172

{object V519 = (VV[80]->s.s_dbind);

2173

VMR29(V519)}

2174

return Cnil;

2175

}

2176

/* local entry for function (FAST-METHOD ADD-DIRECT-METHOD (SPECIALIZER-WITH-OBJECT METHOD)) */

2177

2178

static object LI30(V524,V525,V526,V527)

2179

2180

object V524;object V525;register object V526;register object V527;

2181

{ VMB30 VMS30 VMV30

2182

goto TTL;

2183

TTL:;

2184

{object V529;

2185

object V530;

2186

2187

base[3]= (V526);

2188

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

2189

(void) (*Lnk286)(Lclptr286);

2190

vs_top=sup;

2191

V529= vs_base[0];

2192

base[3]= (V526);

2193

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

2194

(void) (*Lnk287)(Lclptr287);

2195

vs_top=sup;

2196

V530= vs_base[0];

2197

base[3]= (V529);

2198

base[4]= (V530);

2199

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

2200

Lgethash();

2201

vs_top=sup;

2202

V531= vs_base[0];

2203

if(((V531))!=Cnil){

2204

goto T906;}

2205

{object V534;

2206

V534= make_cons(Cnil,Cnil);

2207

base[4]= V529;

2208

base[5]= V530;

2209

base[6]= (V534);

2210

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

2211

siLhash_set();

2212

vs_top=sup;

2213

V531= vs_base[0];}

2214

goto T906;

2215

T906:;

2216

{object V536;

2217

base[4]= (V527);

2218

base[5]= CMPcar((V531));

2219

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

2220

Ladjoin();

2221

vs_top=sup;

2222

V536= vs_base[0];

2223

(V531)->c.c_car = (V536);}

2224

(V531)->c.c_cdr = Cnil;

2225

{object V539 = (V527);

2226

VMR30(V539)}}

2227

base[0]=base[0];

2228

return Cnil;

2229

}

2230

/* local entry for function (FAST-METHOD REMOVE-DIRECT-METHOD (SPECIALIZER-WITH-OBJECT METHOD)) */

2231

2232

static object LI31(V544,V545,V546,V547)

2233

2234

object V544;object V545;register object V546;register object V547;

2235

{ VMB31 VMS31 VMV31

2236

goto TTL;

2237

TTL:;

2238

{object V549;

2239

2240

base[2]= (V546);

2241

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

2242

(void) (*Lnk286)(Lclptr286);

2243

vs_top=sup;

2244

V549= vs_base[0];

2245

base[2]= (V549);

2246

base[4]= (V546);

2247

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

2248

(void) (*Lnk287)(Lclptr287);

2249

vs_top=sup;

2250

base[3]= vs_base[0];

2251

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

2252

Lgethash();

2253

vs_top=sup;

2254

V550= vs_base[0];

2255

if(((V550))==Cnil){

2256

goto T929;}

2257

{object V552;

2258

base[3]= (V547);

2259

base[4]= CMPcar((V550));

2260

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

2261

(void) (*Lnk145)();

2262

vs_top=sup;

2263

V552= vs_base[0];

2264

(V550)->c.c_car = (V552);}

2265

(V550)->c.c_cdr = Cnil;

2266

goto T929;

2267

T929:;

2268

{object V555 = (V547);

2269

VMR31(V555)}}

2270

base[0]=base[0];

2271

return Cnil;

2272

}

2273

/* local entry for function (FAST-METHOD SPECIALIZER-DIRECT-METHODS (SPECIALIZER-WITH-OBJECT)) */

2274

2275

static object LI32(V559,V560,V561)

2276

2277

object V559;object V560;register object V561;

2278

{ VMB32 VMS32 VMV32

2279

goto TTL;

2280

TTL:;

2281

base[1]= (V561);

2282

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

2283

(void) (*Lnk286)(Lclptr286);

2284

vs_top=sup;

2285

base[0]= vs_base[0];

2286

base[2]= (V561);

2287

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

2288

(void) (*Lnk287)(Lclptr287);

2289

vs_top=sup;

2290

base[1]= vs_base[0];

2291

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

2292

Lgethash();

2293

vs_top=sup;

2294

V563= vs_base[0];

2295

{object V564 = CMPcar(V563);

2296

VMR32(V564)}

2297

base[0]=base[0];

2298

return Cnil;

2299

}

2300

/* local entry for function (FAST-METHOD SPECIALIZER-DIRECT-GENERIC-FUNCTIONS (SPECIALIZER-WITH-OBJECT)) */

2301

2302

static object LI33(V568,V569,V570)

2303

2304

object V568;object V569;register object V570;

2305

{ VMB33 VMS33 VMV33

2306

goto TTL;

2307

TTL:;

2308

{object V572;

2309

2310

base[2]= (V570);

2311

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

2312

(void) (*Lnk286)(Lclptr286);

2313

vs_top=sup;

2314

V572= vs_base[0];

2315

base[2]= (V572);

2316

base[4]= (V570);

2317

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

2318

(void) (*Lnk287)(Lclptr287);

2319

vs_top=sup;

2320

base[3]= vs_base[0];

2321

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

2322

Lgethash();

2323

vs_top=sup;

2324

V573= vs_base[0];

2325

if(((V573))==Cnil){

2326

goto T954;}{object V574;

2327

V574= CMPcdr((V573));

2328

if(V574==Cnil)goto T956;

2329

{object V575 = V574;

2330

VMR33(V575)}

2331

goto T956;

2332

T956:;}

2333

{object V577;

2334

{register object V578;

2335

2336

V578= Cnil;

2337

V579= Cnil;

2338

{register object V580;

2339

2340

V580= CMPcar((V573));

2341

V581= CMPcar((V580));

2342

goto T965;

2343

T965:;

2344

if(!(((V580))==Cnil)){

2345

goto T966;}

2346

goto T961;

2347

goto T966;

2348

T966:;

2349

{register object V582;

2350

base[5]= (V581);

2351

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

2352

(void) (*Lnk285)(Lclptr285);

2353

vs_top=sup;

2354

V582= vs_base[0];

2355

if(((V578))!=Cnil){

2356

goto T974;}

2357

V579= make_cons((V582),Cnil);

2358

V578= (V579);

2359

goto T970;

2360

goto T974;

2361

T974:;

2362

{register object x= (V582),V583= (V578);

2363

while(V583!=Cnil)

2364

if(x==(V583->c.c_car)){

2365

goto T970;

2366

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

2367

V585= make_cons((V582),Cnil);

2368

((V579))->c.c_cdr = /* INLINE-ARGS */V585;

2369

V584= (V579);

2370

V579= CMPcdr(V584);}

2371

goto T970;

2372

T970:;

2373

V580= CMPcdr((V580));

2374

V581= CMPcar((V580));

2375

goto T965;}

2376

goto T961;

2377

T961:;

2378

V577= (V578);}

2379

(V573)->c.c_cdr = (V577);

2380

{object V586 = (V577);

2381

VMR33(V586)}}

2382

goto T954;

2383

T954:;

2384

{object V587 = Cnil;

2385

VMR33(V587)}}

2386

base[0]=base[0];

2387

return Cnil;

2388

}

2389

/* local entry for function MAP-SPECIALIZERS */

2390

2391

static object LI35(V589)

2392

2393

object V589;

2394

{ VMB34 VMS34 VMV34

2395

goto TTL;

2396

TTL:;

2397

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

2398

base[1]=

2399

make_cclosure_new(LC137,Cnil,base[0],Cdata);

2400

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

2401

(void) (*Lnk288)();

2402

vs_top=sup;

2403

base[1]=

2404

make_cclosure_new(LC138,Cnil,base[0],Cdata);

2405

base[2]= (VV[79]->s.s_dbind);

2406

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

2407

Lmaphash();

2408

vs_top=sup;

2409

base[1]=

2410

make_cclosure_new(LC139,Cnil,base[0],Cdata);

2411

base[2]= (VV[81]->s.s_dbind);

2412

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

2413

Lmaphash();

2414

vs_top=sup;

2415

{object V590 = Cnil;

2416

VMR34(V590)}

2417

base[0]=base[0];

2418

return Cnil;

2419

}

2420

/* local entry for function MAP-ALL-GENERIC-FUNCTIONS */

2421

2422

static object LI37(V592)

2423

2424

object V592;

2425

{ VMB35 VMS35 VMV35

2426

goto TTL;

2427

TTL:;

2428

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

2429

base[2]= VV[32];

2430

base[3]= VV[33];

2431

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

2432

Lmake_hash_table();

2433

vs_top=sup;

2434

base[1]= vs_base[0];

2435

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

2436

V593=

2437

make_cclosure_new(LC140,Cnil,base[1],Cdata);

2438

(void)((*(LnkLI289))(V593));

2439

{object V594 = Cnil;

2440

VMR35(V594)}

2441

base[0]=base[0];

2442

return Cnil;

2443

}

2444

/* function definition for (FAST-METHOD SHARED-INITIALIZE :AFTER (CLASS-EQ-SPECIALIZER T)) */

2445

2446

static void L38()

2447

{register object *base=vs_base;

2448

2449

vs_check;

2450

{register object V595;

2451

object V596;

2452

2453

object V598;

2454

object V599;

2455

check_arg(5);

2456

V595=(base[0]);

2457

V596=(base[1]);

2458

V597=(base[2]);

2459

V598=(base[3]);

2460

V599=(base[4]);

2461

vs_top=sup;

2462

goto TTL;

2463

TTL:;

2464

{object V601;

2465

object V602;

2466

V601= CMPcar((V595));

2467

V602= CMPcdr((V595));

2468

{object V603;

2469

if(type_of(V597)==t_structure){

2470

goto T1011;}

2471

goto T1009;

2472

goto T1011;

2473

T1011:;

2474

if(!(((V597)->str.str_def)==(VV[84]))){

2475

goto T1009;}

2476

V603= STREF(object,(V597),4);

2477

goto T1007;

2478

goto T1009;

2479

T1009:;{object V605;

2480

V605= (VV[16]->s.s_dbind);

2481

base[5]= small_fixnum(14);

2482

base[6]= (V597);

2483

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

2484

(void) (*Lnk256)();

2485

vs_top=sup;

2486

V606= vs_base[0];

2487

if(!((V605)==(CMPcar(V606)))){

2488

goto T1014;}}

2489

V603= CMPcar(((V597))->cc.cc_turbo[12]);

2490

goto T1007;

2491

goto T1014;

2492

T1014:;

2493

V603= Cnil;

2494

goto T1007;

2495

T1007:;

2496

{object V607;

2497

base[5]= (V597);

2498

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

2499

(void) (*Lnk290)(Lclptr290);

2500

vs_top=sup;

2501

V608= vs_base[0];

2502

V607= list(2,VV[83],V608);

2503

{object V609;

2504

V609= ((V601))->v.v_self[1];

2505

if(!(type_of(V609)==t_fixnum)){

2506

goto T1024;}

2507

base[5]= ((V603))->v.v_self[fix((V609))]= ((V607));

2508

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

2509

return;

2510

goto T1024;

2511

T1024:;

2512

base[5]= (V607);

2513

base[6]= (V597);

2514

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

2515

(void) (*Lnk291)(Lclptr291);

2516

return;}}}}

2517

}

2518

}

2519

/* function definition for (FAST-METHOD SHARED-INITIALIZE :AFTER (EQL-SPECIALIZER T)) */

2520

2521

static void L39()

2522

{register object *base=vs_base;

2523

2524

vs_check;

2525

{register object V611;

2526

object V612;

2527

2528

object V614;

2529

object V615;

2530

check_arg(5);

2531

V611=(base[0]);

2532

V612=(base[1]);

2533

V613=(base[2]);

2534

V614=(base[3]);

2535

V615=(base[4]);

2536

vs_top=sup;

2537

goto TTL;

2538

TTL:;

2539

{object V617;

2540

object V618;

2541

V617= CMPcar((V611));

2542

V618= CMPcdr((V611));

2543

{object V619;

2544

if(type_of(V613)==t_structure){

2545

goto T1038;}

2546

goto T1036;

2547

goto T1038;

2548

T1038:;

2549

if(!(((V613)->str.str_def)==(VV[87]))){

2550

goto T1036;}

2551

V619= STREF(object,(V613),4);

2552

goto T1034;

2553

goto T1036;

2554

T1036:;{object V621;

2555

V621= (VV[16]->s.s_dbind);

2556

base[5]= small_fixnum(14);

2557

base[6]= (V613);

2558

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

2559

(void) (*Lnk256)();

2560

vs_top=sup;

2561

V622= vs_base[0];

2562

if(!((V621)==(CMPcar(V622)))){

2563

goto T1041;}}

2564

V619= CMPcar(((V613))->cc.cc_turbo[12]);

2565

goto T1034;

2566

goto T1041;

2567

T1041:;

2568

V619= Cnil;

2569

goto T1034;

2570

T1034:;

2571

{object V623;

2572

base[5]= (V613);

2573

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

2574

(void) (*Lnk286)(Lclptr286);

2575

vs_top=sup;

2576

V624= vs_base[0];

2577

V623= list(2,VV[86],V624);

2578

{object V625;

2579

V625= ((V617))->v.v_self[1];

2580

if(!(type_of(V625)==t_fixnum)){

2581

goto T1051;}

2582

base[5]= ((V619))->v.v_self[fix((V625))]= ((V623));

2583

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

2584

return;

2585

goto T1051;

2586

T1051:;

2587

base[5]= (V623);

2588

base[6]= (V613);

2589

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

2590

(void) (*Lnk291)(Lclptr291);

2591

return;}}}}

2592

}

2593

}

2594

/* local entry for function REAL-LOAD-DEFCLASS */

2595

2596

static object LI40(V633,V634,V635,V636,V637,V638)

2597

2598

object V633;object V634;object V635;object V636;object V637;object V638;

2599

{ VMB38 VMS38 VMV38

2600

goto TTL;

2601

TTL:;

2602

(void)((*(LnkLI292))((V638)));

2603

{object V639;

2604

base[0]= (V633);

2605

base[1]= VV[88];

2606

base[2]= (V634);

2607

base[3]= VV[89];

2608

base[4]= (V635);

2609

base[5]= VV[90];

2610

base[6]= (V636);

2611

base[7]= VV[91];

2612

V641= list(2,VV[92],(V633));

2613

vs_base=vs_top;

2614

(void) (*Lnk293)();

2615

vs_top=sup;

2616

V642= vs_base[0];

2617

base[8]= list(2,/* INLINE-ARGS */V641,V642);

2618

{object V640;

2619

V640= (V637);

2620

vs_top=base+9;

2621

while(V640!=Cnil)

2622

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

2623

vs_base=base+0;}

2624

(void) (*Lnk294)();

2625

vs_top=sup;

2626

V639= vs_base[0];

2627

{object V643 = (V639);

2628

VMR38(V643)}}

2629

base[0]=base[0];

2630

return Cnil;

2631

}

2632

/* function definition for ENSURE-CLASS */

2633

2634

static void L41()

2635

{register object *base=vs_base;

2636

2637

vs_check;

2638

{object V644;

2639

object V645;

2640

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

2641

V644=(base[0]);

2642

vs_base=vs_base+1;

2643

vs_top[0]=Cnil;

2644

{object *p=vs_top;

2645

for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}

2646

V645=(base[1]);

2647

vs_top=sup;

2648

base[2]=VV[295]->s.s_gfdef;

2649

base[3]= (V644);

2650

base[4]= (VFUN_NARGS=2,(*(LnkLI296))((V644),Cnil));

2651

{object V646;

2652

V646= (V645);

2653

vs_top=base+5;

2654

while(V646!=Cnil)

2655

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

2656

vs_base=base+3;}

2657

(void) (*Lnk295)(Lclptr295);

2658

return;

2659

}

2660

}

2661

/* local entry for function (FAST-METHOD ENSURE-CLASS-USING-CLASS (T NULL)) */

2662

2663

static object LI42(V652,V653,V654,V655,V656)

2664

2665

object V652;object V653;register object V654;register object V655;object V656;

2666

{ VMB40 VMS40 VMV40

2667

goto TTL;

2668

TTL:;

2669

{object V659;

2670

object V660;

2671

base[0]= (V655);

2672

base[1]= V656;

2673

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

2674

(void) (*Lnk297)();

2675

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

2676

V659= vs_base[0];

2677

vs_base++;

2678

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

2679

V660= vs_base[0];

2680

vs_top=sup;

2681

goto T1078;

2682

goto T1076;

2683

T1076:;

2684

V659= Cnil;

2685

goto T1077;

2686

T1077:;

2687

V660= Cnil;

2688

goto T1078;

2689

T1078:;

2690

base[1]= (V659);

2691

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

2692

(void) (*Lnk298)(Lclptr298);

2693

vs_top=sup;

2694

base[0]= vs_base[0];

2695

base[1]= (V654);

2696

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

2697

(void) (*Lnk299)(Lclptr299);

2698

vs_top=sup;

2699

base[0]=VV[300]->s.s_gfdef;

2700

base[1]= (V659);

2701

base[2]= VV[1];

2702

base[3]= (V654);

2703

{object V661;

2704

V661= (V660);

2705

vs_top=base+4;

2706

while(V661!=Cnil)

2707

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

2708

vs_base=base+1;}

2709

(void) (*Lnk300)(Lclptr300);

2710

vs_top=sup;

2711

V655= vs_base[0];

2712

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

2713

(void)((

2714

V665 = V664,

2715

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

2716

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

2717

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

2718

(fcall.fun=(V665),fcalln))(V655,V654)));

2719

base[0]= (V655);

2720

base[1]= (V654);

2721

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

2722

(void) (*Lnk299)(Lclptr299);

2723

vs_top=sup;

2724

{object V666 = (V655);

2725

VMR40(V666)}}

2726

base[0]=base[0];

2727

return Cnil;

2728

}

2729

/* local entry for function (FAST-METHOD ENSURE-CLASS-USING-CLASS (T PCL-CLASS)) */

2730

2731

static object LI43(V672,V673,V674,V675,V676)

2732

2733

object V672;object V673;register object V674;register object V675;object V676;

2734

{ VMB41 VMS41 VMV41

2735

goto TTL;

2736

TTL:;

2737

{object V679;

2738

object V680;

2739

base[0]= (V675);

2740

base[1]= V676;

2741

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

2742

(void) (*Lnk297)();

2743

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

2744

V679= vs_base[0];

2745

vs_base++;

2746

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

2747

V680= vs_base[0];

2748

vs_top=sup;

2749

goto T1101;

2750

goto T1099;

2751

T1099:;

2752

V679= Cnil;

2753

goto T1100;

2754

T1100:;

2755

V680= Cnil;

2756

goto T1101;

2757

T1101:;

2758

V681= (*(LnkLI301))((V675));

2759

if((/* INLINE-ARGS */V681)==((V679))){

2760

goto T1102;}

2761

base[0]= (V675);

2762

base[1]= (V679);

2763

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

2764

(void) (*Lnk302)(Lclptr302);

2765

vs_top=sup;

2766

goto T1102;

2767

T1102:;

2768

base[0]=VV[303]->s.s_gfdef;

2769

base[1]= (V675);

2770

{object V682;

2771

V682= (V680);

2772

vs_top=base+2;

2773

while(V682!=Cnil)

2774

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

2775

vs_base=base+1;}

2776

(void) (*Lnk303)(Lclptr303);

2777

vs_top=sup;

2778

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

2779

(void)((

2780

V686 = V685,

2781

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

2782

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

2783

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

2784

(fcall.fun=(V686),fcalln))(V675,V674)));

2785

base[0]= (V675);

2786

base[1]= (V674);

2787

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

2788

(void) (*Lnk299)(Lclptr299);

2789

vs_top=sup;

2790

{object V687 = (V675);

2791

VMR41(V687)}}

2792

base[0]=base[0];

2793

return Cnil;

2794

}

2795

/* local entry for function (FAST-METHOD CLASS-PREDICATE-NAME (T)) */

2796

2797

static object LI44(V691,V692,V693)

2798

2799

object V691;object V692;object V693;

2800

{ VMB42 VMS42 VMV42

2801

goto TTL;

2802

TTL:;

2803

{object V695 = VV[93];

2804

VMR42(V695)}

2805

return Cnil;

2806

}

2807

/* function definition for ENSURE-CLASS-VALUES */

2808

2809

static void L45()

2810

{register object *base=vs_base;

2811

2812

vs_check;

2813

{object V696;

2814

object V697;

2815

check_arg(2);

2816

V696=(base[0]);

2817

V697=(base[1]);

2818

vs_top=sup;

2819

goto TTL;

2820

TTL:;

2821

{register object V698;

2822

object V699;

2823

object V700;

2824

object V701;

2825

object V702;

2826

object V703;

2827

base[8]= (V697);

2828

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

2829

Lcopy_list();

2830

vs_top=sup;

2831

V698= vs_base[0];

2832

V699= make_cons(small_fixnum(1),Cnil);

2833

base[8]= (V698);

2834

base[9]= VV[88];

2835

base[10]= (V699);

2836

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

2837

Lgetf();

2838

vs_top=sup;

2839

V700= vs_base[0];

2840

base[8]= (V698);

2841

base[9]= VV[89];

2842

base[10]= (V699);

2843

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

2844

Lgetf();

2845

vs_top=sup;

2846

V701= vs_base[0];

2847

base[8]= (V698);

2848

base[9]= VV[90];

2849

base[10]= (V699);

2850

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

2851

Lgetf();

2852

vs_top=sup;

2853

V702= vs_base[0];

2854

if(!(((((V700))==((V699))?Ct:Cnil))==Cnil)){

2855

goto T1134;}

2856

V703= (VFUN_NARGS=1,(*(LnkLI296))((V700)));

2857

goto T1132;

2858

goto T1134;

2859

T1134:;

2860

if(((V696))==Cnil){

2861

goto T1136;}

2862

base[8]= (V696);

2863

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

2864

(void) (*Lnk304)(Lclptr304);

2865

vs_top=sup;

2866

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

2867

goto T1137;}

2868

goto T1136;

2869

T1136:;

2870

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

2871

goto T1132;

2872

goto T1137;

2873

T1137:;

2874

V703= (*(LnkLI301))((V696));

2875

goto T1132;

2876

T1132:;

2877

{object V704;

2878

object V705;

2879

object V706;

2880

base[8]= (V698);

2881

base[9]= VV[90];

2882

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

2883

Lgetf();

2884

vs_top=sup;

2885

V704= vs_base[0];

2886

V705= Cnil;

2887

V706= Cnil;

2888

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

2889

goto T1147;

2890

T1147:;

2891

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

2892

goto T1149;}

2893

goto T1148;

2894

goto T1149;

2895

T1149:;

2896

{object V707;

2897

V707= (V704);

2898

V705= CMPcar((V707));

2899

V707= CMPcdr((V707));

2900

V706= (V707);}

2901

V704= CMPcdr((V704));

2902

base[9]= (V705);

2903

base[10]= VV[1];

2904

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

2905

Lgetf();

2906

vs_top=sup;

2907

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

2908

base[9]=

2909

make_cclosure_new(LC141,Cnil,base[8],Cdata);

2910

base[10]= (V706);

2911

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

2912

(void) (*Lnk305)();

2913

vs_top=sup;

2914

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

2915

goto T1166;}

2916

base[9]= VV[95];

2917

base[10]= VV[96];

2918

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

2919

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

2920

(void) (*Lnk306)();

2921

vs_top=sup;

2922

goto T1164;

2923

goto T1166;

2924

T1166:;

2925

{register object V708;

2926

2927

2928

object V711;

2929

V708= (V705);

2930

V709= Cnil;

2931

V710= Cnil;

2932

V711= Cnil;

2933

goto T1174;

2934

T1174:;

2935

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

2936

goto T1176;}

2937

goto T1175;

2938

goto T1176;

2939

T1176:;

2940

{register object V712;

2941

V712= (V708);

2942

V709= CMPcar((V712));

2943

V712= CMPcdr((V712));

2944

V710= CMPcar((V712));

2945

V712= CMPcdr((V712));

2946

V711= (V712);}

2947

V708= CMPcddr((V708));

2948

{register object x= (V709),V713= VV[97];

2949

while(V713!=Cnil)

2950

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

2951

goto T1194;

2952

}else V713=V713->c.c_cdr;

2953

goto T1191;}

2954

goto T1194;

2955

T1194:;

2956

base[9]= (V711);

2957

base[10]= (V709);

2958

base[11]= (V699);

2959

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

2960

Lgetf();

2961

vs_top=sup;

2962

V714= vs_base[0];

2963

if(((V699))==(V714)){

2964

goto T1191;}

2965

base[9]= VV[95];

2966

base[10]= VV[98];

2967

base[11]= (V709);

2968

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

2969

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

2970

(void) (*Lnk306)();

2971

vs_top=sup;

2972

goto T1191;

2973

T1191:;

2974

goto T1174;

2975

goto T1175;

2976

T1175:;

2977

goto T1164;}

2978

goto T1164;

2979

T1164:;

2980

goto T1147;

2981

goto T1148;

2982

T1148:;

2983

goto T1142;}

2984

goto T1142;

2985

T1142:;

2986

{object V715;

2987

object V716;

2988

object V717;

2989

base[8]= (V698);

2990

base[9]= VV[99];

2991

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

2992

Lgetf();

2993

vs_top=sup;

2994

V715= vs_base[0];

2995

V716= Cnil;

2996

V717= Cnil;

2997

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

2998

goto T1209;

2999

T1209:;

3000

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

3001

goto T1211;}

3002

goto T1210;

3003

goto T1211;

3004

T1211:;

3005

{object V718;

3006

V718= (V715);

3007

V716= CMPcar((V718));

3008

V718= CMPcdr((V718));

3009

V717= (V718);}

3010

V715= CMPcdr((V715));

3011

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

3012

base[9]=

3013

make_cclosure_new(LC142,Cnil,base[8],Cdata);

3014

base[10]= (V717);

3015

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

3016

(void) (*Lnk305)();

3017

vs_top=sup;

3018

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

3019

goto T1224;}

3020

base[9]= VV[95];

3021

base[10]= VV[100];

3022

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

3023

base[12]= (V696);

3024

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

3025

(void) (*Lnk306)();

3026

vs_top=sup;

3027

goto T1224;

3028

T1224:;

3029

goto T1209;

3030

goto T1210;

3031

T1210:;

3032

goto T1204;}

3033

goto T1204;

3034

T1204:;

3035

goto T1235;

3036

T1235:;

3037

{object V719;

3038

object V720;

3039

base[8]= (V698);

3040

base[9]= VV[88];

3041

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

3042

siLrem_f();

3043

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

3044

V719= vs_base[0];

3045

vs_base++;

3046

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

3047

V720= vs_base[0];

3048

vs_top=sup;

3049

goto T1244;

3050

goto T1242;

3051

T1242:;

3052

V719= Cnil;

3053

goto T1243;

3054

T1243:;

3055

V720= Cnil;

3056

goto T1244;

3057

T1244:;

3058

V698= (V719);

3059

if(((V720))!=Cnil){

3060

goto T1236;}}

3061

goto T1233;

3062

goto T1236;

3063

T1236:;

3064

goto T1235;

3065

goto T1233;

3066

T1233:;

3067

goto T1250;

3068

T1250:;

3069

{object V721;

3070

object V722;

3071

base[8]= (V698);

3072

base[9]= VV[89];

3073

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

3074

siLrem_f();

3075

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

3076

V721= vs_base[0];

3077

vs_base++;

3078

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

3079

V722= vs_base[0];

3080

vs_top=sup;

3081

goto T1259;

3082

goto T1257;

3083

T1257:;

3084

V721= Cnil;

3085

goto T1258;

3086

T1258:;

3087

V722= Cnil;

3088

goto T1259;

3089

T1259:;

3090

V698= (V721);

3091

if(((V722))!=Cnil){

3092

goto T1251;}}

3093

goto T1248;

3094

goto T1251;

3095

T1251:;

3096

goto T1250;

3097

goto T1248;

3098

T1248:;

3099

goto T1265;

3100

T1265:;

3101

{object V723;

3102

object V724;

3103

base[8]= (V698);

3104

base[9]= VV[90];

3105

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

3106

siLrem_f();

3107

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

3108

V723= vs_base[0];

3109

vs_base++;

3110

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

3111

V724= vs_base[0];

3112

vs_top=sup;

3113

goto T1274;

3114

goto T1272;

3115

T1272:;

3116

V723= Cnil;

3117

goto T1273;

3118

T1273:;

3119

V724= Cnil;

3120

goto T1274;

3121

T1274:;

3122

V698= (V723);

3123

if(((V724))!=Cnil){

3124

goto T1266;}}

3125

goto T1263;

3126

goto T1266;

3127

T1266:;

3128

goto T1265;

3129

goto T1263;

3130

T1263:;

3131

base[8]= (V703);

3132

if(((((V701))==((V699))?Ct:Cnil))==Cnil){

3133

goto T1281;}

3134

V725= Cnil;

3135

goto T1280;

3136

goto T1281;

3137

T1281:;

3138

{object V726;

3139

object V727= (V701);

3140

if(V727==Cnil){

3141

V725= Cnil;

3142

goto T1280;}

3143

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

3144

goto T1283;

3145

T1283:;

3146

base[11]= (V727->c.c_car);

3147

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

3148

L46(base);

3149

vs_top=sup;

3150

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

3151

if((V727=MMcdr(V727))==Cnil){

3152

V725= base[10];

3153

goto T1280;}

3154

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

3155

goto T1283;}

3156

goto T1280;

3157

T1280:;

3158

if(((((V702))==((V699))?Ct:Cnil))==Cnil){

3159

goto T1287;}

3160

V728= Cnil;

3161

goto T1286;

3162

goto T1287;

3163

T1287:;

3164

V728= (V702);

3165

goto T1286;

3166

T1286:;

3167

base[9]= listA(5,VV[89],V725,VV[90],V728,(V698));

3168

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

3169

return;}

3170

}

3171

}

3172

/* local entry for function (FAST-METHOD SHARED-INITIALIZE :AFTER (STD-CLASS T)) */

3173

3174

static object LI47(V734,V735,V736,V737,V738)

3175

3176

object V734;object V735;register object V736;object V737;object V738;

3177

{ VMB44 VMS44 VMV44

3178

goto TTL;

3179

TTL:;

3180

{object V740;

3181

object V742;

3182

object V743;

3183

object V745;

3184

object V746;

3185

object V748;

3186

object V749;

3187

object V751;

3188

base[8]= VV[89];

3189

base[9]= V738;

3190

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

3191

(void) (*Lnk271)();

3192

vs_top=sup;

3193

V740= vs_base[0];

3194

if(((V740))==Cnil){

3195

goto T1296;}

3196

V742= CMPcar((V740));

3197

goto T1294;

3198

goto T1296;

3199

T1296:;

3200

V742= Cnil;

3201

goto T1294;

3202

T1294:;

3203

base[8]= VV[90];

3204

base[9]= V738;

3205

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

3206

(void) (*Lnk271)();

3207

vs_top=sup;

3208

V743= vs_base[0];

3209

if(((V743))==Cnil){

3210

goto T1303;}

3211

V745= CMPcar((V743));

3212

goto T1301;

3213

goto T1303;

3214

T1303:;

3215

V745= Cnil;

3216

goto T1301;

3217

T1301:;

3218

base[8]= VV[99];

3219

base[9]= V738;

3220

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

3221

(void) (*Lnk271)();

3222

vs_top=sup;

3223

V746= vs_base[0];

3224

if(((V746))==Cnil){

3225

goto T1310;}

3226

V748= CMPcar((V746));

3227

goto T1308;

3228

goto T1310;

3229

T1310:;

3230

V748= Cnil;

3231

goto T1308;

3232

T1308:;

3233

base[8]= VV[103];

3234

base[9]= V738;

3235

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

3236

(void) (*Lnk271)();

3237

vs_top=sup;

3238

V749= vs_base[0];

3239

if(((V749))==Cnil){

3240

goto T1317;}

3241

V751= CMPcar((V749));

3242

goto T1315;

3243

goto T1317;

3244

T1317:;

3245

V751= Cnil;

3246

goto T1315;

3247

T1315:;

3248

{object V752;

3249

object V753;

3250

V752= CMPcar((V734));

3251

V753= CMPcdr((V734));

3252

{object V754;

3253

if(type_of(V736)==t_structure){

3254

goto T1327;}

3255

goto T1325;

3256

goto T1327;

3257

T1327:;

3258

if(!(((V736)->str.str_def)==(VV[109]))){

3259

goto T1325;}

3260

V754= STREF(object,(V736),4);

3261

goto T1323;

3262

goto T1325;

3263

T1325:;{object V756;

3264

V756= (VV[16]->s.s_dbind);

3265

base[8]= small_fixnum(14);

3266

base[9]= (V736);

3267

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

3268

(void) (*Lnk256)();

3269

vs_top=sup;

3270

V757= vs_base[0];

3271

if(!((V756)==(CMPcar(V757)))){

3272

goto T1330;}}

3273

V754= CMPcar(((V736))->cc.cc_turbo[12]);

3274

goto T1323;

3275

goto T1330;

3276

T1330:;

3277

V754= Cnil;

3278

goto T1323;

3279

T1323:;

3280

if((V740)==Cnil){

3281

goto T1337;}

3282

if((V742)!=Cnil){

3283

goto T1340;}

3284

V742= make_cons((VV[105]->s.s_dbind),Cnil);

3285

goto T1340;

3286

T1340:;

3287

{register object V758;

3288

3289

V758= (V742);

3290

V759= CMPcar((V758));

3291

goto T1345;

3292

T1345:;

3293

if(!(((V758))==Cnil)){

3294

goto T1346;}

3295

goto T1341;

3296

goto T1346;

3297

T1346:;

3298

base[9]= (V736);

3299

base[10]= (V759);

3300

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

3301

(void) (*Lnk107)(Lclptr107);

3302

vs_top=sup;

3303

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

3304

goto T1350;}

3305

base[9]= VV[106];

3306

base[10]= (V759);

3307

base[11]= (V736);

3308

base[12]= (*(LnkLI301))((V759));

3309

base[13]= (*(LnkLI301))((V736));

3310

base[14]= VV[107];

3311

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

3312

Lerror();

3313

vs_top=sup;

3314

goto T1350;

3315

T1350:;

3316

V758= CMPcdr((V758));

3317

V759= CMPcar((V758));

3318

goto T1345;}

3319

goto T1341;

3320

T1341:;

3321

{object V761;

3322

V761= ((V752))->v.v_self[2];

3323

if(!(type_of(V761)==t_fixnum)){

3324

goto T1368;}

3325

(void)(((V754))->v.v_self[fix((V761))]= (V742));

3326

goto T1335;

3327

goto T1368;

3328

T1368:;

3329

base[8]= V742;

3330

base[9]= (V736);

3331

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

3332

(void) (*Lnk307)(Lclptr307);

3333

vs_top=sup;

3334

goto T1335;}

3335

goto T1337;

3336

T1337:;

3337

{object V763;

3338

V763= ((V752))->v.v_self[2];

3339

if(!(type_of(V763)==t_fixnum)){

3340

goto T1377;}

3341

V763= ((V754))->v.v_self[fix((V763))];

3342

goto T1375;

3343

goto T1377;

3344

T1377:;

3345

V763= VV[17];

3346

goto T1375;

3347

T1375:;

3348

if(!(((V763))==(VV[17]))){

3349

goto T1380;}

3350

base[8]= (V736);

3351

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

3352

(void) (*Lnk308)(Lclptr308);

3353

vs_top=sup;

3354

V742= vs_base[0];

3355

goto T1372;

3356

goto T1380;

3357

T1380:;

3358

V742= (V763);}

3359

goto T1372;

3360

T1372:;

3361

goto T1335;

3362

T1335:;

3363

if((V743)==Cnil){

3364

goto T1386;}

3365

{object V765;

3366

{object V766;

3367

object V767= (V745);

3368

if(V767==Cnil){

3369

V765= Cnil;

3370

goto T1388;}

3371

base[8]=V766=MMcons(Cnil,Cnil);

3372

goto T1389;

3373

T1389:;

3374

base[9]= (V736);

3375

base[10]= (V767->c.c_car);

3376

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

3377

(void) (*Lnk309)();

3378

vs_top=sup;

3379

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

3380

if((V767=MMcdr(V767))==Cnil){

3381

V765= base[8];

3382

goto T1388;}

3383

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

3384

goto T1389;}

3385

goto T1388;

3386

T1388:;

3387

{object V769;

3388

V769= ((V752))->v.v_self[1];

3389

if(!(type_of(V769)==t_fixnum)){

3390

goto T1395;}

3391

V745= ((V754))->v.v_self[fix((V769))]= ((V765));

3392

goto T1384;

3393

goto T1395;

3394

T1395:;

3395

base[8]= (V765);

3396

base[9]= (V736);

3397

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

3398

(void) (*Lnk310)(Lclptr310);

3399

vs_top=sup;

3400

V745= vs_base[0];

3401

goto T1384;}}

3402

goto T1386;

3403

T1386:;

3404

{object V771;

3405

V771= ((V752))->v.v_self[1];

3406

if(!(type_of(V771)==t_fixnum)){

3407

goto T1403;}

3408

V771= ((V754))->v.v_self[fix((V771))];

3409

goto T1401;

3410

goto T1403;

3411

T1403:;

3412

V771= VV[17];

3413

goto T1401;

3414

T1401:;

3415

if(!(((V771))==(VV[17]))){

3416

goto T1406;}

3417

base[8]= (V736);

3418

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

3419

(void) (*Lnk311)(Lclptr311);

3420

vs_top=sup;

3421

V745= vs_base[0];

3422

goto T1384;

3423

goto T1406;

3424

T1406:;

3425

V745= (V771);}

3426

goto T1384;

3427

T1384:;

3428

if((V746)==Cnil){

3429

goto T1411;}

3430

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

3431

(void)((

3432

V777 = V776,

3433

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

3434

(fcall.argd=3,type_of(V777)==t_vfun) ?

3435

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

3436

(fcall.fun=(V777),fcalln))(V748,V736,VV[63])));

3437

goto T1409;

3438

goto T1411;

3439

T1411:;

3440

V748= (*(LnkLI272))((V736),VV[63]);

3441

goto T1409;

3442

T1409:;

3443

{object V780;

3444

{object V781;

3445

object V782;

3446

V781= Cnil;

3447

V782= Cnil;

3448

{register object V783;

3449

3450

V783= (V745);

3451

V784= CMPcar((V783));

3452

goto T1423;

3453

T1423:;

3454

if(!(((V783))==Cnil)){

3455

goto T1424;}

3456

goto T1419;

3457

goto T1424;

3458

T1424:;

3459

base[10]= (V784);

3460

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

3461

(void) (*Lnk312)(Lclptr312);

3462

vs_top=sup;

3463

V785= vs_base[0];

3464

if(!((V785)==((V736)))){

3465

goto T1428;}

3466

{object V786;

3467

base[10]= (V784);

3468

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

3469

(void) (*Lnk313)(Lclptr313);

3470

vs_top=sup;

3471

V786= vs_base[0];

3472

{object V787;

3473

base[10]= (V784);

3474

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

3475

(void) (*Lnk314)(Lclptr314);

3476

vs_top=sup;

3477

V788= vs_base[0];

3478

if(((V786))==Cnil){

3479

goto T1440;}

3480

vs_base=vs_top;

3481

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

3482

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

3483

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

3484

else super_funcall_no_event(_funobj);}

3485

vs_top=sup;

3486

V789= vs_base[0];

3487

goto T1438;

3488

goto T1440;

3489

T1440:;

3490

V789= (VV[108]->s.s_dbind);

3491

goto T1438;

3492

T1438:;

3493

V787= make_cons(V788,V789);

3494

if(((V781))!=Cnil){

3495

goto T1443;}

3496

V782= make_cons((V787),Cnil);

3497

V781= (V782);

3498

goto T1428;

3499

goto T1443;

3500

T1443:;

3501

V791= make_cons((V787),Cnil);

3502

((V782))->c.c_cdr = /* INLINE-ARGS */V791;

3503

V790= (V782);

3504

V782= CMPcdr(V790);}}

3505

goto T1428;

3506

T1428:;

3507

V783= CMPcdr((V783));

3508

V784= CMPcar((V783));

3509

goto T1423;}

3510

goto T1419;

3511

T1419:;

3512

V780= (V781);}

3513

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

3514

(void)((

3515

V793 = V792,

3516

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

3517

(fcall.argd=3,type_of(V793)==t_vfun) ?

3518

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

3519

(fcall.fun=(V793),fcalln))((V780),V736,VV[66])));}

3520

if((V749)==Cnil){

3521

goto T1458;}

3522

{object V794;

3523

V794= CMPcar((V751));

3524

{object V795;

3525

V795= ((V752))->v.v_self[3];

3526

if(!(type_of(V795)==t_fixnum)){

3527

goto T1463;}

3528

V751= ((V754))->v.v_self[fix((V795))]= ((V794));

3529

goto T1456;

3530

goto T1463;

3531

T1463:;

3532

base[8]= (V794);

3533

base[9]= (V736);

3534

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

3535

(void) (*Lnk315)(Lclptr315);

3536

vs_top=sup;

3537

V751= vs_base[0];

3538

goto T1456;}}

3539

goto T1458;

3540

T1458:;

3541

{object V797;

3542

{object V798;

3543

V798= ((V752))->v.v_self[3];

3544

if(!(type_of(V798)==t_fixnum)){

3545

goto T1472;}

3546

V798= ((V754))->v.v_self[fix((V798))];

3547

goto T1470;

3548

goto T1472;

3549

T1472:;

3550

V798= VV[17];

3551

goto T1470;

3552

T1470:;

3553

if(!(((V798))==(VV[17]))){

3554

goto T1475;}

3555

base[8]= (V736);

3556

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

3557

(void) (*Lnk316)(Lclptr316);

3558

vs_top=sup;

3559

V797= vs_base[0];

3560

goto T1467;

3561

goto T1475;

3562

T1475:;

3563

V797= (V798);}

3564

goto T1467;

3565

T1467:;

3566

if(((V797))==Cnil){

3567

goto T1479;}

3568

V751= (V797);

3569

goto T1456;

3570

goto T1479;

3571

T1479:;

3572

{object V800;

3573

base[9]= (V736);

3574

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

3575

(void) (*Lnk317)(Lclptr317);

3576

vs_top=sup;

3577

base[8]= vs_base[0];

3578

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

3579

(void) (*Lnk318)();

3580

vs_top=sup;

3581

V800= vs_base[0];

3582

{object V801;

3583

V801= ((V752))->v.v_self[3];

3584

if(!(type_of(V801)==t_fixnum)){

3585

goto T1486;}

3586

V751= ((V754))->v.v_self[fix((V801))]= ((V800));

3587

goto T1456;

3588

goto T1486;

3589

T1486:;

3590

base[8]= (V800);

3591

base[9]= (V736);

3592

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

3593

(void) (*Lnk315)(Lclptr315);

3594

vs_top=sup;

3595

V751= vs_base[0];}}}

3596

goto T1456;

3597

T1456:;

3598

(void)((*(LnkLI319))((V736),(V742)));

3599

(void)((*(LnkLI320))((V736),Cnil));

3600

(void)((*(LnkLI321))((V736),(V751)));

3601

{object V803 = (*(LnkLI322))((V736),(V745));

3602

VMR44(V803)}}}}

3603

base[0]=base[0];

3604

return Cnil;

3605

}

3606

/* function definition for (FAST-METHOD SHARED-INITIALIZE :BEFORE (CLASS T)) */

3607

3608

static void L48()

3609

{register object *base=vs_base;

3610

3611

vs_check;

3612

{register object V804;

3613

object V805;

3614

3615

object V807;

3616

object V808;

3617

check_arg(5);

3618

V804=(base[0]);

3619

V805=(base[1]);

3620

V806=(base[2]);

3621

V807=(base[3]);

3622

V808=(base[4]);

3623

vs_top=sup;

3624

goto TTL;

3625

TTL:;

3626

{object V810;

3627

base[6]= VV[1];

3628

base[7]= V808;

3629

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

3630

(void) (*Lnk271)();

3631

vs_top=sup;

3632

V811= vs_base[0];

3633

V810= CMPcar(V811);

3634

{object V812;

3635

object V813;

3636

V812= CMPcar((V804));

3637

V813= CMPcdr((V804));

3638

{object V814;

3639

if(type_of(V806)==t_structure){

3640

goto T1507;}

3641

goto T1505;

3642

goto T1507;

3643

T1507:;

3644

if(!(((V806)->str.str_def)==(VV[114]))){

3645

goto T1505;}

3646

V814= STREF(object,(V806),4);

3647

goto T1503;

3648

goto T1505;

3649

T1505:;{object V816;

3650

V816= (VV[16]->s.s_dbind);

3651

base[6]= small_fixnum(14);

3652

base[7]= (V806);

3653

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

3654

(void) (*Lnk256)();

3655

vs_top=sup;

3656

V817= vs_base[0];

3657

if(!((V816)==(CMPcar(V817)))){

3658

goto T1510;}}

3659

V814= CMPcar(((V806))->cc.cc_turbo[12]);

3660

goto T1503;

3661

goto T1510;

3662

T1510:;

3663

V814= Cnil;

3664

goto T1503;

3665

T1503:;

3666

{object V818;

3667

V818= list(2,VV[111],(V806));

3668

{object V819;

3669

V819= ((V812))->v.v_self[1];

3670

if(!(type_of(V819)==t_fixnum)){

3671

goto T1519;}

3672

(void)(((V814))->v.v_self[fix((V819))]= ((V818)));

3673

goto T1515;

3674

goto T1519;

3675

T1519:;

3676

base[6]= (V818);

3677

base[7]= (V806);

3678

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

3679

(void) (*Lnk291)(Lclptr291);

3680

vs_top=sup;}}

3681

goto T1515;

3682

T1515:;

3683

{object V821;

3684

base[6]= VV[112];

3685

base[7]= VV[113];

3686

base[8]= (V806);

3687

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

3688

(void) (*Lnk323)();

3689

vs_top=sup;

3690

V821= vs_base[0];

3691

{object V822;

3692

V822= ((V812))->v.v_self[2];

3693

if(!(type_of(V822)==t_fixnum)){

3694

goto T1529;}

3695

base[6]= ((V814))->v.v_self[fix((V822))]= ((V821));

3696

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

3697

return;

3698

goto T1529;

3699

T1529:;

3700

base[6]= (V821);

3701

base[7]= (V806);

3702

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

3703

(void) (*Lnk324)(Lclptr324);

3704

return;}}}}}

3705

}

3706

}

3707

/* local entry for function (FAST-METHOD REINITIALIZE-INSTANCE :BEFORE (SLOT-CLASS)) */

3708

3709

static object LI49(V828,V829,V830,V831)

3710

3711

object V828;object V829;register object V830;object V831;

3712

{ VMB46 VMS46 VMV46

3713

goto TTL;

3714

TTL:;

3715

base[0]= (V830);

3716

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

3717

(void) (*Lnk326)(Lclptr326);

3718

vs_top=sup;

3719

V833= vs_base[0];

3720

(void)((*(LnkLI325))((V830),V833));

3721

base[0]= (V830);

3722

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

3723

(void) (*Lnk328)(Lclptr328);

3724

vs_top=sup;

3725

V834= vs_base[0];

3726

{object V835 = (*(LnkLI327))((V830),V834);

3727

VMR46(V835)}

3728

base[0]=base[0];

3729

return Cnil;

3730

}

3731

/* function definition for (FAST-METHOD REINITIALIZE-INSTANCE :AFTER (SLOT-CLASS)) */

3732

3733

static void L50()

3734

{register object *base=vs_base;

3735

3736

vs_check;

3737

{object V836;

3738

object V837;

3739

object V838;

3740

check_arg(4);

3741

V836=(base[0]);

3742

V837=(base[1]);

3743

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

3744

V838=(base[3]);

3745

vs_top=sup;

3746

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

3747

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

3748

base[6]=

3749

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

3750

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

3751

(void) (*Lnk329)(Lclptr329);

3752

return;

3753

}

3754

}

3755

/* local entry for function (FAST-METHOD SHARED-INITIALIZE :AFTER (STRUCTURE-CLASS T)) */

3756

3757

static object LI51(V845,V846,V847,V848,V849)

3758

3759

3760

{ VMB48 VMS48 VMV48

3761

goto TTL;

3762

TTL:;

3763

{object V851;

3764

object V853;

3765

object V854;

3766

3767

object V857;

3768

object V858;

3769

object V860;

3770

base[7]= VV[89];

3771

base[8]= V849;

3772

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

3773

(void) (*Lnk271)();

3774

vs_top=sup;

3775

V851= vs_base[0];

3776

if(((V851))==Cnil){

3777

goto T1551;}

3778

V853= CMPcar((V851));

3779

goto T1549;

3780

goto T1551;

3781

T1551:;

3782

V853= Cnil;

3783

goto T1549;

3784

T1549:;

3785

base[7]= VV[90];

3786

base[8]= V849;

3787

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

3788

(void) (*Lnk271)();

3789

vs_top=sup;

3790

V854= vs_base[0];

3791

if(((V854))==Cnil){

3792

goto T1558;}

3793

V856= CMPcar((V854));

3794

goto T1556;

3795

goto T1558;

3796

T1558:;

3797

V856= Cnil;

3798

goto T1556;

3799

T1556:;

3800

base[7]= VV[99];

3801

base[8]= V849;

3802

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

3803

(void) (*Lnk271)();

3804

vs_top=sup;

3805

V861= vs_base[0];

3806

V857= CMPcar(V861);

3807

base[7]= VV[103];

3808

base[8]= V849;

3809

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

3810

(void) (*Lnk271)();

3811

vs_top=sup;

3812

V858= vs_base[0];

3813

if(((V858))==Cnil){

3814

goto T1569;}

3815

V860= CMPcar((V858));

3816

goto T1567;

3817

goto T1569;

3818

T1569:;

3819

V860= Cnil;

3820

goto T1567;

3821

T1567:;

3822

{register object V862;

3823

object V863;

3824

V862= CMPcar((V845));

3825

V863= CMPcdr((V845));

3826

{register object V864;

3827

if(type_of(V847)==t_structure){

3828

goto T1579;}

3829

goto T1577;

3830

goto T1579;

3831

T1579:;

3832

if(!(((V847)->str.str_def)==(VV[142]))){

3833

goto T1577;}

3834

V864= STREF(object,(V847),4);

3835

goto T1575;

3836

goto T1577;

3837

T1577:;{object V866;

3838

V866= (VV[16]->s.s_dbind);

3839

base[7]= small_fixnum(14);

3840

base[8]= (V847);

3841

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

3842

(void) (*Lnk256)();

3843

vs_top=sup;

3844

V867= vs_base[0];

3845

if(!((V866)==(CMPcar(V867)))){

3846

goto T1582;}}

3847

V864= CMPcar(((V847))->cc.cc_turbo[12]);

3848

goto T1575;

3849

goto T1582;

3850

T1582:;

3851

V864= Cnil;

3852

goto T1575;

3853

T1575:;

3854

if((V851)==Cnil){

3855

goto T1589;}

3856

{object V868;

3857

if((V853)!=Cnil){

3858

V868= (V853);

3859

goto T1591;}

3860

base[7]= (V847);

3861

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

3862

(void) (*Lnk317)(Lclptr317);

3863

vs_top=sup;

3864

V869= vs_base[0];

3865

if((((V869)==(VV[116])?Ct:Cnil))==Cnil){

3866

goto T1593;}

3867

V853= Cnil;

3868

goto T1592;

3869

goto T1593;

3870

T1593:;

3871

V853= make_cons((VV[117]->s.s_dbind),Cnil);

3872

goto T1592;

3873

T1592:;

3874

V868= (V853);

3875

goto T1591;

3876

T1591:;

3877

{object V870;

3878

V870= ((V862))->v.v_self[5];

3879

if(!(type_of(V870)==t_fixnum)){

3880

goto T1599;}

3881

(void)(((V864))->v.v_self[fix((V870))]= ((V868)));

3882

goto T1587;

3883

goto T1599;

3884

T1599:;

3885

base[7]= (V868);

3886

base[8]= (V847);

3887

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

3888

(void) (*Lnk307)(Lclptr307);

3889

vs_top=sup;

3890

goto T1587;}}

3891

goto T1589;

3892

T1589:;

3893

{register object V872;

3894

V872= ((V862))->v.v_self[5];

3895

if(!(type_of(V872)==t_fixnum)){

3896

goto T1608;}

3897

V872= ((V864))->v.v_self[fix((V872))];

3898

goto T1606;

3899

goto T1608;

3900

T1608:;

3901

V872= VV[17];

3902

goto T1606;

3903

T1606:;

3904

if(!(((V872))==(VV[17]))){

3905

goto T1611;}

3906

base[7]= (V847);

3907

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

3908

(void) (*Lnk308)(Lclptr308);

3909

vs_top=sup;

3910

V853= vs_base[0];

3911

goto T1603;

3912

goto T1611;

3913

T1611:;

3914

V853= (V872);}

3915

goto T1603;

3916

T1603:;

3917

goto T1587;

3918

T1587:;

3919

{register object V874;

3920

object V875;

3921

object V876;

3922

base[10]= (V847);

3923

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

3924

(void) (*Lnk317)(Lclptr317);

3925

vs_top=sup;

3926

V874= vs_base[0];

3927

{register object V877;

3928

V877= ((V862))->v.v_self[6];

3929

if(!(type_of(V877)==t_fixnum)){

3930

goto T1622;}

3931

V877= ((V864))->v.v_self[fix((V877))];

3932

goto T1620;

3933

goto T1622;

3934

T1622:;

3935

V877= VV[17];

3936

goto T1620;

3937

T1620:;

3938

if(!(((V877))==(VV[17]))){

3939

goto T1625;}

3940

base[10]= (V847);

3941

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

3942

(void) (*Lnk330)(Lclptr330);

3943

vs_top=sup;

3944

V875= vs_base[0];

3945

goto T1617;

3946

goto T1625;

3947

T1625:;

3948

V875= (V877);}

3949

goto T1617;

3950

T1617:;

3951

if((V875)!=Cnil){

3952

V876= (V875);

3953

goto T1628;}

3954

V879= (*(LnkLI331))((V874));

3955

V876= ((/* INLINE-ARGS */V879)==Cnil?Ct:Cnil);

3956

goto T1628;

3957

T1628:;

3958

if((V854)==Cnil){

3959

goto T1631;}

3960

{object V880;

3961

{object V881;

3962

object V882= (V856);

3963

if(V882==Cnil){

3964

V856= Cnil;

3965

goto T1634;}

3966

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

3967

goto T1635;

3968

T1635:;

3969

{object V883;

3970

V883= (V882->c.c_car);

3971

if(((V876))==Cnil){

3972

goto T1637;}

3973

{object V884;

3974

object V885;

3975

object V886;

3976

base[14]= (V883);

3977

base[15]= VV[1];

3978

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

3979

Lgetf();

3980

vs_top=sup;

3981

V884= vs_base[0];

3982

base[14]= Cnil;

3983

base[15]= VV[118];

3984

base[16]= (V874);

3985

base[17]= (V884);

3986

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

3987

Lformat();

3988

vs_top=sup;

3989

V885= vs_base[0];

3990

base[14]= (V885);

3991

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

3992

Lintern();

3993

vs_top=sup;

3994

V886= vs_base[0];

3995

V883= listA(3,VV[119],(V886),(V883));}

3996

goto T1637;

3997

T1637:;

3998

base[11]= (V847);

3999

base[12]= (V883);

4000

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

4001

(void) (*Lnk309)();

4002

vs_top=sup;

4003

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

4004

if((V882=MMcdr(V882))==Cnil){

4005

V856= base[10];

4006

goto T1634;}

4007

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

4008

goto T1635;}

4009

goto T1634;

4010

T1634:;

4011

V880= (V856);

4012

{object V887;

4013

V887= ((V862))->v.v_self[4];

4014

if(!(type_of(V887)==t_fixnum)){

4015

goto T1655;}

4016

(void)(((V864))->v.v_self[fix((V887))]= ((V880)));

4017

goto T1629;

4018

goto T1655;

4019

T1655:;

4020

base[10]= (V880);

4021

base[11]= (V847);

4022

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

4023

(void) (*Lnk310)(Lclptr310);

4024

vs_top=sup;

4025

goto T1629;}}

4026

goto T1631;

4027

T1631:;

4028

{register object V889;

4029

V889= ((V862))->v.v_self[4];

4030

if(!(type_of(V889)==t_fixnum)){

4031

goto T1664;}

4032

V889= ((V864))->v.v_self[fix((V889))];

4033

goto T1662;

4034

goto T1664;

4035

T1664:;

4036

V889= VV[17];

4037

goto T1662;

4038

T1662:;

4039

if(!(((V889))==(VV[17]))){

4040

goto T1667;}

4041

base[10]= (V847);

4042

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

4043

(void) (*Lnk311)(Lclptr311);

4044

vs_top=sup;

4045

V856= vs_base[0];

4046

goto T1659;

4047

goto T1667;

4048

T1667:;

4049

V856= (V889);}

4050

goto T1659;

4051

T1659:;

4052

goto T1629;

4053

T1629:;

4054

if(((V876))==Cnil){

4055

goto T1614;}

4056

{object V891;

4057

object V892;

4058

object V893;

4059

object V894;

4060

object V895;

4061

object V896;

4062

object V897;

4063

object V898;

4064

object V899;

4065

{register object V901;

4066

V901= ((V862))->v.v_self[5];

4067

if(!(type_of(V901)==t_fixnum)){

4068

goto T1678;}

4069

V901= ((V864))->v.v_self[fix((V901))];

4070

goto T1676;

4071

goto T1678;

4072

T1678:;

4073

V901= VV[17];

4074

goto T1676;

4075

T1676:;

4076

if(!(((V901))==(VV[17]))){

4077

goto T1681;}

4078

base[19]= (V847);

4079

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

4080

(void) (*Lnk308)(Lclptr308);

4081

vs_top=sup;

4082

V900= vs_base[0];

4083

goto T1673;

4084

goto T1681;

4085

T1681:;

4086

V900= (V901);}

4087

goto T1673;

4088

T1673:;

4089

V891= CMPcar(V900);

4090

base[20]= Cnil;

4091

base[21]= VV[120];

4092

base[22]= (V874);

4093

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

4094

Lformat();

4095

vs_top=sup;

4096

base[19]= vs_base[0];

4097

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

4098

Lintern();

4099

vs_top=sup;

4100

V892= vs_base[0];

4101

base[20]= Cnil;

4102

base[21]= VV[121];

4103

base[22]= (V892);

4104

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

4105

Lformat();

4106

vs_top=sup;

4107

base[19]= vs_base[0];

4108

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

4109

Lintern();

4110

vs_top=sup;

4111

V893= vs_base[0];

4112

if(((V891))==Cnil){

4113

goto T1697;}

4114

base[19]= (V891);

4115

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

4116

(void) (*Lnk317)(Lclptr317);

4117

vs_top=sup;

4118

V904= vs_base[0];

4119

V905= list(2,VV[123],V904);

4120

V903= make_cons(/* INLINE-ARGS */V905,Cnil);

4121

goto T1695;

4122

goto T1697;

4123

T1697:;

4124

V903= Cnil;

4125

goto T1695;

4126

T1695:;

4127

V906= list(2,VV[126],(V892));

4128

V907= list(4,VV[124],VV[125],/* INLINE-ARGS */V906,list(3,VV[127],(V893),Cnil));

4129

V908= append(V903,/* INLINE-ARGS */V907);

4130

V909= make_cons((V874),/* INLINE-ARGS */V908);

4131

{object V911;

4132

object V912= (V856);

4133

if(V912==Cnil){

4134

V910= Cnil;

4135

goto T1701;}

4136

base[19]=V911=MMcons(Cnil,Cnil);

4137

goto T1702;

4138

T1702:;

4139

base[20]= (V912->c.c_car);

4140

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

4141

(void) (*Lnk314)(Lclptr314);

4142

vs_top=sup;

4143

V914= vs_base[0];

4144

(V911->c.c_car)= list(2,V914,VV[108]);

4145

if((V912=MMcdr(V912))==Cnil){

4146

V910= base[19];

4147

goto T1701;}

4148

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

4149

goto T1702;}

4150

goto T1701;

4151

T1701:;

4152

V894= listA(3,VV[122],/* INLINE-ARGS */V909,V910);

4153

{object V915;

4154

object V916= (V856);

4155

if(V916==Cnil){

4156

V895= Cnil;

4157

goto T1706;}

4158

base[19]=V915=MMcons(Cnil,Cnil);

4159

goto T1707;

4160

T1707:;

4161

base[21]= Cnil;

4162

base[22]= VV[128];

4163

base[23]= (V892);

4164

base[25]= (V916->c.c_car);

4165

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

4166

(void) (*Lnk314)(Lclptr314);

4167

vs_top=sup;

4168

base[24]= vs_base[0];

4169

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

4170

Lformat();

4171

vs_top=sup;

4172

base[20]= vs_base[0];

4173

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

4174

Lintern();

4175

vs_top=sup;

4176

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

4177

if((V916=MMcdr(V916))==Cnil){

4178

V895= base[19];

4179

goto T1706;}

4180

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

4181

goto T1707;}

4182

goto T1706;

4183

T1706:;

4184

{object V918;

4185

object V919= (V856);

4186

if(V919==Cnil){

4187

V896= Cnil;

4188

goto T1715;}

4189

base[19]=V918=MMcons(Cnil,Cnil);

4190

goto T1716;

4191

T1716:;

4192

base[21]= Cnil;

4193

base[22]= VV[129];

4194

base[23]= (V892);

4195

base[25]= (V919->c.c_car);

4196

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

4197

(void) (*Lnk314)(Lclptr314);

4198

vs_top=sup;

4199

base[24]= vs_base[0];

4200

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

4201

Lformat();

4202

vs_top=sup;

4203

base[20]= vs_base[0];

4204

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

4205

Lintern();

4206

vs_top=sup;

4207

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

4208

if((V919=MMcdr(V919))==Cnil){

4209

V896= base[19];

4210

goto T1715;}

4211

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

4212

goto T1716;}

4213

goto T1715;

4214

T1715:;

4215

{object V921;

4216

object V922= (V856);

4217

object V923= (V895);

4218

if(V922==Cnil||V923==Cnil){

4219

V897= Cnil;

4220

goto T1724;}

4221

base[19]=V921=MMcons(Cnil,Cnil);

4222

goto T1725;

4223

T1725:;

4224

{object V926;

4225

base[20]= (V922->c.c_car);

4226

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

4227

(void) (*Lnk332)(Lclptr332);

4228

vs_top=sup;

4229

V926= vs_base[0];

4230

V927= list(2,VV[132],list(3,VV[133],(V874),VV[134]));

4231

(V921->c.c_car)= list(5,VV[130],(V923->c.c_car),VV[131],/* INLINE-ARGS */V927,list(2,(V926),VV[134]));}

4232

if((V922=MMcdr(V922))==Cnil||(V923=MMcdr(V923))==Cnil){

4233

V897= base[19];

4234

goto T1724;}

4235

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

4236

goto T1725;}

4237

goto T1724;

4238

T1724:;

4239

{object V928;

4240

object V929= (V856);

4241

object V930= (V896);

4242

if(V929==Cnil||V930==Cnil){

4243

V898= Cnil;

4244

goto T1729;}

4245

base[19]=V928=MMcons(Cnil,Cnil);

4246

goto T1730;

4247

T1730:;

4248

{object V933;

4249

base[20]= (V929->c.c_car);

4250

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

4251

(void) (*Lnk332)(Lclptr332);

4252

vs_top=sup;

4253

V933= vs_base[0];

4254

V934= list(2,VV[132],list(3,VV[133],(V874),VV[134]));

4255

(V928->c.c_car)= list(5,VV[130],(V930->c.c_car),VV[135],/* INLINE-ARGS */V934,list(3,VV[136],list(2,(V933),VV[134]),VV[137]));}

4256

if((V929=MMcdr(V929))==Cnil||(V930=MMcdr(V930))==Cnil){

4257

V898= base[19];

4258

goto T1729;}

4259

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

4260

goto T1730;}

4261

goto T1729;

4262

T1729:;

4263

base[19]= (V897);

4264

base[20]= (V898);

4265

V936= listA(3,VV[139],list(2,VV[140],(V874)),VV[141]);

4266

base[21]= make_cons(/* INLINE-ARGS */V936,Cnil);

4267

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

4268

Lappend();

4269

vs_top=sup;

4270

V935= vs_base[0];

4271

V899= listA(3,VV[138],(V894),V935);

4272

if(((*(LnkLI331))((V874)))!=Cnil){

4273

goto T1739;}

4274

base[19]= (V899);

4275

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

4276

Leval();

4277

vs_top=sup;

4278

goto T1739;

4279

T1739:;

4280

{

4281

object V937= (V856);

4282

object V938= (V895);

4283

object V939= (V896);

4284

if(V937==Cnil||V938==Cnil||V939==Cnil){

4285

goto T1743;}

4286

goto T1744;

4287

T1744:;

4288

{object V943;

4289

object V944;

4290

V943= (*(LnkLI262))((V938->c.c_car));

4291

if(((*(LnkLI333))((V939->c.c_car)))==Cnil){

4292

goto T1749;}

4293

V944= (*(LnkLI262))((V939->c.c_car));

4294

goto T1747;

4295

goto T1749;

4296

T1749:;

4297

V944= Cnil;

4298

goto T1747;

4299

T1747:;

4300

base[21]= (V943);

4301

base[22]= (V937->c.c_car);

4302

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

4303

(void) (*Lnk334)(Lclptr334);

4304

vs_top=sup;

4305

base[21]= (V944);

4306

base[22]= (V937->c.c_car);

4307

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

4308

(void) (*Lnk335)(Lclptr335);

4309

vs_top=sup;}

4310

if((V937=MMcdr(V937))==Cnil||(V938=MMcdr(V938))==Cnil||(V939=MMcdr(V939))==Cnil){

4311

goto T1743;}

4312

goto T1744;}

4313

goto T1743;

4314

T1743:;

4315

{object V946;

4316

V946= ((V862))->v.v_self[3];

4317

if(!(type_of(V946)==t_fixnum)){

4318

goto T1759;}

4319

(void)(((V864))->v.v_self[fix((V946))]= (V899));

4320

goto T1756;

4321

goto T1759;

4322

T1759:;

4323

base[19]= V899;

4324

base[20]= (V847);

4325

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

4326

(void) (*Lnk336)(Lclptr336);

4327

vs_top=sup;}

4328

goto T1756;

4329

T1756:;

4330

{object V949;

4331

V949= ((V862))->v.v_self[2];

4332

if(!(type_of(V949)==t_fixnum)){

4333

goto T1765;}

4334

(void)(((V864))->v.v_self[fix((V949))]= (V893));

4335

goto T1614;

4336

goto T1765;

4337

T1765:;

4338

base[19]= V893;

4339

base[20]= (V847);

4340

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

4341

(void) (*Lnk337)(Lclptr337);

4342

vs_top=sup;}}}

4343

goto T1614;

4344

T1614:;

4345

(void)((*(LnkLI319))((V847),(V853)));

4346

{object V951;

4347

base[7]= (V847);

4348

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

4349

(void) (*Lnk338)(Lclptr338);

4350

vs_top=sup;

4351

V951= vs_base[0];

4352

{object V952;

4353

V952= ((V862))->v.v_self[1];

4354

if(!(type_of(V952)==t_fixnum)){

4355

goto T1775;}

4356

(void)(((V864))->v.v_self[fix((V952))]= ((V951)));

4357

goto T1770;

4358

goto T1775;

4359

T1775:;

4360

base[7]= (V951);

4361

base[8]= (V847);

4362

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

4363

(void) (*Lnk148)(Lclptr148);

4364

vs_top=sup;}}

4365

goto T1770;

4366

T1770:;

4367

{object V954;

4368

base[7]= (V847);

4369

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

4370

(void) (*Lnk339)(Lclptr339);

4371

vs_top=sup;

4372

V954= vs_base[0];

4373

{object V955;

4374

V955= ((V862))->v.v_self[8];

4375

if(!(type_of(V955)==t_fixnum)){

4376

goto T1784;}

4377

(void)(((V864))->v.v_self[fix((V955))]= ((V954)));

4378

goto T1779;

4379

goto T1784;

4380

T1784:;

4381

base[7]= (V954);

4382

base[8]= (V847);

4383

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

4384

(void) (*Lnk152)(Lclptr152);

4385

vs_top=sup;}}

4386

goto T1779;

4387

T1779:;

4388

{register object V957;

4389

V957= ((V862))->v.v_self[9];

4390

if(!(type_of(V957)==t_fixnum)){

4391

goto T1795;}

4392

V957= ((V864))->v.v_self[fix((V957))];

4393

goto T1793;

4394

goto T1795;

4395

T1795:;

4396

V957= VV[17];

4397

goto T1793;

4398

T1793:;

4399

if(!(((V957))==(VV[17]))){

4400

goto T1798;}

4401

base[7]= (V847);

4402

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

4403

(void) (*Lnk276)(Lclptr276);

4404

vs_top=sup;

4405

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

4406

goto T1788;}

4407

goto T1790;

4408

goto T1798;

4409

T1798:;

4410

if(((V957))!=Cnil){

4411

goto T1788;}}

4412

goto T1790;

4413

T1790:;

4414

{object V959;

4415

V959= (VFUN_NARGS=2,(*(LnkLI340))(small_fixnum(0),(V847)));

4416

{object V960;

4417

V960= ((V862))->v.v_self[9];

4418

if(!(type_of(V960)==t_fixnum)){

4419

goto T1804;}

4420

(void)(((V864))->v.v_self[fix((V960))]= ((V959)));

4421

goto T1788;

4422

goto T1804;

4423

T1804:;

4424

base[7]= (V959);

4425

base[8]= (V847);

4426

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

4427

(void) (*Lnk154)(Lclptr154);

4428

vs_top=sup;}}

4429

goto T1788;

4430

T1788:;

4431

(void)((*(LnkLI341))((V847)));

4432

if((V858)==Cnil){

4433

goto T1812;}

4434

{object V962;

4435

V962= CMPcar((V860));

4436

{object V963;

4437

V963= ((V862))->v.v_self[7];

4438

if(!(type_of(V963)==t_fixnum)){

4439

goto T1817;}

4440

V860= ((V864))->v.v_self[fix((V963))]= ((V962));

4441

goto T1810;

4442

goto T1817;

4443

T1817:;

4444

base[7]= (V962);

4445

base[8]= (V847);

4446

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

4447

(void) (*Lnk315)(Lclptr315);

4448

vs_top=sup;

4449

V860= vs_base[0];

4450

goto T1810;}}

4451

goto T1812;

4452

T1812:;

4453

{object V965;

4454

{register object V966;

4455

V966= ((V862))->v.v_self[7];

4456

if(!(type_of(V966)==t_fixnum)){

4457

goto T1826;}

4458

V966= ((V864))->v.v_self[fix((V966))];

4459

goto T1824;

4460

goto T1826;

4461

T1826:;

4462

V966= VV[17];

4463

goto T1824;

4464

T1824:;

4465

if(!(((V966))==(VV[17]))){

4466

goto T1829;}

4467

base[7]= (V847);

4468

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

4469

(void) (*Lnk316)(Lclptr316);

4470

vs_top=sup;

4471

V965= vs_base[0];

4472

goto T1821;

4473

goto T1829;

4474

T1829:;

4475

V965= (V966);}

4476

goto T1821;

4477

T1821:;

4478

if(((V965))==Cnil){

4479

goto T1833;}

4480

V860= (V965);

4481

goto T1810;

4482

goto T1833;

4483

T1833:;

4484

{object V968;

4485

base[8]= (V847);

4486

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

4487

(void) (*Lnk317)(Lclptr317);

4488

vs_top=sup;

4489

base[7]= vs_base[0];

4490

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

4491

(void) (*Lnk318)();

4492

vs_top=sup;

4493

V968= vs_base[0];

4494

{object V969;

4495

V969= ((V862))->v.v_self[7];

4496

if(!(type_of(V969)==t_fixnum)){

4497

goto T1840;}

4498

V860= ((V864))->v.v_self[fix((V969))]= ((V968));

4499

goto T1810;

4500

goto T1840;

4501

T1840:;

4502

base[7]= (V968);

4503

base[8]= (V847);

4504

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

4505

(void) (*Lnk315)(Lclptr315);

4506

vs_top=sup;

4507

V860= vs_base[0];}}}

4508

goto T1810;

4509

T1810:;

4510

(void)((*(LnkLI321))((V847),(V860)));

4511

{object V971 = (*(LnkLI322))((V847),(V856));

4512

VMR48(V971)}}}}

4513

base[0]=base[0];

4514

return Cnil;

4515

}

4516

/* local entry for function (FAST-METHOD DIRECT-SLOT-DEFINITION-CLASS (STRUCTURE-CLASS T)) */

4517

4518

static object LI52(V976,V977,V978,V979)

4519

4520

object V976;object V977;object V978;object V979;

4521

{ VMB49 VMS49 VMV49

4522

goto TTL;

4523

TTL:;

4524

{object V981 = (VFUN_NARGS=1,(*(LnkLI296))(VV[143]));

4525

VMR49(V981)}

4526

return Cnil;

4527

}

4528

/* local entry for function (FAST-METHOD FINALIZE-INHERITANCE (STRUCTURE-CLASS)) */

4529

4530

static object LI53(V985,V986,V987)

4531

4532

object V985;object V986;object V987;

4533

{ VMB50 VMS50 VMV50

4534

goto TTL;

4535

TTL:;

4536

{object V989 = Cnil;

4537

VMR50(V989)}

4538

return Cnil;

4539

}

4540

/* local entry for function ADD-SLOT-ACCESSORS */

4541

4542

static object LI54(V992,V993)

4543

4544

object V992;object V993;

4545

{ VMB51 VMS51 VMV51

4546

goto TTL;

4547

TTL:;

4548

{object V994 = (*(LnkLI342))((V992),(V993),VV[144]);

4549

VMR51(V994)}

4550

return Cnil;

4551

}

4552

/* local entry for function REMOVE-SLOT-ACCESSORS */

4553

4554

static object LI55(V997,V998)

4555

4556

object V997;object V998;

4557

{ VMB52 VMS52 VMV52

4558

goto TTL;

4559

TTL:;

4560

{object V999 = (*(LnkLI342))((V997),(V998),VV[145]);

4561

VMR52(V999)}

4562

return Cnil;

4563

}

4564

/* local entry for function FIX-SLOT-ACCESSORS */

4565

4566

static object LI58(V1003,V1004,V1005)

4567

4568

object V1003;object V1004;object V1005;

4569

{ VMB53 VMS53 VMV53

4570

goto TTL;

4571

TTL:;

4572

base[0]= (V1005);

4573

base[1]= (V1003);

4574

{object V1006;

4575

object V1007;

4576

V1006= (V1004);

4577

V1007= CMPcar((V1006));

4578

goto T1852;

4579

T1852:;

4580

if(!(((V1006))==Cnil)){

4581

goto T1853;}

4582

{object V1008 = Cnil;

4583

VMR53(V1008)}

4584

goto T1853;

4585

T1853:;

4586

{register object V1009;

4587

base[3]= (V1007);

4588

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

4589

(void) (*Lnk314)(Lclptr314);

4590

vs_top=sup;

4591

V1009= vs_base[0];

4592

{register object V1010;

4593

4594

base[5]= (V1007);

4595

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

4596

(void) (*Lnk343)(Lclptr343);

4597

vs_top=sup;

4598

V1010= vs_base[0];

4599

V1011= CMPcar((V1010));

4600

goto T1865;

4601

T1865:;

4602

if(!(((V1010))==Cnil)){

4603

goto T1866;}

4604

goto T1860;

4605

goto T1866;

4606

T1866:;

4607

base[5]= (V1011);

4608

base[6]= (V1009);

4609

base[7]= VV[146];

4610

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

4611

L59(base);

4612

vs_top=sup;

4613

V1010= CMPcdr((V1010));

4614

V1011= CMPcar((V1010));

4615

goto T1865;}

4616

goto T1860;

4617

T1860:;

4618

{register object V1012;

4619

4620

base[5]= (V1007);

4621

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

4622

(void) (*Lnk344)(Lclptr344);

4623

vs_top=sup;

4624

V1012= vs_base[0];

4625

V1013= CMPcar((V1012));

4626

goto T1883;

4627

T1883:;

4628

if(!(((V1012))==Cnil)){

4629

goto T1884;}

4630

goto T1857;

4631

goto T1884;

4632

T1884:;

4633

base[5]= (V1013);

4634

base[6]= (V1009);

4635

base[7]= VV[147];

4636

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

4637

L59(base);

4638

vs_top=sup;

4639

V1012= CMPcdr((V1012));

4640

V1013= CMPcar((V1012));

4641

goto T1883;}}

4642

goto T1857;

4643

T1857:;

4644

V1006= CMPcdr((V1006));

4645

V1007= CMPcar((V1006));

4646

goto T1852;}

4647

base[0]=base[0];

4648

return Cnil;

4649

}

4650

/* local entry for function ADD-DIRECT-SUBCLASSES */

4651

4652

static object LI60(V1016,V1017)

4653

4654

4655

{ VMB54 VMS54 VMV54

4656

goto TTL;

4657

TTL:;

4658

{register object V1018;

4659

4660

V1018= (V1017);

4661

V1019= CMPcar((V1018));

4662

goto T1905;

4663

T1905:;

4664

if(!(((V1018))==Cnil)){

4665

goto T1906;}

4666

{object V1020 = Cnil;

4667

VMR54(V1020)}

4668

goto T1906;

4669

T1906:;

4670

base[1]= (V1016);

4671

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

4672

(void) (*Lnk345)(Lclptr345);

4673

vs_top=sup;

4674

V1022= vs_base[0];

4675

{register object x= (V1016),V1021= V1022;

4676

while(V1021!=Cnil)

4677

if(x==(V1021->c.c_car)){

4678

goto T1910;

4679

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

4680

base[1]= (V1019);

4681

base[2]= (V1016);

4682

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

4683

(void) (*Lnk346)(Lclptr346);

4684

vs_top=sup;

4685

goto T1910;

4686

T1910:;

4687

V1018= CMPcdr((V1018));

4688

V1019= CMPcar((V1018));

4689

goto T1905;}

4690

base[0]=base[0];

4691

return Cnil;

4692

}

4693

/* local entry for function REMOVE-DIRECT-SUBCLASSES */

4694

4695

static object LI61(V1025,V1026)

4696

4697

4698

{ VMB55 VMS55 VMV55

4699

goto TTL;

4700

TTL:;

4701

{object V1027;

4702

base[0]= (V1025);

4703

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

4704

(void) (*Lnk326)(Lclptr326);

4705

vs_top=sup;

4706

V1027= vs_base[0];

4707

{register object V1028;

4708

4709

base[2]= (V1027);

4710

base[3]= (V1026);

4711

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

4712

(void) (*Lnk347)();

4713

vs_top=sup;

4714

V1028= vs_base[0];

4715

V1029= CMPcar((V1028));

4716

goto T1929;

4717

T1929:;

4718

if(!(((V1028))==Cnil)){

4719

goto T1930;}

4720

{object V1030 = Cnil;

4721

VMR55(V1030)}

4722

goto T1930;

4723

T1930:;

4724

base[2]= (V1029);

4725

base[3]= (V1025);

4726

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

4727

(void) (*Lnk348)(Lclptr348);

4728

vs_top=sup;

4729

V1028= CMPcdr((V1028));

4730

V1029= CMPcar((V1028));

4731

goto T1929;}}

4732

base[0]=base[0];

4733

return Cnil;

4734

}

4735

/* local entry for function (FAST-METHOD FINALIZE-INHERITANCE (STD-CLASS)) */

4736

4737

static object LI62(V1034,V1035,V1036)

4738

4739

object V1034;object V1035;object V1036;

4740

{ VMB56 VMS56 VMV56

4741

goto TTL;

4742

TTL:;

4743

{object V1038 = (*(LnkLI320))((V1036),Ct);

4744

VMR56(V1038)}

4745

return Cnil;

4746

}

4747

/* local entry for function CLASS-HAS-A-FORWARD-REFERENCED-SUPERCLASS-P */

4748

4749

static object LI63(V1040)

4750

4751

object V1040;

4752

{ VMB57 VMS57 VMV57

4753

goto TTL;

4754

TTL:;{object V1041;

4755

base[0]= (V1040);

4756

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

4757

(void) (*Lnk304)(Lclptr304);

4758

vs_top=sup;

4759

V1041= vs_base[0];

4760

if(V1041==Cnil)goto T1944;

4761

{object V1042 = V1041;

4762

VMR57(V1042)}

4763

goto T1944;

4764

T1944:;}

4765

base[0]= (VV[349]->s.s_gfdef);

4766

base[2]= (V1040);

4767

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

4768

(void) (*Lnk326)(Lclptr326);

4769

vs_top=sup;

4770

base[1]= vs_base[0];

4771

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

4772

(void) (*Lnk305)();

4773

vs_top=sup;

4774

{object V1043 = vs_base[0];

4775

VMR57(V1043)}

4776

base[0]=base[0];

4777

return Cnil;

4778

}

4779

/* local entry for function UPDATE-CLASS */

4780

4781

static object LI64(V1046,V1047)

4782

4783

4784

{ VMB58 VMS58 VMV58

4785

goto TTL;

4786

TTL:;

4787

if(((V1047))!=Cnil){

4788

goto T1951;}

4789

base[0]= (V1046);

4790

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

4791

(void) (*Lnk350)(Lclptr350);

4792

vs_top=sup;

4793

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

4794

goto T1951;}

4795

if(((*(LnkLI349))((V1046)))!=Cnil){

4796

goto T1950;}

4797

goto T1951;

4798

T1951:;

4799

base[0]= (V1046);

4800

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

4801

(void) (*Lnk338)(Lclptr338);

4802

vs_top=sup;

4803

V1048= vs_base[0];

4804

(void)((*(LnkLI351))((V1046),V1048));

4805

base[0]= (V1046);

4806

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

4807

(void) (*Lnk339)(Lclptr339);

4808

vs_top=sup;

4809

V1049= vs_base[0];

4810

(void)((*(LnkLI352))((V1046),V1049));

4811

(void)((*(LnkLI353))((V1046)));

4812

base[0]= (V1046);

4813

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

4814

(void) (*Lnk355)(Lclptr355);

4815

vs_top=sup;

4816

V1050= vs_base[0];

4817

(void)((*(LnkLI354))((V1046),V1050));

4818

base[0]= (V1046);

4819

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

4820

(void) (*Lnk356)();

4821

vs_top=sup;

4822

goto T1950;

4823

T1950:;

4824

if(((V1047))!=Cnil){

4825

goto T1970;}

4826

{register object V1051;

4827

4828

base[2]= (V1046);

4829

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

4830

(void) (*Lnk345)(Lclptr345);

4831

vs_top=sup;

4832

V1051= vs_base[0];

4833

V1052= CMPcar((V1051));

4834

goto T1976;

4835

T1976:;

4836

if(!(((V1051))==Cnil)){

4837

goto T1977;}

4838

{object V1053 = Cnil;

4839

VMR58(V1053)}

4840

goto T1977;

4841

T1977:;

4842

(void)((*(LnkLI320))((V1052),Cnil));

4843

V1051= CMPcdr((V1051));

4844

V1052= CMPcar((V1051));

4845

goto T1976;}

4846

goto T1970;

4847

T1970:;

4848

{object V1054 = Cnil;

4849

VMR58(V1054)}

4850

base[0]=base[0];

4851

return Cnil;

4852

}

4853

/* local entry for function UPDATE-CPL */

4854

4855

static object LI65(V1057,V1058)

4856

4857

4858

{ VMB59 VMS59 VMV59

4859

goto TTL;

4860

TTL:;

4861

base[0]= (V1057);

4862

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

4863

(void) (*Lnk350)(Lclptr350);

4864

vs_top=sup;

4865

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

4866

goto T1987;}

4867

base[0]= (V1057);

4868

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

4869

(void) (*Lnk149)(Lclptr149);

4870

vs_top=sup;

4871

V1059= vs_base[0];

4872

if(equal(V1059,(V1058))){

4873

goto T1987;}

4874

(void)((*(LnkLI357))((V1057)));

4875

goto T1987;

4876

T1987:;

4877

if(!((VV[148])->s.s_gfdef!=OBJNULL)){

4878

goto T1997;}

4879

base[0]= (V1058);

4880

base[1]= (V1057);

4881

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

4882

(void) (*Lnk148)(Lclptr148);

4883

vs_top=sup;

4884

goto T1995;

4885

goto T1997;

4886

T1997:;

4887

(void)((*(LnkLI359))(VV[148],VV[149]));

4888

goto T1995;

4889

T1995:;

4890

{object V1060 = (*(LnkLI360))((V1058));

4891

VMR59(V1060)}

4892

base[0]=base[0];

4893

return Cnil;

4894

}

4895

/* local entry for function UPDATE-CLASS-CAN-PRECEDE-P */

4896

4897

static object LI66(V1062)

4898

4899

object V1062;

4900

{ VMB60 VMS60 VMV60

4901

goto TTL;

4902

TTL:;

4903

if(((V1062))==Cnil){

4904

goto T2002;}

4905

{object V1063;

4906

V1063= CMPcar((V1062));

4907

{register object V1064;

4908

4909

V1064= CMPcdr((V1062));

4910

V1065= CMPcar((V1064));

4911

goto T2009;

4912

T2009:;

4913

if(!(((V1064))==Cnil)){

4914

goto T2010;}

4915

goto T2004;

4916

goto T2010;

4917

T2010:;

4918

{register object V1066;

4919

4920

4921

4922

V1066= (V1065);

4923

V1067= (V1063);

4924

V1068= VV[150];

4925

base[3]= (V1066);

4926

base[5]= (V1067);

4927

base[6]= (V1068);

4928

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

4929

(void) (*Lnk361)();

4930

vs_top=sup;

4931

base[4]= vs_base[0];

4932

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

4933

Ladjoin();

4934

vs_top=sup;

4935

V1069= vs_base[0];

4936

base[3]= (V1067);

4937

base[4]= (V1068);

4938

base[5]= (V1069);

4939

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

4940

(void) (*Lnk362)();

4941

vs_top=sup;}

4942

V1064= CMPcdr((V1064));

4943

V1065= CMPcar((V1064));

4944

goto T2009;}}

4945

goto T2004;

4946

T2004:;

4947

V1062= CMPcdr((V1062));

4948

goto TTL;

4949

goto T2002;

4950

T2002:;

4951

{object V1070 = Cnil;

4952

VMR60(V1070)}

4953

base[0]=base[0];

4954

return Cnil;

4955

}

4956

/* local entry for function CLASS-CAN-PRECEDE-P */

4957

4958

static object LI67(V1073,V1074)

4959

4960

object V1073;object V1074;

4961

{ VMB61 VMS61 VMV61

4962

goto TTL;

4963

TTL:;

4964

base[0]= (V1073);

4965

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

4966

(void) (*Lnk363)(Lclptr363);

4967

vs_top=sup;

4968

V1076= vs_base[0];

4969

{register object x= (V1074),V1075= V1076;

4970

while(V1075!=Cnil)

4971

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

4972

{object V1077 = V1075;

4973

VMR61(V1077)}

4974

}else V1075=V1075->c.c_cdr;

4975

{object V1078 = Cnil;

4976

VMR61(V1078)}}

4977

base[0]=base[0];

4978

return Cnil;

4979

}

4980

/* local entry for function UPDATE-SLOTS */

4981

4982

static object LI68(V1081,V1082)

4983

4984

object V1081;object V1082;

4985

{ VMB62 VMS62 VMV62

4986

goto TTL;

4987

TTL:;

4988

{register object V1083;

4989

4990

V1083= Cnil;

4991

V1084= Cnil;

4992

{register object V1085;

4993

4994

V1085= (V1082);

4995

V1086= CMPcar((V1085));

4996

goto T2039;

4997

T2039:;

4998

if(!(((V1085))==Cnil)){

4999

goto T2040;}

5000

goto T2035;

5001

goto T2040;

5002

T2040:;

5003

{register object V1087;

5004

base[1]= (V1086);

5005

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

5006

(void) (*Lnk312)(Lclptr312);

5007

vs_top=sup;

5008

V1087= vs_base[0];

5009

if(!(((V1087))==(VV[49]))){

5010

goto T2048;}

5011

V1083= make_cons(V1086,(V1083));

5012

goto T2044;

5013

goto T2048;

5014

T2048:;

5015

base[1]= (V1087);

5016

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

5017

(void) (*Lnk364)(Lclptr364);

5018

vs_top=sup;

5019

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

5020

goto T2044;}

5021

V1084= make_cons(V1086,(V1084));}

5022

goto T2044;

5023

T2044:;

5024

V1085= CMPcdr((V1085));

5025

V1086= CMPcar((V1085));

5026

goto T2039;}

5027

goto T2035;

5028

T2035:;

5029

{object V1090;

5030

object V1091;

5031

object V1092;

5032

object V1093;

5033

object V1094;

5034

object V1095;

5035

object V1096;

5036

base[8]=VV[314]->s.s_gfdef;

5037

base[9]= (V1083);

5038

base[10]= (VV[365]->s.s_gfdef);

5039

base[11]= VV[151];

5040

base[12]= (VV[366]->s.s_gfdef);

5041

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

5042

(void) (*Lnk367)();

5043

vs_top=sup;

5044

V1099= vs_base[0];

5045

{object V1097;

5046

object V1098= V1099;

5047

if(V1098==Cnil){

5048

V1090= Cnil;

5049

goto T2060;}

5050

base[7]=V1097=MMcons(Cnil,Cnil);

5051

goto T2061;

5052

T2061:;

5053

base[9]= (V1098->c.c_car);

5054

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

5055

(void) (*Lnk314)(Lclptr314);

5056

vs_top=sup;

5057

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

5058

if((V1098=MMcdr(V1098))==Cnil){

5059

V1090= base[7];

5060

goto T2060;}

5061

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

5062

goto T2061;}

5063

goto T2060;

5064

T2060:;

5065

V1091= CMPmake_fixnum((long)length((V1090)));

5066

V1092= (*(LnkLI368))((V1084));

5067

base[7]= (V1081);

5068

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

5069

(void) (*Lnk369)(Lclptr369);

5070

vs_top=sup;

5071

V1093= vs_base[0];

5072

if((V1093)==Cnil){

5073

V1094= Cnil;

5074

goto T2073;}

5075

V1094= ((V1093))->v.v_self[9];

5076

goto T2073;

5077

T2073:;

5078

if((V1093)==Cnil){

5079

V1095= Cnil;

5080

goto T2074;}

5081

V1095= ((V1093))->v.v_self[10];

5082

goto T2074;

5083

T2074:;

5084

if(((V1093))!=Cnil){

5085

goto T2077;}

5086

V1096= (VFUN_NARGS=2,(*(LnkLI340))((V1091),(V1081)));

5087

goto T2075;

5088

goto T2077;

5089

T2077:;

5090

if(!(equal((V1090),(V1094)))){

5091

goto T2080;}

5092

{register object V1100;

5093

object V1101;

5094

5095

object V1103;

5096

V1100= (V1095);

5097

V1101= Cnil;

5098

V1102= (V1092);

5099

V1103= Cnil;

5100

goto T2089;

5101

T2089:;

5102

{object V1104;

5103

if(!(((V1100))==Cnil)){

5104

goto T2095;}

5105

goto T2083;

5106

goto T2095;

5107

T2095:;

5108

V1104= CMPcar((V1100));

5109

V1100= CMPcdr((V1100));

5110

V1101= (V1104);}

5111

{object V1105;

5112

if(!(((V1102))==Cnil)){

5113

goto T2103;}

5114

goto T2083;

5115

goto T2103;

5116

T2103:;

5117

V1105= CMPcar((V1102));

5118

V1102= CMPcdr((V1102));

5119

V1103= (V1105);}

5120

if((CMPcar((V1101)))==(CMPcar((V1103)))){

5121

goto T2090;}

5122

goto T2080;

5123

goto T2090;

5124

T2090:;

5125

goto T2089;}

5126

goto T2083;

5127

T2083:;

5128

V1096= (V1093);

5129

goto T2075;

5130

goto T2080;

5131

T2080:;

5132

base[7]= (V1081);

5133

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

5134

(void) (*Lnk370)(Lclptr370);

5135

vs_top=sup;

5136

base[7]= (V1081);

5137

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

5138

(void) (*Lnk369)(Lclptr369);

5139

vs_top=sup;

5140

V1096= vs_base[0];

5141

goto T2075;

5142

T2075:;

5143

if(!((VV[152])->s.s_gfdef!=OBJNULL)){

5144

goto T2117;}

5145

base[7]= (V1082);

5146

base[8]= V1081;

5147

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

5148

(void) (*Lnk152)(Lclptr152);

5149

vs_top=sup;

5150

goto T2115;

5151

goto T2117;

5152

T2117:;

5153

(void)((*(LnkLI359))(VV[152],VV[153]));

5154

goto T2115;

5155

T2115:;

5156

(void)(((V1096))->v.v_self[9]= ((V1090)));

5157

(void)(((V1096))->v.v_self[10]= ((V1092)));

5158

(void)(((V1096))->v.v_self[12]= ((V1091)));

5159

if(!((VV[154])->s.s_gfdef!=OBJNULL)){

5160

goto T2125;}

5161

base[7]= (V1096);

5162

base[8]= V1081;

5163

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

5164

(void) (*Lnk154)(Lclptr154);

5165

vs_top=sup;

5166

goto T2113;

5167

goto T2125;

5168

T2125:;

5169

(void)((*(LnkLI359))(VV[154],VV[155]));

5170

goto T2113;

5171

T2113:;

5172

if(((V1093))==((V1096))){

5173

goto T2130;}

5174

{object V1107 = (*(LnkLI341))((V1081));

5175

VMR62(V1107)}

5176

goto T2130;

5177

T2130:;

5178

{object V1108 = Cnil;

5179

VMR62(V1108)}}}

5180

base[0]=base[0];

5181

return Cnil;

5182

}

5183

/* local entry for function COMPUTE-CLASS-SLOTS */

5184

5185

static object LI69(V1110)

5186

5187

object V1110;

5188

{ VMB63 VMS63 VMV63

5189

goto TTL;

5190

TTL:;

5191

{register object V1111;

5192

5193

V1111= Cnil;

5194

V1112= Cnil;

5195

{register object V1113;

5196

5197

V1113= (V1110);

5198

V1114= CMPcar((V1113));

5199

goto T2138;

5200

T2138:;

5201

if(!(((V1113))==Cnil)){

5202

goto T2139;}

5203

goto T2134;

5204

goto T2139;

5205

T2139:;

5206

{register object V1115;

5207

base[1]= (V1114);

5208

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

5209

(void) (*Lnk314)(Lclptr314);

5210

vs_top=sup;

5211

V1117= vs_base[0];

5212

base[2]= (V1114);

5213

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

5214

(void) (*Lnk312)(Lclptr312);

5215

vs_top=sup;

5216

base[1]= vs_base[0];

5217

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

5218

(void) (*Lnk66)(Lclptr66);

5219

vs_top=sup;

5220

V1118= vs_base[0];

5221

{register object x= V1117,V1116= V1118;

5222

while(V1116!=Cnil)

5223

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

5224

V1115= (V1116->c.c_car);

5225

goto T2144;

5226

}else V1116=V1116->c.c_cdr;

5227

V1115= Cnil;}

5228

goto T2144;

5229

T2144:;

5230

if(((V1111))!=Cnil){

5231

goto T2151;}

5232

V1112= make_cons((V1115),Cnil);

5233

V1111= (V1112);

5234

goto T2143;

5235

goto T2151;

5236

T2151:;

5237

V1120= make_cons((V1115),Cnil);

5238

((V1112))->c.c_cdr = /* INLINE-ARGS */V1120;

5239

V1119= (V1112);

5240

V1112= CMPcdr(V1119);}

5241

goto T2143;

5242

T2143:;

5243

V1113= CMPcdr((V1113));

5244

V1114= CMPcar((V1113));

5245

goto T2138;}

5246

goto T2134;

5247

T2134:;

5248

{object V1121 = (V1111);

5249

VMR63(V1121)}}

5250

base[0]=base[0];

5251

return Cnil;

5252

}

5253

/* local entry for function COMPUTE-LAYOUT */

5254

5255

static object LI70(V1124,V1125)

5256

5257

object V1124;object V1125;

5258

{ VMB64 VMS64 VMV64

5259

goto TTL;

5260

TTL:;

5261

{object V1126;

5262

5263

V1126= Cnil;

5264

V1127= Cnil;

5265

{register object V1128;

5266

5267

V1128= (V1125);

5268

V1129= CMPcar((V1128));

5269

goto T2169;

5270

T2169:;

5271

if(!(((V1128))==Cnil)){

5272

goto T2170;}

5273

goto T2165;

5274

goto T2170;

5275

T2170:;

5276

base[3]= (V1129);

5277

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

5278

(void) (*Lnk312)(Lclptr312);

5279

vs_top=sup;

5280

V1130= vs_base[0];

5281

if(!((V1130)==(VV[49]))){

5282

goto T2174;}

5283

{register object V1131;

5284

base[3]= (V1129);

5285

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

5286

(void) (*Lnk314)(Lclptr314);

5287

vs_top=sup;

5288

V1131= vs_base[0];

5289

if(((V1126))!=Cnil){

5290

goto T2182;}

5291

V1127= make_cons((V1131),Cnil);

5292

V1126= (V1127);

5293

goto T2174;

5294

goto T2182;

5295

T2182:;

5296

V1133= make_cons((V1131),Cnil);

5297

((V1127))->c.c_cdr = /* INLINE-ARGS */V1133;

5298

V1132= (V1127);

5299

V1127= CMPcdr(V1132);}

5300

goto T2174;

5301

T2174:;

5302

V1128= CMPcdr((V1128));

5303

V1129= CMPcar((V1128));

5304

goto T2169;}

5305

goto T2165;

5306

T2165:;

5307

base[0]= (V1126);}

5308

base[1]= Cnil;

5309

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

5310

base[4]= VV[153];

5311

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

5312

(void) (*Lnk371)();

5313

vs_top=sup;

5314

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

5315

goto T2196;}

5316

base[2]= (V1124);

5317

goto T2194;

5318

goto T2196;

5319

T2196:;

5320

base[2]= CMPcdr((V1124));

5321

goto T2194;

5322

T2194:;

5323

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

5324

L71(base);

5325

vs_top=sup;

5326

V1134= append(base[0],base[1]);

5327

{object V1135 = reverse(/* INLINE-ARGS */V1134);

5328

VMR64(V1135)}

5329

base[0]=base[0];

5330

return Cnil;

5331

}

5332

/* local entry for function UPDATE-GFS-OF-CLASS */

5333

5334

static object LI74(V1137)

5335

5336

object V1137;

5337

{ VMB65 VMS65 VMV65

5338

goto TTL;

5339

TTL:;

5340

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

5341

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

5342

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

5343

(void) (*Lnk350)(Lclptr350);

5344

vs_top=sup;

5345

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

5346

goto T2201;}

5347

{object V1138;

5348

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

5349

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

5350

(void) (*Lnk149)(Lclptr149);

5351

vs_top=sup;

5352

V1138= vs_base[0];{object V1139;

5353

{register object x= (VV[156]->s.s_dbind),V1140= (V1138);

5354

while(V1140!=Cnil)

5355

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

5356

V1139= V1140;

5357

goto T2209;

5358

}else V1140=V1140->c.c_cdr;

5359

V1139= Cnil;}

5360

goto T2209;

5361

T2209:;

5362

if(V1139==Cnil)goto T2208;

5363

if((V1139)==Cnil){

5364

goto T2201;}

5365

goto T2205;

5366

goto T2208;

5367

T2208:;}

5368

{register object x= (VV[157]->s.s_dbind),V1141= (V1138);

5369

while(V1141!=Cnil)

5370

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

5371

goto T2205;

5372

}else V1141=V1141->c.c_cdr;

5373

goto T2201;}}

5374

goto T2205;

5375

T2205:;

5376

base[2]= VV[32];

5377

base[3]= VV[33];

5378

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

5379

Lmake_hash_table();

5380

vs_top=sup;

5381

base[1]= vs_base[0];

5382

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

5383

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

5384

L75(base);

5385

vs_top=sup;

5386

base[2]=

5387

make_cclosure_new(LC144,Cnil,base[0],Cdata);

5388

base[3]= base[1];

5389

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

5390

Lmaphash();

5391

vs_top=sup;

5392

{object V1142 = vs_base[0];

5393

VMR65(V1142)}

5394

goto T2201;

5395

T2201:;

5396

{object V1143 = Cnil;

5397

VMR65(V1143)}

5398

base[0]=base[0];

5399

return Cnil;

5400

}

5401

/* local entry for function UPDATE-INITS */

5402

5403

static object LI76(V1146,V1147)

5404

5405

object V1146;object V1147;

5406

{ VMB66 VMS66 VMV66

5407

goto TTL;

5408

TTL:;

5409

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

5410

base[1]= V1147;

5411

base[2]= V1146;

5412

base[3]= VV[64];

5413

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

5414

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

5415

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

5416

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

5417

else super_funcall_no_event(_funobj);}

5418

vs_top=sup;

5419

{object V1151 = vs_base[0];

5420

VMR66(V1151)}

5421

base[0]=base[0];

5422

return Cnil;

5423

}

5424

/* local entry for function (FAST-METHOD COMPUTE-DEFAULT-INITARGS (SLOT-CLASS)) */

5425

5426

static object LI80(V1155,V1156,V1157)

5427

5428

object V1155;object V1156;object V1157;

5429

{ VMB67 VMS67 VMV67

5430

goto TTL;

5431

TTL:;

5432

base[0]= (V1157);

5433

{object V1159;

5434

base[2]= base[0];

5435

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

5436

(void) (*Lnk149)(Lclptr149);

5437

vs_top=sup;

5438

V1159= vs_base[0];

5439

base[2]= base[0];

5440

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

5441

(void) (*Lnk372)(Lclptr372);

5442

vs_top=sup;

5443

base[1]= vs_base[0];

5444

{object V1160;

5445

base[2]= (V1159);

5446

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

5447

L82(base);

5448

vs_top=sup;

5449

V1160= vs_base[0];

5450

base[2]= (V1160);

5451

base[3]= VV[32];

5452

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

5453

base[5]= VV[151];

5454

base[6]= (VV[373]->s.s_gfdef);

5455

base[7]= VV[158];

5456

base[8]= Ct;

5457

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

5458

(void) (*Lnk374)();

5459

vs_top=sup;

5460

{object V1161 = vs_base[0];

5461

VMR67(V1161)}}}

5462

base[0]=base[0];

5463

return Cnil;

5464

}

5465

/* local entry for function (FAST-METHOD DIRECT-SLOT-DEFINITION-CLASS (STD-CLASS T)) */

5466

5467

static object LI83(V1166,V1167,V1168,V1169)

5468

5469

object V1166;object V1167;object V1168;object V1169;

5470

{ VMB68 VMS68 VMV68

5471

goto TTL;

5472

TTL:;

5473

{object V1171 = (VFUN_NARGS=1,(*(LnkLI296))(VV[159]));

5474

VMR68(V1171)}

5475

return Cnil;

5476

}

5477

/* function definition for MAKE-DIRECT-SLOTD */

5478

5479

static void L84()

5480

{register object *base=vs_base;

5481

5482

vs_check;

5483

{object V1172;

5484

object V1173;

5485

check_arg(2);

5486

V1172=(base[0]);

5487

V1173=(base[1]);

5488

vs_top=sup;

5489

goto TTL;

5490

TTL:;

5491

{object V1174;

5492

V1174= listA(3,VV[113],(V1172),(V1173));

5493

base[2]=VV[300]->s.s_gfdef;

5494

base[4]= (V1172);

5495

base[5]= (V1174);

5496

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

5497

(void) (*Lnk375)(Lclptr375);

5498

vs_top=sup;

5499

base[3]= vs_base[0];

5500

{object V1175;

5501

V1175= (V1174);

5502

vs_top=base+4;

5503

while(V1175!=Cnil)

5504

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

5505

vs_base=base+3;}

5506

(void) (*Lnk300)(Lclptr300);

5507

return;}

5508

}

5509

}

5510

/* local entry for function (FAST-METHOD COMPUTE-SLOTS (STD-CLASS)) */

5511

5512

static object LI85(V1179,V1180,V1181)

5513

5514

object V1179;object V1180;object V1181;

5515

{ VMB70 VMS70 VMV70

5516

goto TTL;

5517

TTL:;

5518

{register object V1183;

5519

V1183= Cnil;

5520

{object V1184;

5521

object V1185;

5522

base[2]= (V1181);

5523

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

5524

(void) (*Lnk149)(Lclptr149);

5525

vs_top=sup;

5526

V1184= vs_base[0];

5527

V1185= CMPcar((V1184));

5528

goto T2250;

5529

T2250:;

5530

if(!(((V1184))==Cnil)){

5531

goto T2251;}

5532

goto T2245;

5533

goto T2251;

5534

T2251:;

5535

{object V1186;

5536

base[2]= (V1185);

5537

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

5538

(void) (*Lnk328)(Lclptr328);

5539

vs_top=sup;

5540

V1186= vs_base[0];

5541

{register object V1187;

5542

5543

V1187= (V1186);

5544

V1188= CMPcar((V1187));

5545

goto T2261;

5546

T2261:;

5547

if(!(((V1187))==Cnil)){

5548

goto T2262;}

5549

goto T2255;

5550

goto T2262;

5551

T2262:;

5552

{register object V1189;

5553

5554

base[5]= (V1188);

5555

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

5556

(void) (*Lnk314)(Lclptr314);

5557

vs_top=sup;

5558

V1189= vs_base[0];

5559

{register object x= (V1189),V1191= (V1183);

5560

while(V1191!=Cnil)

5561

if(EQ(x,V1191->c.c_car->c.c_car) &&V1191->c.c_car != Cnil){

5562

V1190= (V1191->c.c_car);

5563

goto T2269;

5564

}else V1191=V1191->c.c_cdr;

5565

V1190= Cnil;}

5566

goto T2269;

5567

T2269:;

5568

if(((V1190))==Cnil){

5569

goto T2271;}

5570

{register object V1193;

5571

5572

V1193= (V1190);

5573

V1194= make_cons(V1188,CMPcdr((V1193)));

5574

((V1193))->c.c_cdr = (V1194);

5575

goto T2266;}

5576

goto T2271;

5577

T2271:;

5578

{object V1195;

5579

V1195= list(2,(V1189),(V1188));

5580

V1183= make_cons((V1195),(V1183));}}

5581

goto T2266;

5582

T2266:;

5583

V1187= CMPcdr((V1187));

5584

V1188= CMPcar((V1187));

5585

goto T2261;}}

5586

goto T2255;

5587

T2255:;

5588

V1184= CMPcdr((V1184));

5589

V1185= CMPcar((V1184));

5590

goto T2250;}

5591

goto T2245;

5592

T2245:;

5593

{object V1196;

5594

object V1197= (V1183);

5595

if(V1197==Cnil){

5596

{object V1198 = Cnil;

5597

VMR70(V1198)}}

5598

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

5599

goto T2288;

5600

T2288:;

5601

base[1]= (V1181);

5602

base[2]= nreverse(CMPcdr((V1197->c.c_car)));

5603

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

5604

(void) (*Lnk376)(Lclptr376);

5605

vs_top=sup;

5606

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

5607

if((V1197=MMcdr(V1197))==Cnil){

5608

{object V1200 = base[0];

5609

VMR70(V1200)}}

5610

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

5611

goto T2288;}}

5612

base[0]=base[0];

5613

return Cnil;

5614

}

5615

/* local entry for function (FAST-METHOD COMPUTE-SLOTS :AROUND (STD-CLASS)) */

5616

5617

static object LI88(V1204,V1205,V1206)

5618

5619

object V1204;object V1205;object V1206;

5620

{ VMB71 VMS71 VMV71

5621

goto TTL;

5622

TTL:;

5623

base[0]= (V1206);

5624

base[1]= (V1205);

5625

{object V1208;

5626

object V1209;

5627

object V1210;

5628

object V1211;

5629

vs_base=vs_top;

5630

L89(base);

5631

vs_top=sup;

5632

V1208= vs_base[0];

5633

base[2]= base[0];

5634

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

5635

(void) (*Lnk149)(Lclptr149);

5636

vs_top=sup;

5637

V1209= vs_base[0];

5638

V1210= Cnil;

5639

V1211= Cnil;

5640

{register object V1212;

5641

object V1213;

5642

V1212= (V1208);

5643

V1213= CMPcar((V1212));

5644

goto T2301;

5645

T2301:;

5646

if(!(((V1212))==Cnil)){

5647

goto T2302;}

5648

goto T2297;

5649

goto T2302;

5650

T2302:;

5651

{object V1214;

5652

base[3]= (V1213);

5653

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

5654

(void) (*Lnk312)(Lclptr312);

5655

vs_top=sup;

5656

V1214= vs_base[0];

5657

if(!(((V1214))==(VV[49]))){

5658

goto T2310;}

5659

V1210= make_cons(V1213,(V1210));

5660

goto T2306;

5661

goto T2310;

5662

T2310:;

5663

base[3]= (V1214);

5664

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

5665

(void) (*Lnk364)(Lclptr364);

5666

vs_top=sup;

5667

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

5668

goto T2306;}

5669

V1211= make_cons(V1213,(V1211));}

5670

goto T2306;

5671

T2306:;

5672

V1212= CMPcdr((V1212));

5673

V1213= CMPcar((V1212));

5674

goto T2301;}

5675

goto T2297;

5676

T2297:;

5677

{object V1217;

5678

V1217= (*(LnkLI377))((V1209),(V1210));

5679

{register object V1218;

5680

object V1219;

5681

V1218= (V1210);

5682

V1219= CMPcar((V1218));

5683

goto T2327;

5684

T2327:;

5685

if(!(((V1218))==Cnil)){

5686

goto T2328;}

5687

goto T2322;

5688

goto T2328;

5689

T2328:;

5690

{object V1221;

5691

base[5]= (V1219);

5692

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

5693

(void) (*Lnk314)(Lclptr314);

5694

vs_top=sup;

5695

base[4]= vs_base[0];

5696

base[5]= (V1217);

5697

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

5698

(void) (*Lnk378)();

5699

vs_top=sup;

5700

V1221= vs_base[0];

5701

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

5702

(void)((

5703

V1223 = V1222,

5704

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

5705

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

5706

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

5707

(fcall.fun=(V1223),fcalln))((V1221),V1219)));}

5708

V1218= CMPcdr((V1218));

5709

V1219= CMPcar((V1218));

5710

goto T2327;}}

5711

goto T2322;

5712

T2322:;

5713

{register object V1224;

5714

object V1225;

5715

V1224= (V1211);

5716

V1225= CMPcar((V1224));

5717

goto T2347;

5718

T2347:;

5719

if(!(((V1224))==Cnil)){

5720

goto T2348;}

5721

goto T2343;

5722

goto T2348;

5723

T2348:;

5724

{object V1227;

5725

base[4]= (V1225);

5726

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

5727

(void) (*Lnk314)(Lclptr314);

5728

vs_top=sup;

5729

V1229= vs_base[0];

5730

base[5]= (V1225);

5731

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

5732

(void) (*Lnk312)(Lclptr312);

5733

vs_top=sup;

5734

base[4]= vs_base[0];

5735

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

5736

(void) (*Lnk66)(Lclptr66);

5737

vs_top=sup;

5738

V1230= vs_base[0];

5739

{register object x= V1229,V1228= V1230;

5740

while(V1228!=Cnil)

5741

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

5742

V1227= (V1228->c.c_car);

5743

goto T2353;

5744

}else V1228=V1228->c.c_cdr;

5745

V1227= Cnil;}

5746

goto T2353;

5747

T2353:;

5748

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

5749

(void)((

5750

V1232 = V1231,

5751

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

5752

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

5753

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

5754

(fcall.fun=(V1232),fcalln))((V1227),V1225)));}

5755

V1224= CMPcdr((V1224));

5756

V1225= CMPcar((V1224));

5757

goto T2347;}

5758

goto T2343;

5759

T2343:;

5760

base[2]=VV[379]->s.s_gfdef;

5761

{

5762

object V1233= (V1208);

5763

if(V1233==Cnil){

5764

goto T2365;}

5765

goto T2366;

5766

T2366:;

5767

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

5768

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

5769

(void) (*Lnk379)(Lclptr379);

5770

vs_top=sup;

5771

if((V1233=MMcdr(V1233))==Cnil){

5772

goto T2365;}

5773

goto T2366;}

5774

goto T2365;

5775

T2365:;

5776

{object V1234 = (V1208);

5777

VMR71(V1234)}}

5778

base[0]=base[0];

5779

return Cnil;

5780

}

5781

/* local entry for function (FAST-METHOD COMPUTE-SLOTS (STRUCTURE-CLASS)) */

5782

5783

static object LI90(V1238,V1239,V1240)

5784

5785

5786

{ VMB72 VMS72 VMV72

5787

goto TTL;

5788

TTL:;

5789

{object V1242;

5790

object V1243;

5791

V1242= CMPcar((V1238));

5792

V1243= CMPcdr((V1238));

5793

{object V1244;

5794

if(type_of(V1240)==t_structure){

5795

goto T2379;}

5796

goto T2377;

5797

goto T2379;

5798

T2379:;

5799

if(!(((V1240)->str.str_def)==(VV[177]))){

5800

goto T2377;}

5801

V1244= STREF(object,(V1240),4);

5802

goto T2375;

5803

goto T2377;

5804

T2377:;{object V1246;

5805

V1246= (VV[16]->s.s_dbind);

5806

base[0]= small_fixnum(14);

5807

base[1]= (V1240);

5808

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

5809

(void) (*Lnk256)();

5810

vs_top=sup;

5811

V1247= vs_base[0];

5812

if(!((V1246)==(CMPcar(V1247)))){

5813

goto T2382;}}

5814

V1244= CMPcar(((V1240))->cc.cc_turbo[12]);

5815

goto T2375;

5816

goto T2382;

5817

T2382:;

5818

V1244= Cnil;

5819

goto T2375;

5820

T2375:;

5821

{register object V1251;

5822

V1251= ((V1242))->v.v_self[1];

5823

if(!(type_of(V1251)==t_fixnum)){

5824

goto T2393;}

5825

V1251= ((V1244))->v.v_self[fix((V1251))];

5826

goto T2391;

5827

goto T2393;

5828

T2393:;

5829

V1251= VV[17];

5830

goto T2391;

5831

T2391:;

5832

if(!(((V1251))==(VV[17]))){

5833

goto T2396;}

5834

base[1]= (V1240);

5835

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

5836

(void) (*Lnk380)(Lclptr380);

5837

vs_top=sup;

5838

V1250= vs_base[0];

5839

goto T2388;

5840

goto T2396;

5841

T2396:;

5842

V1250= (V1251);}

5843

goto T2388;

5844

T2388:;

5845

V1253= reverse(V1250);

5846

{object V1248;

5847

object V1249= /* INLINE-ARGS */V1253;

5848

if(V1249==Cnil){

5849

{object V1254 = Cnil;

5850

VMR72(V1254)}}

5851

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

5852

goto T2387;

5853

T2387:;

5854

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

5855

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

5856

(void) (*Lnk328)(Lclptr328);

5857

vs_top=sup;

5858

V1258= vs_base[0];

5859

{object V1256;

5860

object V1257= V1258;

5861

if(V1257==Cnil){

5862

(V1248->c.c_cdr)= Cnil;

5863

goto T2399;}

5864

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

5865

goto T2400;

5866

T2400:;

5867

base[2]= (V1240);

5868

base[3]= make_cons((V1257->c.c_car),Cnil);

5869

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

5870

(void) (*Lnk376)(Lclptr376);

5871

vs_top=sup;

5872

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

5873

if((V1257=MMcdr(V1257))==Cnil){

5874

(V1248->c.c_cdr)= base[1];

5875

goto T2399;}

5876

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

5877

goto T2400;}

5878

goto T2399;

5879

T2399:;

5880

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

5881

if((V1249=MMcdr(V1249))==Cnil){

5882

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

5883

{object V1260 = base[0];

5884

VMR72(V1260)}}

5885

goto T2387;}}}

5886

base[0]=base[0];

5887

return Cnil;

5888

}

5889

/* local entry for function (FAST-METHOD COMPUTE-SLOTS :AROUND (STRUCTURE-CLASS)) */

5890

5891

static object LI93(V1264,V1265,V1266)

5892

5893

object V1264;object V1265;object V1266;

5894

{ VMB73 VMS73 VMV73

5895

goto TTL;

5896

TTL:;

5897

base[0]= (V1266);

5898

base[1]= (V1265);

5899

{object V1268;

5900

vs_base=vs_top;

5901

L94(base);

5902

vs_top=sup;

5903

V1268= vs_base[0];

5904

base[2]=VV[379]->s.s_gfdef;

5905

{

5906

object V1269= (V1268);

5907

if(V1269==Cnil){

5908

goto T2409;}

5909

goto T2410;

5910

T2410:;

5911

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

5912

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

5913

(void) (*Lnk379)(Lclptr379);

5914

vs_top=sup;

5915

if((V1269=MMcdr(V1269))==Cnil){

5916

goto T2409;}

5917

goto T2410;}

5918

goto T2409;

5919

T2409:;

5920

{object V1270 = (V1268);

5921

VMR73(V1270)}}

5922

base[0]=base[0];

5923

return Cnil;

5924

}

5925

/* function definition for (FAST-METHOD COMPUTE-EFFECTIVE-SLOT-DEFINITION (SLOT-CLASS T)) */

5926

5927

static void L95()

5928

{register object *base=vs_base;

5929

5930

vs_check;

5931

{object V1271;

5932

object V1272;

5933

5934

object V1274;

5935

check_arg(4);

5936

V1271=(base[0]);

5937

V1272=(base[1]);

5938

V1273=(base[2]);

5939

V1274=(base[3]);

5940

vs_top=sup;

5941

goto TTL;

5942

TTL:;

5943

{object V1276;

5944

object V1277;

5945

base[6]= (V1273);

5946

base[7]= (V1274);

5947

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

5948

(void) (*Lnk381)(Lclptr381);

5949

vs_top=sup;

5950

V1276= vs_base[0];

5951

base[6]= (V1273);

5952

base[7]= (V1276);

5953

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

5954

(void) (*Lnk382)(Lclptr382);

5955

vs_top=sup;

5956

V1277= vs_base[0];

5957

base[6]=VV[300]->s.s_gfdef;

5958

base[7]= (V1277);

5959

{object V1278;

5960

V1278= (V1276);

5961

vs_top=base+8;

5962

while(V1278!=Cnil)

5963

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

5964

vs_base=base+7;}

5965

(void) (*Lnk300)(Lclptr300);

5966

return;}

5967

}

5968

}

5969

/* local entry for function (FAST-METHOD EFFECTIVE-SLOT-DEFINITION-CLASS (STD-CLASS T)) */

5970

5971

static object LI96(V1283,V1284,V1285,V1286)

5972

5973

object V1283;object V1284;object V1285;object V1286;

5974

{ VMB75 VMS75 VMV75

5975

goto TTL;

5976

TTL:;

5977

{object V1288 = (VFUN_NARGS=1,(*(LnkLI296))(VV[191]));

5978

VMR75(V1288)}

5979

return Cnil;

5980

}

5981

/* local entry for function (FAST-METHOD EFFECTIVE-SLOT-DEFINITION-CLASS (STRUCTURE-CLASS T)) */

5982

5983

static object LI97(V1293,V1294,V1295,V1296)

5984

5985

object V1293;object V1294;object V1295;object V1296;

5986

{ VMB76 VMS76 VMV76

5987

goto TTL;

5988

TTL:;

5989

{object V1298 = (VFUN_NARGS=1,(*(LnkLI296))(VV[192]));

5990

VMR76(V1298)}

5991

return Cnil;

5992

}

5993

/* local entry for function (FAST-METHOD COMPUTE-EFFECTIVE-SLOT-DEFINITION-INITARGS (SLOT-CLASS T)) */

5994

5995

static object LI98(V1303,V1304,V1305,V1306)

5996

5997

object V1303;object V1304;object V1305;object V1306;

5998

{ VMB77 VMS77 VMV77

5999

goto TTL;

6000

TTL:;

6001

{object V1308;

6002

object V1309;

6003

object V1310;

6004

6005

object V1312;

6006

6007

6008

6009

6010

V1308= Cnil;

6011

V1309= Cnil;

6012

V1310= Cnil;

6013

V1311= Cnil;

6014

V1312= Cnil;

6015

V1313= Ct;

6016

V1314= Cnil;

6017

V1315= Cnil;

6018

V1316= Cnil;

6019

{register object V1317;

6020

6021

V1317= (V1306);

6022

V1318= CMPcar((V1317));

6023

goto T2442;

6024

T2442:;

6025

if(!(((V1317))==Cnil)){

6026

goto T2443;}

6027

goto T2438;

6028

goto T2443;

6029

T2443:;

6030

if(((V1318))==Cnil){

6031

goto T2447;}

6032

if(((V1314))!=Cnil){

6033

goto T2450;}

6034

base[1]= (V1318);

6035

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

6036

(void) (*Lnk314)(Lclptr314);

6037

vs_top=sup;

6038

V1308= vs_base[0];

6039

V1314= Ct;

6040

goto T2450;

6041

T2450:;

6042

if(((V1315))!=Cnil){

6043

goto T2457;}

6044

base[1]= (V1318);

6045

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

6046

(void) (*Lnk313)(Lclptr313);

6047

vs_top=sup;

6048

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

6049

goto T2457;}

6050

base[1]= (V1318);

6051

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

6052

(void) (*Lnk383)(Lclptr383);

6053

vs_top=sup;

6054

V1310= vs_base[0];

6055

base[1]= (V1318);

6056

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

6057

(void) (*Lnk313)(Lclptr313);

6058

vs_top=sup;

6059

V1309= vs_base[0];

6060

V1315= Ct;

6061

goto T2457;

6062

T2457:;

6063

if(((V1316))!=Cnil){

6064

goto T2470;}

6065

base[1]= (V1318);

6066

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

6067

(void) (*Lnk312)(Lclptr312);

6068

vs_top=sup;

6069

V1312= vs_base[0];

6070

V1316= Ct;

6071

goto T2470;

6072

T2470:;

6073

base[1]= (V1318);

6074

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

6075

(void) (*Lnk384)(Lclptr384);

6076

vs_top=sup;

6077

V1319= vs_base[0];

6078

V1311= append(V1319,(V1311));

6079

{register object V1320;

6080

base[1]= (V1318);

6081

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

6082

(void) (*Lnk385)(Lclptr385);

6083

vs_top=sup;

6084

V1320= vs_base[0];

6085

if(!(((V1313))==(Ct))){

6086

goto T2485;}

6087

V1313= (V1320);

6088

goto T2483;

6089

goto T2485;

6090

T2485:;

6091

base[1]= (V1313);

6092

base[2]= (V1320);

6093

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

6094

(void) (*Lnk386)();

6095

vs_top=sup;

6096

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

6097

goto T2488;}

6098

goto T2483;

6099

goto T2488;

6100

T2488:;

6101

V1313= list(3,VV[193],(V1313),(V1320));

6102

goto T2483;

6103

T2483:;}

6104

goto T2447;

6105

T2447:;

6106

V1317= CMPcdr((V1317));

6107

V1318= CMPcar((V1317));

6108

goto T2442;}

6109

goto T2438;

6110

T2438:;

6111

base[0]= VV[1];

6112

base[1]= (V1308);

6113

base[2]= VV[194];

6114

base[3]= (V1310);

6115

base[4]= VV[195];

6116

base[5]= (V1309);

6117

base[6]= VV[196];

6118

base[7]= (V1311);

6119

base[8]= VV[197];

6120

base[9]= (V1312);

6121

base[10]= VV[198];

6122

base[11]= (V1313);

6123

base[12]= VV[113];

6124

base[13]= (V1305);

6125

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

6126

Llist();

6127

vs_top=sup;

6128

{object V1321 = vs_base[0];

6129

VMR77(V1321)}}

6130

base[0]=base[0];

6131

return Cnil;

6132

}

6133

/* local entry for function (FAST-METHOD COMPUTE-EFFECTIVE-SLOT-DEFINITION-INITARGS :AROUND (STRUCTURE-CLASS T)) */

6134

6135

static object LI101(V1326,V1327,V1328,V1329)

6136

6137

object V1326;object V1327;object V1328;object V1329;

6138

{ VMB78 VMS78 VMV78

6139

goto TTL;

6140

TTL:;

6141

base[0]= (V1329);

6142

base[1]= (V1328);

6143

base[2]= (V1327);

6144

{object V1331;

6145

V1331= CMPcar(base[0]);

6146

base[3]= (V1331);

6147

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

6148

(void) (*Lnk332)(Lclptr332);

6149

vs_top=sup;

6150

V1332= vs_base[0];

6151

base[3]= (V1331);

6152

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

6153

(void) (*Lnk387)(Lclptr387);

6154

vs_top=sup;

6155

V1333= vs_base[0];

6156

base[3]= (V1331);

6157

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

6158

(void) (*Lnk388)(Lclptr388);

6159

vs_top=sup;

6160

V1334= vs_base[0];

6161

vs_base=vs_top;

6162

L102(base);

6163

vs_top=sup;

6164

V1335= vs_base[0];

6165

{object V1336 = listA(7,VV[119],V1332,VV[199],V1333,VV[200],V1334,V1335);

6166

VMR78(V1336)}}

6167

base[0]=base[0];

6168

return Cnil;

6169

}

6170

/* local entry for function (FAST-METHOD READER-METHOD-CLASS (SLOT-CLASS T)) */

6171

6172

static object LI103(V1342,V1343,V1344,V1345,V1346)

6173

6174

object V1342;object V1343;object V1344;object V1345;object V1346;

6175

{ VMB79 VMS79 VMV79

6176

goto TTL;

6177

TTL:;

6178

{object V1349 = (VFUN_NARGS=1,(*(LnkLI296))(VV[214]));

6179

VMR79(V1349)}

6180

return Cnil;

6181

}

6182

/* function definition for (FAST-METHOD ADD-READER-METHOD (SLOT-CLASS T T)) */

6183

6184

static void L104()

6185

{register object *base=vs_base;

6186

6187

vs_check;

6188

{object V1350;

6189

object V1351;

6190

6191

object V1353;

6192

6193

check_arg(5);

6194

V1350=(base[0]);

6195

V1351=(base[1]);

6196

V1352=(base[2]);

6197

V1353=(base[3]);

6198

V1354=(base[4]);

6199

vs_top=sup;

6200

goto TTL;

6201

TTL:;

6202

base[5]=(VV[389]->s.s_gfdef);

6203

base[6]= (V1353);

6204

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

6205

base[9]= VV[214];

6206

base[10]= Cnil;{object V1357;

6207

base[12]= (V1352);

6208

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

6209

(void) (*Lnk317)(Lclptr317);

6210

vs_top=sup;

6211

V1357= vs_base[0];

6212

if(V1357==Cnil)goto T2531;

6213

V1356= V1357;

6214

goto T2530;

6215

goto T2531;

6216

T2531:;}

6217

V1356= VV[215];

6218

goto T2530;

6219

T2530:;

6220

base[11]= make_cons(V1356,Cnil);

6221

base[12]= make_cons((V1352),Cnil);

6222

base[14]= (V1352);

6223

base[15]= (V1354);

6224

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

6225

(void) (*Lnk391)(Lclptr391);

6226

vs_top=sup;

6227

base[13]= vs_base[0];

6228

base[14]= VV[216];

6229

base[15]= (V1354);

6230

base[7]= simple_lispcall(base+8,7);

6231

lispcall(base+5,2);

6232

return;

6233

}

6234

}

6235

/* local entry for function (FAST-METHOD WRITER-METHOD-CLASS (SLOT-CLASS T)) */

6236

6237

static object LI105(V1363,V1364,V1365,V1366,V1367)

6238

6239

object V1363;object V1364;object V1365;object V1366;object V1367;

6240

{ VMB81 VMS81 VMV81

6241

goto TTL;

6242

TTL:;

6243

{object V1370 = (VFUN_NARGS=1,(*(LnkLI296))(VV[217]));

6244

VMR81(V1370)}

6245

return Cnil;

6246

}

6247

/* function definition for (FAST-METHOD ADD-WRITER-METHOD (SLOT-CLASS T T)) */

6248

6249

static void L106()

6250

{register object *base=vs_base;

6251

6252

vs_check;

6253

{object V1371;

6254

object V1372;

6255

6256

object V1374;

6257

6258

check_arg(5);

6259

V1371=(base[0]);

6260

V1372=(base[1]);

6261

V1373=(base[2]);

6262

V1374=(base[3]);

6263

V1375=(base[4]);

6264

vs_top=sup;

6265

goto TTL;

6266

TTL:;

6267

base[5]=(VV[389]->s.s_gfdef);

6268

base[6]= (V1374);

6269

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

6270

base[9]= VV[217];

6271

base[10]= Cnil;{object V1378;

6272

base[12]= (V1373);

6273

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

6274

(void) (*Lnk317)(Lclptr317);

6275

vs_top=sup;

6276

V1378= vs_base[0];

6277

if(V1378==Cnil)goto T2550;

6278

V1377= V1378;

6279

goto T2549;

6280

goto T2550;

6281

T2550:;}

6282

V1377= VV[215];

6283

goto T2549;

6284

T2549:;

6285

base[11]= list(2,VV[218],V1377);

6286

base[12]= list(2,(VV[219]->s.s_dbind),(V1373));

6287

base[14]= (V1373);

6288

base[15]= (V1375);

6289

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

6290

(void) (*Lnk392)(Lclptr392);

6291

vs_top=sup;

6292

base[13]= vs_base[0];

6293

base[14]= VV[220];

6294

base[15]= (V1375);

6295

base[7]= simple_lispcall(base+8,7);

6296

lispcall(base+5,2);

6297

return;

6298

}

6299

}

6300

/* function definition for (FAST-METHOD ADD-BOUNDP-METHOD (SLOT-CLASS T T)) */

6301

6302

static void L107()

6303

{register object *base=vs_base;

6304

6305

vs_check;

6306

{object V1379;

6307

object V1380;

6308

6309

object V1382;

6310

6311

check_arg(5);

6312

V1379=(base[0]);

6313

V1380=(base[1]);

6314

V1381=(base[2]);

6315

V1382=(base[3]);

6316

V1383=(base[4]);

6317

vs_top=sup;

6318

goto TTL;

6319

TTL:;

6320

base[5]=(VV[389]->s.s_gfdef);

6321

base[6]= (V1382);

6322

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

6323

base[9]= VV[221];

6324

base[10]= Cnil;{object V1386;

6325

base[12]= (V1381);

6326

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

6327

(void) (*Lnk317)(Lclptr317);

6328

vs_top=sup;

6329

V1386= vs_base[0];

6330

if(V1386==Cnil)goto T2567;

6331

V1385= V1386;

6332

goto T2566;

6333

goto T2567;

6334

T2567:;}

6335

V1385= VV[215];

6336

goto T2566;

6337

T2566:;

6338

base[11]= make_cons(V1385,Cnil);

6339

base[12]= make_cons((V1381),Cnil);

6340

base[14]= (V1381);

6341

base[15]= (V1383);

6342

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

6343

(void) (*Lnk393)(Lclptr393);

6344

vs_top=sup;

6345

base[13]= vs_base[0];

6346

base[14]= VV[222];

6347

base[15]= (V1383);

6348

base[7]= simple_lispcall(base+8,7);

6349

lispcall(base+5,2);

6350

return;

6351

}

6352

}

6353

/* local entry for function (FAST-METHOD REMOVE-READER-METHOD (SLOT-CLASS T)) */

6354

6355

static object LI108(V1391,V1392,V1393,V1394)

6356

6357

object V1391;object V1392;object V1393;register object V1394;

6358

{ VMB84 VMS84 VMV84

6359

goto TTL;

6360

TTL:;

6361

{object V1396;

6362

V1397= make_cons((V1393),Cnil);

6363

V1396= (VFUN_NARGS=4,(*(LnkLI394))((V1394),Cnil,/* INLINE-ARGS */V1397,Cnil));

6364

if(((V1396))==Cnil){

6365

goto T2580;}

6366

base[0]= (V1394);

6367

base[1]= (V1396);

6368

{object V1398 = simple_symlispcall(VV[395],base+0,2);

6369

VMR84(V1398)}

6370

goto T2580;

6371

T2580:;

6372

{object V1399 = Cnil;

6373

VMR84(V1399)}}

6374

base[0]=base[0];

6375

return Cnil;

6376

}

6377

/* local entry for function (FAST-METHOD REMOVE-WRITER-METHOD (SLOT-CLASS T)) */

6378

6379

static object LI109(V1404,V1405,V1406,V1407)

6380

6381

object V1404;object V1405;object V1406;register object V1407;

6382

{ VMB85 VMS85 VMV85

6383

goto TTL;

6384

TTL:;

6385

{object V1409;

6386

V1410= list(2,(VV[219]->s.s_dbind),(V1406));

6387

V1409= (VFUN_NARGS=4,(*(LnkLI394))((V1407),Cnil,/* INLINE-ARGS */V1410,Cnil));

6388

if(((V1409))==Cnil){

6389

goto T2588;}

6390

base[0]= (V1407);

6391

base[1]= (V1409);

6392

{object V1411 = simple_symlispcall(VV[395],base+0,2);

6393

VMR85(V1411)}

6394

goto T2588;

6395

T2588:;

6396

{object V1412 = Cnil;

6397

VMR85(V1412)}}

6398

base[0]=base[0];

6399

return Cnil;

6400

}

6401

/* local entry for function (FAST-METHOD REMOVE-BOUNDP-METHOD (SLOT-CLASS T)) */

6402

6403

static object LI110(V1417,V1418,V1419,V1420)

6404

6405

object V1417;object V1418;object V1419;register object V1420;

6406

{ VMB86 VMS86 VMV86

6407

goto TTL;

6408

TTL:;

6409

{object V1422;

6410

V1423= make_cons((V1419),Cnil);

6411

V1422= (VFUN_NARGS=4,(*(LnkLI394))((V1420),Cnil,/* INLINE-ARGS */V1423,Cnil));

6412

if(((V1422))==Cnil){

6413

goto T2596;}

6414

base[0]= (V1420);

6415

base[1]= (V1422);

6416

{object V1424 = simple_symlispcall(VV[395],base+0,2);

6417

VMR86(V1424)}

6418

goto T2596;

6419

T2596:;

6420

{object V1425 = Cnil;

6421

VMR86(V1425)}}

6422

base[0]=base[0];

6423

return Cnil;

6424

}

6425

/* local entry for function (FAST-METHOD MAKE-READER-METHOD-FUNCTION (SLOT-CLASS T)) */

6426

6427

static object LI111(V1430,V1431,V1432,V1433)

6428

6429

object V1430;object V1431;object V1432;object V1433;

6430

{ VMB87 VMS87 VMV87

6431

goto TTL;

6432

TTL:;

6433

base[0]= (V1432);

6434

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

6435

(void) (*Lnk317)(Lclptr317);

6436

vs_top=sup;

6437

V1435= vs_base[0];

6438

{object V1436 = (*(LnkLI396))(V1435,(V1433));

6439

VMR87(V1436)}

6440

base[0]=base[0];

6441

return Cnil;

6442

}

6443

/* local entry for function (FAST-METHOD MAKE-WRITER-METHOD-FUNCTION (SLOT-CLASS T)) */

6444

6445

static object LI112(V1441,V1442,V1443,V1444)

6446

6447

object V1441;object V1442;object V1443;object V1444;

6448

{ VMB88 VMS88 VMV88

6449

goto TTL;

6450

TTL:;

6451

base[0]= (V1443);

6452

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

6453

(void) (*Lnk317)(Lclptr317);

6454

vs_top=sup;

6455

V1446= vs_base[0];

6456

{object V1447 = (*(LnkLI397))(V1446,(V1444));

6457

VMR88(V1447)}

6458

base[0]=base[0];

6459

return Cnil;

6460

}

6461

/* local entry for function (FAST-METHOD MAKE-BOUNDP-METHOD-FUNCTION (SLOT-CLASS T)) */

6462

6463

static object LI113(V1452,V1453,V1454,V1455)

6464

6465

object V1452;object V1453;object V1454;object V1455;

6466

{ VMB89 VMS89 VMV89

6467

goto TTL;

6468

TTL:;

6469

base[0]= (V1454);

6470

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

6471

(void) (*Lnk317)(Lclptr317);

6472

vs_top=sup;

6473

V1457= vs_base[0];

6474

{object V1458 = (*(LnkLI398))(V1457,(V1455));

6475

VMR89(V1458)}

6476

base[0]=base[0];

6477

return Cnil;

6478

}

6479

/* local entry for function (FAST-METHOD INFORM-TYPE-SYSTEM-ABOUT-CLASS (STD-CLASS T)) */

6480

6481

static object LI114(V1463,V1464,V1465,V1466)

6482

6483

object V1463;object V1464;object V1465;object V1466;

6484

{ VMB90 VMS90 VMV90

6485

goto TTL;

6486

TTL:;

6487

{object V1468 = (*(LnkLI399))((V1466));

6488

VMR90(V1468)}

6489

return Cnil;

6490

}

6491

/* local entry for function (FAST-METHOD COMPATIBLE-META-CLASS-CHANGE-P (T T)) */

6492

6493

static object LI115(V1473,V1474,V1475,V1476)

6494

6495

object V1473;object V1474;object V1475;object V1476;

6496

{ VMB91 VMS91 VMV91

6497

goto TTL;

6498

TTL:;

6499

V1478= (*(LnkLI301))((V1475));

6500

V1479= (*(LnkLI301))((V1476));

6501

{object V1480 = ((/* INLINE-ARGS */V1478)==(/* INLINE-ARGS */V1479)?Ct:Cnil);

6502

VMR91(V1480)}

6503

return Cnil;

6504

}

6505

/* local entry for function (FAST-METHOD VALIDATE-SUPERCLASS (CLASS CLASS)) */

6506

6507

static object LI116(V1485,V1486,V1487,V1488)

6508

6509

object V1485;object V1486;object V1487;register object V1488;

6510

{ VMB92 VMS92 VMV92

6511

goto TTL;

6512

TTL:;

6513

if(!(((V1488))==((VV[219]->s.s_dbind)))){

6514

goto T2618;}

6515

{object V1490 = Ct;

6516

VMR92(V1490)}

6517

goto T2618;

6518

T2618:;

6519

V1491= (*(LnkLI301))((V1487));

6520

V1492= (*(LnkLI301))((V1488));

6521

{object V1493 = ((/* INLINE-ARGS */V1491)==(/* INLINE-ARGS */V1492)?Ct:Cnil);

6522

VMR92(V1493)}

6523

return Cnil;

6524

}

6525

/* local entry for function FORCE-CACHE-FLUSHES */

6526

6527

static object LI117(V1495)

6528

6529

object V1495;

6530

{ VMB93 VMS93 VMV93

6531

goto TTL;

6532

TTL:;

6533

{register object V1496;

6534

object V1497;

6535

base[2]= (V1495);

6536

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

6537

(void) (*Lnk369)(Lclptr369);

6538

vs_top=sup;

6539

V1496= vs_base[0];

6540

V1497= ((V1496))->v.v_self[8];

6541

if(!(((V1497))==(Ct))){

6542

goto T2624;}

6543

{register object V1498;

6544

V1498= (VFUN_NARGS=2,(*(LnkLI340))(((V1496))->v.v_self[12],(V1495)));

6545

(void)(((V1498))->v.v_self[9]= (((V1496))->v.v_self[9]));

6546

(void)(((V1498))->v.v_self[10]= (((V1496))->v.v_self[10]));

6547

if(!((VV[154])->s.s_gfdef!=OBJNULL)){

6548

goto T2631;}

6549

base[2]= (V1498);

6550

base[3]= (V1495);

6551

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

6552

(void) (*Lnk154)(Lclptr154);

6553

vs_top=sup;

6554

goto T2629;

6555

goto T2631;

6556

T2631:;

6557

(void)((*(LnkLI359))(VV[154],VV[155]));

6558

goto T2629;

6559

T2629:;

6560

{object V1499 = (*(LnkLI400))((V1496),VV[223],(V1498));

6561

VMR93(V1499)}}

6562

goto T2624;

6563

T2624:;

6564

{object V1500 = Cnil;

6565

VMR93(V1500)}}

6566

base[0]=base[0];

6567

return Cnil;

6568

}

6569

/* local entry for function FLUSH-CACHE-TRAP */

6570

6571

static object LI118(V1504,V1505,V1506)

6572

6573

object V1504;object V1505;object V1506;

6574

{ VMB94 VMS94 VMV94

6575

goto TTL;

6576

TTL:;

6577

{object V1507 = (*(LnkLI401))((V1506),(V1505));

6578

VMR94(V1507)}

6579

return Cnil;

6580

}

6581

/* local entry for function (FAST-METHOD MAKE-INSTANCES-OBSOLETE (STD-CLASS)) */

6582

6583

static object LI119(V1511,V1512,V1513)

6584

6585

6586

{ VMB95 VMS95 VMV95

6587

goto TTL;

6588

TTL:;

6589

{object V1515;

6590

object V1516;

6591

V1515= CMPcar((V1511));

6592

V1516= CMPcdr((V1511));

6593

{object V1517;

6594

if(type_of(V1513)==t_structure){

6595

goto T2645;}

6596

goto T2643;

6597

goto T2645;

6598

T2645:;

6599

if(!(((V1513)->str.str_def)==(VV[226]))){

6600

goto T2643;}

6601

V1517= STREF(object,(V1513),4);

6602

goto T2641;

6603

goto T2643;

6604

T2643:;{object V1519;

6605

V1519= (VV[16]->s.s_dbind);

6606

base[0]= small_fixnum(14);

6607

base[1]= (V1513);

6608

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

6609

(void) (*Lnk256)();

6610

vs_top=sup;

6611

V1520= vs_base[0];

6612

if(!((V1519)==(CMPcar(V1520)))){

6613

goto T2648;}}

6614

V1517= CMPcar(((V1513))->cc.cc_turbo[12]);

6615

goto T2641;

6616

goto T2648;

6617

T2648:;

6618

V1517= Cnil;

6619

goto T2641;

6620

T2641:;

6621

{register object V1521;

6622

6623

base[2]= (V1513);

6624

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

6625

(void) (*Lnk369)(Lclptr369);

6626

vs_top=sup;

6627

V1521= vs_base[0];

6628

V1522= (VFUN_NARGS=2,(*(LnkLI340))(((V1521))->v.v_self[12],(V1513)));

6629

(void)(((V1522))->v.v_self[9]= (((V1521))->v.v_self[9]));

6630

(void)(((V1522))->v.v_self[10]= (((V1521))->v.v_self[10]));

6631

{object V1524;

6632

V1524= ((V1515))->v.v_self[1];

6633

if(!(type_of(V1524)==t_fixnum)){

6634

goto T2661;}

6635

(void)(((V1517))->v.v_self[fix((V1524))]= (V1522));

6636

goto T2658;

6637

goto T2661;

6638

T2661:;

6639

base[2]= V1522;

6640

base[3]= (V1513);

6641

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

6642

(void) (*Lnk154)(Lclptr154);

6643

vs_top=sup;}

6644

goto T2658;

6645

T2658:;

6646

(void)((*(LnkLI400))((V1521),VV[225],(V1522)));

6647

{object V1526 = (V1513);

6648

VMR95(V1526)}}}}

6649

base[0]=base[0];

6650

return Cnil;

6651

}

6652

/* function definition for (FAST-METHOD MAKE-INSTANCES-OBSOLETE (SYMBOL)) */

6653

6654

static void L120()

6655

{register object *base=vs_base;

6656

6657

vs_check;

6658

{object V1527;

6659

object V1528;

6660

object V1529;

6661

check_arg(3);

6662

V1527=(base[0]);

6663

V1528=(base[1]);

6664

V1529=(base[2]);

6665

vs_top=sup;

6666

goto TTL;

6667

TTL:;

6668

base[3]= (VFUN_NARGS=1,(*(LnkLI296))((V1529)));

6669

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

6670

(void) (*Lnk370)(Lclptr370);

6671

return;

6672

}

6673

}

6674

/* local entry for function OBSOLETE-INSTANCE-TRAP */

6675

6676

static object LI121(V1534,V1535,V1536)

6677

6678

object V1534;object V1535;object V1536;

6679

{ VMB97 VMS97 VMV97

6680

bds_check;

6681

goto TTL;

6682

TTL:;

6683

if(type_of(V1536)==t_structure){

6684

goto T2673;}

6685

goto T2672;

6686

goto T2673;

6687

T2673:;

6688

if(((V1536)->str.str_def)==(VV[227])){

6689

goto T2670;}

6690

goto T2672;

6691

T2672:;{object V1538;

6692

V1538= (VV[16]->s.s_dbind);

6693

base[0]= small_fixnum(14);

6694

base[1]= (V1536);

6695

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

6696

(void) (*Lnk256)();

6697

vs_top=sup;

6698

V1539= vs_base[0];

6699

if((V1538)==(CMPcar(V1539))){

6700

goto T2670;}}

6701

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

6702

goto T2680;}

6703

{object V1540 = (VV[229]->s.s_dbind);

6704

VMR97(V1540)}

6705

goto T2680;

6706

T2680:;

6707

bds_bind(VV[228],Ct);

6708

base[1]= VV[230];

6709

base[2]= (V1536);

6710

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

6711

Lerror();

6712

vs_top=sup;

6713

{object V1541 = vs_base[0];

6714

bds_unwind1;

6715

VMR97(V1541)}

6716

goto T2670;

6717

T2670:;

6718

{object V1542;

6719

object V1543;

6720

object V1544;

6721

object V1545;

6722

object V1546;

6723

object V1547;

6724

object V1548;

6725

object V1549;

6726

6727

6728

V1542= ((V1535))->v.v_self[11];

6729

base[7]= (V1542);

6730

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

6731

(void) (*Lnk278)(Lclptr278);

6732

vs_top=sup;

6733

V1543= vs_base[0];

6734

V1544= ((V1534))->v.v_self[9];

6735

V1545= ((V1535))->v.v_self[9];

6736

if(type_of(V1536)==t_structure){

6737

goto T2693;}

6738

goto T2691;

6739

goto T2693;

6740

T2693:;

6741

if(!(((V1536)->str.str_def)==(VV[231]))){

6742

goto T2691;}

6743

V1546= STREF(object,(V1536),4);

6744

goto T2689;

6745

goto T2691;

6746

T2691:;{object V1553;

6747

V1553= (VV[16]->s.s_dbind);

6748

base[7]= small_fixnum(14);

6749

base[8]= (V1536);

6750

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

6751

(void) (*Lnk256)();

6752

vs_top=sup;

6753

V1554= vs_base[0];

6754

if(!((V1553)==(CMPcar(V1554)))){

6755

goto T2696;}}

6756

V1546= CMPcar(((V1536))->cc.cc_turbo[12]);

6757

goto T2689;

6758

goto T2696;

6759

T2696:;

6760

base[7]= VV[232];

6761

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

6762

Lerror();

6763

vs_top=sup;

6764

V1546= vs_base[0];

6765

goto T2689;

6766

T2689:;

6767

if(type_of(V1543)==t_structure){

6768

goto T2706;}

6769

goto T2704;

6770

goto T2706;

6771

T2706:;

6772

if(!(((V1543)->str.str_def)==(VV[233]))){

6773

goto T2704;}

6774

V1547= STREF(object,(V1543),4);

6775

goto T2702;

6776

goto T2704;

6777

T2704:;{object V1556;

6778

V1556= (VV[16]->s.s_dbind);

6779

base[7]= small_fixnum(14);

6780

base[8]= (V1543);

6781

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

6782

(void) (*Lnk256)();

6783

vs_top=sup;

6784

V1557= vs_base[0];

6785

if(!((V1556)==(CMPcar(V1557)))){

6786

goto T2709;}}

6787

V1547= CMPcar(((V1543))->cc.cc_turbo[12]);

6788

goto T2702;

6789

goto T2709;

6790

T2709:;

6791

base[7]= VV[232];

6792

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

6793

Lerror();

6794

vs_top=sup;

6795

V1547= vs_base[0];

6796

goto T2702;

6797

T2702:;

6798

V1548= ((V1534))->v.v_self[10];

6799

V1549= Cnil;

6800

V1550= Cnil;

6801

V1551= Cnil;

6802

{register object V1558;

6803

6804

object V1560;

6805

object V1561;

6806

V1558= (V1544);

6807

V1559= Cnil;

6808

V1560= small_fixnum(0);

6809

V1561= Cnil;

6810

goto T2725;

6811

T2725:;

6812

{object V1562;

6813

if(!(((V1558))==Cnil)){

6814

goto T2731;}

6815

goto T2719;

6816

goto T2731;

6817

T2731:;

6818

V1562= CMPcar((V1558));

6819

V1558= CMPcdr((V1558));

6820

V1559= (V1562);}

6821

{object V1563;

6822

V1563= (V1560);

6823

V1560= number_plus((V1560),small_fixnum(1));

6824

V1561= (V1563);}

6825

{long V1564;

6826

object V1565;

6827

V1564= fix((V1561));

6828

base[8]= (V1559);

6829

base[9]= (V1545);

6830

base[10]= VV[32];

6831

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

6832

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

6833

(void) (*Lnk378)();

6834

vs_top=sup;

6835

V1565= vs_base[0];

6836

if(((V1565))==Cnil){

6837

goto T2746;}

6838

(void)((((V1547))->v.v_self[fix((V1565))]=(((V1546))->v.v_self[V1564])));

6839

goto T2726;

6840

goto T2746;

6841

T2746:;

6842

V1550= make_cons(V1559,(V1550));

6843

if((((V1546))->v.v_self[V1564])==((VV[108]->s.s_dbind))){

6844

goto T2726;}

6845

{object V1568;

6846

V1568= ((V1546))->v.v_self[V1564];

6847

{object V1569;

6848

base[9]= (V1551);

6849

base[10]= (V1568);

6850

base[11]= V1559;

6851

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

6852

siLput_f();

6853

vs_top=sup;

6854

V1569= vs_base[0];

6855

V1551= (V1569);}}}

6856

goto T2726;

6857

T2726:;

6858

goto T2725;}

6859

goto T2719;

6860

T2719:;

6861

{register object V1570;

6862

6863

V1570= (V1548);

6864

V1571= Cnil;

6865

goto T2764;

6866

T2764:;

6867

{object V1572;

6868

if(!(((V1570))==Cnil)){

6869

goto T2770;}

6870

goto T2760;

6871

goto T2770;

6872

T2770:;

6873

V1572= CMPcar((V1570));

6874

V1570= CMPcdr((V1570));

6875

V1571= (V1572);}

6876

{object V1573;

6877

object V1574;

6878

V1573= CMPcar((V1571));

6879

V1574= CMPcdr((V1571));

6880

{object V1575;

6881

base[7]= (V1573);

6882

base[8]= (V1545);

6883

base[9]= VV[32];

6884

base[10]= (VV[33]->s.s_gfdef);

6885

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

6886

(void) (*Lnk378)();

6887

vs_top=sup;

6888

V1575= vs_base[0];

6889

if(((V1575))==Cnil){

6890

goto T2782;}

6891

(void)((((V1547))->v.v_self[fix((V1575))]=(CMPcdr((V1571)))));

6892

goto T2765;

6893

goto T2782;

6894

T2782:;

6895

V1550= make_cons(V1573,(V1550));

6896

if(((V1574))==((VV[108]->s.s_dbind))){

6897

goto T2765;}

6898

{object V1579;

6899

base[7]= (V1551);

6900

base[8]= V1574;

6901

base[9]= V1573;

6902

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

6903

siLput_f();

6904

vs_top=sup;

6905

V1579= vs_base[0];

6906

V1551= (V1579);}}}

6907

goto T2765;

6908

T2765:;

6909

goto T2764;}

6910

goto T2760;

6911

T2760:;

6912

{register object V1580;

6913

6914

V1580= (V1545);

6915

V1581= CMPcar((V1580));

6916

goto T2799;

6917

T2799:;

6918

if(!(((V1580))==Cnil)){

6919

goto T2800;}

6920

goto T2795;

6921

goto T2800;

6922

T2800:;

6923

{register object x= (V1581),V1582= (V1544);

6924

while(V1582!=Cnil)

6925

if(x==(V1582->c.c_car)){

6926

goto T2804;

6927

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

6928

{register object x= (V1581),V1583= (V1548);

6929

while(V1583!=Cnil)

6930

if(EQ(x,V1583->c.c_car->c.c_car) &&V1583->c.c_car != Cnil){

6931

goto T2804;

6932

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

6933

V1549= make_cons(V1581,(V1549));

6934

goto T2804;

6935

T2804:;

6936

V1580= CMPcdr((V1580));

6937

V1581= CMPcar((V1580));

6938

goto T2799;}

6939

goto T2795;

6940

T2795:;

6941

(void)((*(LnkLI402))((V1536),(V1543)));

6942

base[7]= (V1536);

6943

base[8]= (V1549);

6944

base[9]= (V1550);

6945

base[10]= (V1551);

6946

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

6947

(void) (*Lnk403)(Lclptr403);

6948

vs_top=sup;

6949

{object V1585 = (V1535);

6950

VMR97(V1585)}}

6951

base[0]=base[0];

6952

return Cnil;

6953

}

6954

/* macro definition for COPY-INSTANCE-INTERNAL */

6955

6956

static void L122()

6957

{register object *base=vs_base;

6958

6959

vs_check;

6960

check_arg(2);

6961

vs_top=sup;

6962

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

6963

if(endp(V1586))invalid_macro_call();

6964

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

6965

V1586=V1586->c.c_cdr;

6966

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

6967

V1587= list(2,VV[237],base[2]);

6968

V1588= list(2,VV[238],base[2]);

6969

V1589= list(3,VV[136],/* INLINE-ARGS */V1588,list(2,VV[238],base[2]));

6970

V1590= list(2,VV[239],base[2]);

6971

base[3]= list(2,VV[138],list(4,VV[234],VV[235],list(4,VV[236],/* INLINE-ARGS */V1587,/* INLINE-ARGS */V1589,list(3,VV[136],/* INLINE-ARGS */V1590,list(2,VV[239],base[2]))),VV[240]));

6972

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

6973

return;

6974

}

6975

/* local entry for function CHANGE-CLASS-INTERNAL */

6976

6977

static object LI123(V1594,V1595,V1596)

6978

6979

object V1594;object V1595;object V1596;

6980

{ VMB99 VMS99 VMV99

6981

goto TTL;

6982

TTL:;

6983

{object V1597;

6984

object V1598;

6985

object V1599;

6986

object V1600;

6987

object V1601;

6988

object V1602;

6989

object V1603;

6990

object V1604;

6991

object V1605;

6992

V1597= (*(LnkLI301))((V1594));

6993

base[9]= (V1595);

6994

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

6995

(void) (*Lnk278)(Lclptr278);

6996

vs_top=sup;

6997

V1598= vs_base[0];

6998

if(type_of(V1598)==t_structure){

6999

goto T2828;}

7000

goto T2826;

7001

goto T2828;

7002

T2828:;

7003

if(!(((V1598)->str.str_def)==(VV[241]))){

7004

goto T2826;}

7005

V1599= STREF(object,(V1598),0);

7006

goto T2824;

7007

goto T2826;

7008

T2826:;{object V1607;

7009

V1607= (VV[16]->s.s_dbind);

7010

base[9]= small_fixnum(14);

7011

base[10]= (V1598);

7012

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

7013

(void) (*Lnk256)();

7014

vs_top=sup;

7015

V1608= vs_base[0];

7016

if(!((V1607)==(CMPcar(V1608)))){

7017

goto T2831;}}

7018

V1599= CMPcar(((V1598))->cc.cc_turbo[13]);

7019

goto T2824;

7020

goto T2831;

7021

T2831:;

7022

base[9]= VV[242];

7023

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

7024

Lerror();

7025

vs_top=sup;

7026

V1599= vs_base[0];

7027

goto T2824;

7028

T2824:;

7029

base[9]= (V1597);

7030

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

7031

(void) (*Lnk369)(Lclptr369);

7032

vs_top=sup;

7033

V1600= vs_base[0];

7034

V1601= ((V1600))->v.v_self[9];

7035

V1602= ((V1599))->v.v_self[9];

7036

if(type_of(V1594)==t_structure){

7037

goto T2845;}

7038

goto T2843;

7039

goto T2845;

7040

T2845:;

7041

if(!(((V1594)->str.str_def)==(VV[243]))){

7042

goto T2843;}

7043

V1603= STREF(object,(V1594),4);

7044

goto T2841;

7045

goto T2843;

7046

T2843:;{object V1610;

7047

V1610= (VV[16]->s.s_dbind);

7048

base[9]= small_fixnum(14);

7049

base[10]= (V1594);

7050

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

7051

(void) (*Lnk256)();

7052

vs_top=sup;

7053

V1611= vs_base[0];

7054

if(!((V1610)==(CMPcar(V1611)))){

7055

goto T2848;}}

7056

V1603= CMPcar(((V1594))->cc.cc_turbo[12]);

7057

goto T2841;

7058

goto T2848;

7059

T2848:;

7060

base[9]= VV[232];

7061

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

7062

Lerror();

7063

vs_top=sup;

7064

V1603= vs_base[0];

7065

goto T2841;

7066

T2841:;

7067

if(type_of(V1598)==t_structure){

7068

goto T2858;}

7069

goto T2856;

7070

goto T2858;

7071

T2858:;

7072

if(!(((V1598)->str.str_def)==(VV[244]))){

7073

goto T2856;}

7074

V1604= STREF(object,(V1598),4);

7075

goto T2854;

7076

goto T2856;

7077

T2856:;{object V1613;

7078

V1613= (VV[16]->s.s_dbind);

7079

base[9]= small_fixnum(14);

7080

base[10]= (V1598);

7081

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

7082

(void) (*Lnk256)();

7083

vs_top=sup;

7084

V1614= vs_base[0];

7085

if(!((V1613)==(CMPcar(V1614)))){

7086

goto T2861;}}

7087

V1604= CMPcar(((V1598))->cc.cc_turbo[12]);

7088

goto T2854;

7089

goto T2861;

7090

T2861:;

7091

base[9]= VV[232];

7092

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

7093

Lerror();

7094

vs_top=sup;

7095

V1604= vs_base[0];

7096

goto T2854;

7097

T2854:;

7098

V1605= ((V1600))->v.v_self[10];

7099

{object V1615;

7100

7101

7102

V1615= Cnil;

7103

V1616= (V1602);

7104

V1617= small_fixnum(0);

7105

{register object V1618;

7106

V1618= Cnil;

7107

if(!(((V1616))==Cnil)){

7108

goto T2872;}

7109

goto T2871;

7110

goto T2872;

7111

T2872:;

7112

V1615= CMPcar((V1616));

7113

goto T2870;

7114

T2870:;

7115

V1616= CMPcdr((V1616));

7116

base[9]= (V1615);

7117

base[10]= (V1601);

7118

base[11]= VV[32];

7119

base[12]= (VV[33]->s.s_gfdef);

7120

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

7121

(void) (*Lnk378)();

7122

vs_top=sup;

7123

V1618= vs_base[0];

7124

if(((V1618))==Cnil){

7125

goto T2884;}

7126

(void)((((V1604))->v.v_self[fix((V1617))]=(((V1603))->v.v_self[fix((V1618))])));

7127

goto T2884;

7128

T2884:;

7129

if(!(((V1616))==Cnil)){

7130

goto T2887;}

7131

goto T2871;

7132

goto T2887;

7133

T2887:;

7134

{object V1619;

7135

V1619= CMPcar((V1616));

7136

V1617= one_plus((V1617));

7137

V1615= (V1619);}

7138

goto T2870;

7139

goto T2871;

7140

T2871:;

7141

goto T2868;}}

7142

goto T2868;

7143

T2868:;

7144

{object V1620;

7145

object V1621;

7146

7147

V1620= Cnil;

7148

V1621= Cnil;

7149

V1622= (V1605);

7150

{register object V1623;

7151

V1623= Cnil;

7152

goto T2897;

7153

T2897:;

7154

if(!(((V1622))==Cnil)){

7155

goto T2899;}

7156

goto T2898;

7157

goto T2899;

7158

T2899:;

7159

{register object V1624;

7160

V1624= CMPcar((V1622));

7161

V1620= CMPcar((V1624));

7162

V1624= CMPcdr((V1624));

7163

V1621= (V1624);}

7164

V1622= CMPcdr((V1622));

7165

base[9]= (V1620);

7166

base[10]= (V1602);

7167

base[11]= VV[32];

7168

base[12]= (VV[33]->s.s_gfdef);

7169

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

7170

(void) (*Lnk378)();

7171

vs_top=sup;

7172

V1623= vs_base[0];

7173

if(((V1623))==Cnil){

7174

goto T2917;}

7175

(void)((((V1604))->v.v_self[fix((V1623))]=((V1621))));

7176

goto T2917;

7177

T2917:;

7178

goto T2897;

7179

goto T2898;

7180

T2898:;

7181

goto T2895;}}

7182

goto T2895;

7183

T2895:;

7184

(void)((*(LnkLI402))((V1594),(V1598)));

7185

base[9]=VV[404]->s.s_gfdef;

7186

base[10]= (V1598);

7187

base[11]= (V1594);

7188

{object V1625;

7189

V1625= (V1596);

7190

vs_top=base+12;

7191

while(V1625!=Cnil)

7192

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

7193

vs_base=base+10;}

7194

(void) (*Lnk404)(Lclptr404);

7195

vs_top=sup;

7196

{object V1626 = (V1594);

7197

VMR99(V1626)}}

7198

base[0]=base[0];

7199

return Cnil;

7200

}

7201

/* local entry for function (FAST-METHOD CHANGE-CLASS (STANDARD-OBJECT STANDARD-CLASS)) */

7202

7203

static object LI124(V1632,V1633,V1634,V1635,V1636)

7204

7205

object V1632;object V1633;object V1634;object V1635;object V1636;

7206

{ VMB100 VMS100 VMV100

7207

goto TTL;

7208

TTL:;

7209

{object V1639 = (*(LnkLI405))((V1634),(V1635),V1636);

7210

VMR100(V1639)}

7211

return Cnil;

7212

}

7213

/* local entry for function (FAST-METHOD CHANGE-CLASS (STANDARD-OBJECT FUNCALLABLE-STANDARD-CLASS)) */

7214

7215

static object LI125(V1645,V1646,V1647,V1648,V1649)

7216

7217

object V1645;object V1646;object V1647;object V1648;object V1649;

7218

{ VMB101 VMS101 VMV101

7219

goto TTL;

7220

TTL:;

7221

base[0]= VV[245];

7222

base[1]= (V1647);

7223

base[2]= (V1648);

7224

base[3]= VV[246];

7225

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

7226

Lerror();

7227

vs_top=sup;

7228

{object V1652 = vs_base[0];

7229

VMR101(V1652)}

7230

base[0]=base[0];

7231

return Cnil;

7232

}

7233

/* function definition for (FAST-METHOD CHANGE-CLASS (T SYMBOL)) */

7234

7235

static void L126()

7236

{register object *base=vs_base;

7237

7238

vs_check;

7239

{object V1653;

7240

object V1654;

7241

object V1655;

7242

object V1656;

7243

object V1657;

7244

check_arg(5);

7245

V1653=(base[0]);

7246

V1654=(base[1]);

7247

V1655=(base[2]);

7248

V1656=(base[3]);

7249

V1657=(base[4]);

7250

vs_top=sup;

7251

goto TTL;

7252

TTL:;

7253

base[5]=VV[302]->s.s_gfdef;

7254

base[6]= (V1655);

7255

base[7]= (VFUN_NARGS=1,(*(LnkLI296))((V1656)));

7256

{object V1660;

7257

V1660= V1657;

7258

vs_top=base+8;

7259

while(V1660!=Cnil)

7260

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

7261

vs_base=base+6;}

7262

(void) (*Lnk302)(Lclptr302);

7263

return;

7264

}

7265

}

7266

/* local entry for function (FAST-METHOD SHARED-INITIALIZE :BEFORE (BUILT-IN-CLASS T)) */

7267

7268

static object LI127(V1666,V1667,V1668,V1669,V1670)

7269

7270

object V1666;object V1667;object V1668;object V1669;object V1670;

7271

{ VMB103 VMS103 VMV103

7272

goto TTL;

7273

TTL:;

7274

base[0]= VV[247];

7275

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

7276

Lerror();

7277

vs_top=sup;

7278

{object V1673 = vs_base[0];

7279

VMR103(V1673)}

7280

base[0]=base[0];

7281

return Cnil;

7282

}

7283

/* local entry for function (FAST-METHOD CLASS-DIRECT-SLOTS (BUILT-IN-CLASS)) */

7284

7285

static object LI128(V1677,V1678,V1679)

7286

7287

object V1677;object V1678;object V1679;

7288

{ VMB104 VMS104 VMV104

7289

goto TTL;

7290

TTL:;

7291

{object V1681 = Cnil;

7292

VMR104(V1681)}

7293

return Cnil;

7294

}

7295

/* local entry for function (FAST-METHOD CLASS-SLOTS (BUILT-IN-CLASS)) */

7296

7297

static object LI129(V1685,V1686,V1687)

7298

7299

object V1685;object V1686;object V1687;

7300

{ VMB105 VMS105 VMV105

7301

goto TTL;

7302

TTL:;

7303

{object V1689 = Cnil;

7304

VMR105(V1689)}

7305

return Cnil;

7306

}

7307

/* local entry for function (FAST-METHOD CLASS-DIRECT-DEFAULT-INITARGS (BUILT-IN-CLASS)) */

7308

7309

static object LI130(V1693,V1694,V1695)

7310

7311

object V1693;object V1694;object V1695;

7312

{ VMB106 VMS106 VMV106

7313

goto TTL;

7314

TTL:;

7315

{object V1697 = Cnil;

7316

VMR106(V1697)}

7317

return Cnil;

7318

}

7319

/* local entry for function (FAST-METHOD CLASS-DEFAULT-INITARGS (BUILT-IN-CLASS)) */

7320

7321

static object LI131(V1701,V1702,V1703)

7322

7323

object V1701;object V1702;object V1703;

7324

{ VMB107 VMS107 VMV107

7325

goto TTL;

7326

TTL:;

7327

{object V1705 = Cnil;

7328

VMR107(V1705)}

7329

return Cnil;

7330

}

7331

/* local entry for function (FAST-METHOD VALIDATE-SUPERCLASS (CLASS BUILT-IN-CLASS)) */

7332

7333

static object LI132(V1710,V1711,V1712,V1713)

7334

7335

object V1710;object V1711;object V1712;object V1713;

7336

{ VMB108 VMS108 VMV108

7337

goto TTL;

7338

TTL:;

7339

{object V1715 = (((V1713))==((VV[219]->s.s_dbind))?Ct:Cnil);

7340

VMR108(V1715)}

7341

return Cnil;

7342

}

7343

/* local entry for function (FAST-METHOD VALIDATE-SUPERCLASS (SLOT-CLASS FORWARD-REFERENCED-CLASS)) */

7344

7345

static object LI133(V1720,V1721,V1722,V1723)

7346

7347

object V1720;object V1721;object V1722;object V1723;

7348

{ VMB109 VMS109 VMV109

7349

goto TTL;

7350

TTL:;

7351

{object V1725 = Ct;

7352

VMR109(V1725)}

7353

return Cnil;

7354

}

7355

/* local entry for function (FAST-METHOD ADD-DEPENDENT (DEPENDENT-UPDATE-MIXIN T)) */

7356

7357

static object LI134(V1730,V1731,V1732,V1733)

7358

7359

object V1730;object V1731;object V1732;object V1733;

7360

{ VMB110 VMS110 VMV110

7361

goto TTL;

7362

TTL:;

7363

{object V1738;

7364

base[1]= V1733;

7365

base[2]= (*(LnkLI272))(V1732,VV[248]);

7366

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

7367

Ladjoin();

7368

vs_top=sup;

7369

V1738= vs_base[0];

7370

7371

base[2]= (V1738);

7372

base[3]= V1732;

7373

base[4]= VV[248];

7374

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

7375

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

7376

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

7377

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

7378

else super_funcall_no_event(_funobj);}

7379

vs_top=sup;

7380

{object V1739 = vs_base[0];

7381

VMR110(V1739)}}

7382

base[0]=base[0];

7383

return Cnil;

7384

}

7385

/* local entry for function (FAST-METHOD REMOVE-DEPENDENT (DEPENDENT-UPDATE-MIXIN T)) */

7386

7387

static object LI135(V1744,V1745,V1746,V1747)

7388

7389

object V1744;object V1745;register object V1746;object V1747;

7390

{ VMB111 VMS111 VMV111

7391

goto TTL;

7392

TTL:;

7393

{object V1751;

7394

base[1]= (V1747);

7395

base[2]= (*(LnkLI272))((V1746),VV[248]);

7396

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

7397

(void) (*Lnk406)();

7398

vs_top=sup;

7399

V1751= vs_base[0];

7400

7401

base[2]= (V1751);

7402

base[3]= V1746;

7403

base[4]= VV[248];

7404

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

7405

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

7406

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

7407

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

7408

else super_funcall_no_event(_funobj);}

7409

vs_top=sup;

7410

{object V1752 = vs_base[0];

7411

VMR111(V1752)}}

7412

base[0]=base[0];

7413

return Cnil;

7414

}

7415

/* local entry for function (FAST-METHOD MAP-DEPENDENTS (DEPENDENT-UPDATE-MIXIN T)) */

7416

7417

static object LI136(V1757,V1758,V1759,V1760)

7418

7419

object V1757;object V1758;object V1759;register object V1760;

7420

{ VMB112 VMS112 VMV112

7421

goto TTL;

7422

TTL:;

7423

{register object V1762;

7424

7425

V1762= (*(LnkLI272))((V1759),VV[248]);

7426

V1763= CMPcar((V1762));

7427

goto T2976;

7428

T2976:;

7429

if(!(((V1762))==Cnil)){

7430

goto T2977;}

7431

{object V1764 = Cnil;

7432

VMR112(V1764)}

7433

goto T2977;

7434

T2977:;

7435

(void)((

7436

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

7437

(fcall.argd=1,type_of((V1760))==t_vfun) ?

7438

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

7439

(fcall.fun=((V1760)),fcalln))((V1763))));

7440

V1762= CMPcdr((V1762));

7441

V1763= CMPcar((V1762));

7442

goto T2976;}

7443

base[0]=base[0];

7444

return Cnil;

7445

}

7446

/* local function CALL-NEXT-METHOD */

7447

7448

static void L102(base0)

7449

7450

{ register object *base=vs_base;

7451

7452

vs_check;

7453

{object V1765;

7454

vs_top[0]=Cnil;

7455

{object *p=vs_top;

7456

for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}

7457

V1765=(base[0]);

7458

vs_top=sup;

7459

if((base0[2])==Cnil){

7460

goto T2988;}

7461

if(((V1765))==Cnil){

7462

goto T2991;}

7463

{register object V1766;

7464

7465

object V1768;

7466

V1766= (V1765);

7467

{object V1769;

7468

V1769= CMPcar((V1766));

7469

V1766= CMPcdr((V1766));

7470

V1767= (V1769);}

7471

{object V1770;

7472

V1770= CMPcar((V1766));

7473

V1766= CMPcdr((V1766));

7474

V1768= (V1770);}

7475

base[3]= base0[2];

7476

base[4]= VV[160];

7477

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

7478

(void) (*Lnk407)();

7479

vs_top=sup;

7480

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

7481

goto T3004;}

7482

base[3]= STREF(object,base0[2],0);

7483

base[4]= STREF(object,base0[2],4);

7484

base[5]= STREF(object,base0[2],8);

7485

base[6]= (V1767);

7486

base[7]= (V1768);

7487

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

7488

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

7489

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

7490

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

7491

else super_funcall_no_event(_funobj);}

7492

return;

7493

goto T3004;

7494

T3004:;

7495

if(!(type_of(base0[2])==t_fixnum)){

7496

goto T3014;}

7497

{object V1772;

7498

if(type_of(V1767)==t_structure){

7499

goto T3020;}

7500

goto T3018;

7501

goto T3020;

7502

T3020:;

7503

if(!(((V1767)->str.str_def)==(VV[208]))){

7504

goto T3018;}

7505

V1772= STREF(object,(V1767),4);

7506

goto T3016;

7507

goto T3018;

7508

T3018:;{object V1774;

7509

V1774= (VV[16]->s.s_dbind);

7510

base[3]= small_fixnum(14);

7511

base[4]= (V1767);

7512

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

7513

(void) (*Lnk256)();

7514

vs_top=sup;

7515

V1775= vs_base[0];

7516

if(!((V1774)==(CMPcar(V1775)))){

7517

goto T3023;}}

7518

V1772= CMPcar(((V1767))->cc.cc_turbo[12]);

7519

goto T3016;

7520

goto T3023;

7521

T3023:;

7522

V1772= Cnil;

7523

goto T3016;

7524

T3016:;

7525

if(((V1772))==Cnil){

7526

goto T3029;}

7527

base[3]= ((V1772))->v.v_self[fix(base0[2])]= (V1767);

7528

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

7529

return;

7530

goto T3029;

7531

T3029:;

7532

base[3]= Cnil;

7533

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

7534

return;}

7535

goto T3014;

7536

T3014:;

7537

{register object V1777;

7538

V1777= base0[2];

7539

base[3]= (V1777);

7540

base[4]= VV[162];

7541

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

7542

(void) (*Lnk407)();

7543

vs_top=sup;

7544

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

7545

goto T3032;}

7546

{object V1778;

7547

object V1779;

7548

7549

V1778= STREF(object,base0[2],0);

7550

V1779= list(2,(V1767),(V1768));

7551

V1780= STREF(object,base0[2],4);

7552

if(((V1780))==Cnil){

7553

goto T3040;}

7554

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

7555

goto T3040;}

7556

base[3]= (V1779);

7557

base[4]= CMPcar((V1780));

7558

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

7559

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

7560

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

7561

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

7562

else super_funcall_no_event(_funobj);}

7563

return;

7564

goto T3040;

7565

T3040:;

7566

base[3]= (V1778);

7567

base[4]= (V1779);

7568

{object V1781;

7569

V1781= (V1780);

7570

vs_top=base+5;

7571

while(V1781!=Cnil)

7572

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

7573

vs_base=base+4;}

7574

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

7575

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

7576

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

7577

else super_funcall_no_event(_funobj);}

7578

return;}

7579

goto T3032;

7580

T3032:;

7581

base[3]= (V1777);

7582

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

7583

Lfunctionp();

7584

vs_top=sup;

7585

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

7586

goto T3050;}

7587

base[3]= (V1767);

7588

base[4]= (V1768);

7589

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

7590

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

7591

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

7592

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

7593

else super_funcall_no_event(_funobj);}

7594

return;

7595

goto T3050;

7596

T3050:;

7597

base[3]= VV[0];

7598

base[4]= VV[1];

7599

base[5]= VV[163];

7600

base[6]= VV[3];

7601

base[7]= base0[2];

7602

base[8]= VV[4];

7603

base[9]= VV[209];

7604

base[10]= VV[6];

7605

base[11]= VV[210];

7606

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

7607

(void) (*Lnk255)();

7608

return;}}

7609

goto T2991;

7610

T2991:;

7611

base[1]= base0[2];

7612

base[2]= VV[160];

7613

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

7614

(void) (*Lnk407)();

7615

vs_top=sup;

7616

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

7617

goto T3066;}

7618

base[1]= STREF(object,base0[2],0);

7619

base[2]= STREF(object,base0[2],4);

7620

base[3]= STREF(object,base0[2],8);

7621

base[4]= base0[1];

7622

base[5]= base0[0];

7623

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

7624

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

7625

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

7626

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

7627

else super_funcall_no_event(_funobj);}

7628

return;

7629

goto T3066;

7630

T3066:;

7631

if(!(type_of(base0[2])==t_fixnum)){

7632

goto T3076;}

7633

{object V1783;

7634

if(type_of(base0[1])==t_structure){

7635

goto T3082;}

7636

goto T3080;

7637

goto T3082;

7638

T3082:;

7639

if(!(((base0[1])->str.str_def)==(VV[211]))){

7640

goto T3080;}

7641

V1783= STREF(object,base0[1],4);

7642

goto T3078;

7643

goto T3080;

7644

T3080:;{object V1785;

7645

V1785= (VV[16]->s.s_dbind);

7646

base[1]= small_fixnum(14);

7647

base[2]= base0[1];

7648

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

7649

(void) (*Lnk256)();

7650

vs_top=sup;

7651

V1786= vs_base[0];

7652

if(!((V1785)==(CMPcar(V1786)))){

7653

goto T3085;}}

7654

V1783= CMPcar((base0[1])->cc.cc_turbo[12]);

7655

goto T3078;

7656

goto T3085;

7657

T3085:;

7658

V1783= Cnil;

7659

goto T3078;

7660

T3078:;

7661

if(((V1783))==Cnil){

7662

goto T3091;}

7663

base[1]= ((V1783))->v.v_self[fix(base0[2])]= (base0[1]);

7664

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

7665

return;

7666

goto T3091;

7667

T3091:;

7668

base[1]= Cnil;

7669

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

7670

return;}

7671

goto T3076;

7672

T3076:;

7673

{register object V1788;

7674

V1788= base0[2];

7675

base[1]= (V1788);

7676

base[2]= VV[162];

7677

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

7678

(void) (*Lnk407)();

7679

vs_top=sup;

7680

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

7681

goto T3094;}

7682

{object V1789;

7683

object V1790;

7684

7685

V1789= STREF(object,base0[2],0);

7686

V1790= list(2,base0[1],base0[0]);

7687

V1791= STREF(object,base0[2],4);

7688

if(((V1791))==Cnil){

7689

goto T3102;}

7690

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

7691

goto T3102;}

7692

base[1]= (V1790);

7693

base[2]= CMPcar((V1791));

7694

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

7695

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

7696

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

7697

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

7698

else super_funcall_no_event(_funobj);}

7699

return;

7700

goto T3102;

7701

T3102:;

7702

base[1]= (V1789);

7703

base[2]= (V1790);

7704

{object V1792;

7705

V1792= (V1791);

7706

vs_top=base+3;

7707

while(V1792!=Cnil)

7708

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

7709

vs_base=base+2;}

7710

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

7711

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

7712

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

7713

else super_funcall_no_event(_funobj);}

7714

return;}

7715

goto T3094;

7716

T3094:;

7717

base[1]= (V1788);

7718

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

7719

Lfunctionp();

7720

vs_top=sup;

7721

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

7722

goto T3112;}

7723

base[1]= base0[1];

7724

base[2]= base0[0];

7725

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

7726

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

7727

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

7728

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

7729

else super_funcall_no_event(_funobj);}

7730

return;

7731

goto T3112;

7732

T3112:;

7733

base[1]= VV[0];

7734

base[2]= VV[1];

7735

base[3]= VV[163];

7736

base[4]= VV[3];

7737

base[5]= base0[2];

7738

base[6]= VV[4];

7739

base[7]= VV[212];

7740

base[8]= VV[6];

7741

base[9]= VV[213];

7742

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

7743

(void) (*Lnk255)();

7744

return;}

7745

goto T2988;

7746

T2988:;

7747

base[1]= VV[207];

7748

base[2]= base0[1];

7749

base[3]= base0[0];

7750

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

7751

(void) (*Lnk408)();

7752

return;

7753

}

7754

}

7755

/* local function CALL-NEXT-METHOD */

7756

7757

static void L94(base0)

7758

7759

{ register object *base=vs_base;

7760

7761

vs_check;

7762

{object V1793;

7763

vs_top[0]=Cnil;

7764

{object *p=vs_top;

7765

for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}

7766

V1793=(base[0]);

7767

vs_top=sup;

7768

if((base0[1])==Cnil){

7769

goto T3130;}

7770

if(((V1793))==Cnil){

7771

goto T3133;}

7772

{object V1794;

7773

7774

V1794= (V1793);

7775

{object V1796;

7776

V1796= CMPcar((V1794));

7777

V1794= CMPcdr((V1794));

7778

V1795= (V1796);}

7779

base[2]= base0[1];

7780

base[3]= VV[160];

7781

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

7782

(void) (*Lnk407)();

7783

vs_top=sup;

7784

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

7785

goto T3142;}

7786

base[2]= STREF(object,base0[1],0);

7787

base[3]= STREF(object,base0[1],4);

7788

base[4]= STREF(object,base0[1],8);

7789

base[5]= (V1795);

7790

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

7791

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

7792

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

7793

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

7794

else super_funcall_no_event(_funobj);}

7795

return;

7796

goto T3142;

7797

T3142:;

7798

if(!(type_of(base0[1])==t_fixnum)){

7799

goto T3151;}

7800

{object V1797;

7801

object V1798;

7802

if(type_of(V1795)==t_structure){

7803

goto T3157;}

7804

goto T3155;

7805

goto T3157;

7806

T3157:;

7807

if(!(((V1795)->str.str_def)==(VV[185]))){

7808

goto T3155;}

7809

V1797= STREF(object,(V1795),4);

7810

goto T3153;

7811

goto T3155;

7812

T3155:;{object V1800;

7813

V1800= (VV[16]->s.s_dbind);

7814

base[4]= small_fixnum(14);

7815

base[5]= (V1795);

7816

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

7817

(void) (*Lnk256)();

7818

vs_top=sup;

7819

V1801= vs_base[0];

7820

if(!((V1800)==(CMPcar(V1801)))){

7821

goto T3160;}}

7822

V1797= CMPcar(((V1795))->cc.cc_turbo[12]);

7823

goto T3153;

7824

goto T3160;

7825

T3160:;

7826

V1797= Cnil;

7827

goto T3153;

7828

T3153:;

7829

if(((V1797))==Cnil){

7830

goto T3167;}

7831

V1798= ((V1797))->v.v_self[fix(base0[1])];

7832

goto T3165;

7833

goto T3167;

7834

T3167:;

7835

V1798= Cnil;

7836

goto T3165;

7837

T3165:;

7838

if(!(((V1798))==(VV[17]))){

7839

goto T3170;}

7840

base[4]= (V1795);

7841

base[5]= base0[1];

7842

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

7843

(void) (*Lnk409)();

7844

return;

7845

goto T3170;

7846

T3170:;

7847

base[4]= (V1798);

7848

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

7849

return;}

7850

goto T3151;

7851

T3151:;

7852

{register object V1803;

7853

V1803= base0[1];

7854

base[2]= (V1803);

7855

base[3]= VV[162];

7856

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

7857

(void) (*Lnk407)();

7858

vs_top=sup;

7859

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

7860

goto T3175;}

7861

{object V1804;

7862

object V1805;

7863

7864

V1804= STREF(object,base0[1],0);

7865

V1805= make_cons((V1795),Cnil);

7866

V1806= STREF(object,base0[1],4);

7867

if(((V1806))==Cnil){

7868

goto T3183;}

7869

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

7870

goto T3183;}

7871

base[2]= (V1805);

7872

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

7873

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

7874

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

7875

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

7876

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

7877

else super_funcall_no_event(_funobj);}

7878

return;

7879

goto T3183;

7880

T3183:;

7881

base[2]= (V1804);

7882

base[3]= (V1805);

7883

{object V1807;

7884

V1807= (V1806);

7885

vs_top=base+4;

7886

while(V1807!=Cnil)

7887

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

7888

vs_base=base+3;}

7889

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

7890

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

7891

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

7892

else super_funcall_no_event(_funobj);}

7893

return;}

7894

goto T3175;

7895

T3175:;

7896

base[2]= (V1803);

7897

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

7898

Lfunctionp();

7899

vs_top=sup;

7900

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

7901

goto T3193;}

7902

base[2]= (V1795);

7903

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

7904

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

7905

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

7906

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

7907

else super_funcall_no_event(_funobj);}

7908

return;

7909

goto T3193;

7910

T3193:;

7911

base[2]= VV[0];

7912

base[3]= VV[1];

7913

base[4]= VV[163];

7914

base[5]= VV[3];

7915

base[6]= base0[1];

7916

base[7]= VV[4];

7917

base[8]= VV[186];

7918

base[9]= VV[6];

7919

base[10]= VV[187];

7920

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

7921

(void) (*Lnk255)();

7922

return;}}

7923

goto T3133;

7924

T3133:;

7925

base[1]= base0[1];

7926

base[2]= VV[160];

7927

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

7928

(void) (*Lnk407)();

7929

vs_top=sup;

7930

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

7931

goto T3208;}

7932

base[1]= STREF(object,base0[1],0);

7933

base[2]= STREF(object,base0[1],4);

7934

base[3]= STREF(object,base0[1],8);

7935

base[4]= base0[0];

7936

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

7937

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

7938

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

7939

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

7940

else super_funcall_no_event(_funobj);}

7941

return;

7942

goto T3208;

7943

T3208:;

7944

if(!(type_of(base0[1])==t_fixnum)){

7945

goto T3217;}

7946

{object V1808;

7947

object V1809;

7948

if(type_of(base0[0])==t_structure){

7949

goto T3223;}

7950

goto T3221;

7951

goto T3223;

7952

T3223:;

7953

if(!(((base0[0])->str.str_def)==(VV[188]))){

7954

goto T3221;}

7955

V1808= STREF(object,base0[0],4);

7956

goto T3219;

7957

goto T3221;

7958

T3221:;{object V1811;

7959

V1811= (VV[16]->s.s_dbind);

7960

base[3]= small_fixnum(14);

7961

base[4]= base0[0];

7962

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

7963

(void) (*Lnk256)();

7964

vs_top=sup;

7965

V1812= vs_base[0];

7966

if(!((V1811)==(CMPcar(V1812)))){

7967

goto T3226;}}

7968

V1808= CMPcar((base0[0])->cc.cc_turbo[12]);

7969

goto T3219;

7970

goto T3226;

7971

T3226:;

7972

V1808= Cnil;

7973

goto T3219;

7974

T3219:;

7975

if(((V1808))==Cnil){

7976

goto T3233;}

7977

V1809= ((V1808))->v.v_self[fix(base0[1])];

7978

goto T3231;

7979

goto T3233;

7980

T3233:;

7981

V1809= Cnil;

7982

goto T3231;

7983

T3231:;

7984

if(!(((V1809))==(VV[17]))){

7985

goto T3236;}

7986

base[3]= base0[0];

7987

base[4]= base0[1];

7988

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

7989

(void) (*Lnk409)();

7990

return;

7991

goto T3236;

7992

T3236:;

7993

base[3]= (V1809);

7994

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

7995

return;}

7996

goto T3217;

7997

T3217:;

7998

{register object V1814;

7999

V1814= base0[1];

8000

base[1]= (V1814);

8001

base[2]= VV[162];

8002

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

8003

(void) (*Lnk407)();

8004

vs_top=sup;

8005

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

8006

goto T3241;}

8007

{object V1815;

8008

object V1816;

8009

8010

V1815= STREF(object,base0[1],0);

8011

V1816= make_cons(base0[0],Cnil);

8012

V1817= STREF(object,base0[1],4);

8013

if(((V1817))==Cnil){

8014

goto T3249;}

8015

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

8016

goto T3249;}

8017

base[1]= (V1816);

8018

base[2]= CMPcar((V1817));

8019

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

8020

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

8021

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

8022

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

8023

else super_funcall_no_event(_funobj);}

8024

return;

8025

goto T3249;

8026

T3249:;

8027

base[1]= (V1815);

8028

base[2]= (V1816);

8029

{object V1818;

8030

V1818= (V1817);

8031

vs_top=base+3;

8032

while(V1818!=Cnil)

8033

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

8034

vs_base=base+2;}

8035

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

8036

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

8037

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

8038

else super_funcall_no_event(_funobj);}

8039

return;}

8040

goto T3241;

8041

T3241:;

8042

base[1]= (V1814);

8043

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

8044

Lfunctionp();

8045

vs_top=sup;

8046

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

8047

goto T3259;}

8048

base[1]= base0[0];

8049

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

8050

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

8051

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

8052

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

8053

else super_funcall_no_event(_funobj);}

8054

return;

8055

goto T3259;

8056

T3259:;

8057

base[1]= VV[0];

8058

base[2]= VV[1];

8059

base[3]= VV[163];

8060

base[4]= VV[3];

8061

base[5]= base0[1];

8062

base[6]= VV[4];

8063

base[7]= VV[189];

8064

base[8]= VV[6];

8065

base[9]= VV[190];

8066

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

8067

(void) (*Lnk255)();

8068

return;}

8069

goto T3130;

8070

T3130:;

8071

base[1]= VV[184];

8072

base[2]= base0[0];

8073

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

8074

(void) (*Lnk408)();

8075

return;

8076

}

8077

}

8078

/* local function CALL-NEXT-METHOD */

8079

8080

static void L89(base0)

8081

8082

{ register object *base=vs_base;

8083

8084

vs_check;

8085

{object V1819;

8086

vs_top[0]=Cnil;

8087

{object *p=vs_top;

8088

for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}

8089

V1819=(base[0]);

8090

vs_top=sup;

8091

if((base0[1])==Cnil){

8092

goto T3275;}

8093

if(((V1819))==Cnil){

8094

goto T3278;}

8095

{object V1820;

8096

object V1821;

8097

V1820= (V1819);

8098

{object V1822;

8099

V1822= CMPcar((V1820));

8100

V1820= CMPcdr((V1820));

8101

V1821= (V1822);}

8102

base[2]= base0[1];

8103

base[3]= VV[160];

8104

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

8105

(void) (*Lnk407)();

8106

vs_top=sup;

8107

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

8108

goto T3287;}

8109

base[2]= STREF(object,base0[1],0);

8110

base[3]= STREF(object,base0[1],4);

8111

base[4]= STREF(object,base0[1],8);

8112

base[5]= (V1821);

8113

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

8114

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

8115

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

8116

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

8117

else super_funcall_no_event(_funobj);}

8118

return;

8119

goto T3287;

8120

T3287:;

8121

if(!(type_of(base0[1])==t_fixnum)){

8122

goto T3296;}

8123

{object V1823;

8124

object V1824;

8125

if(type_of(V1821)==t_structure){

8126

goto T3302;}

8127

goto T3300;

8128

goto T3302;

8129

T3302:;

8130

if(!(((V1821)->str.str_def)==(VV[170]))){

8131

goto T3300;}

8132

V1823= STREF(object,(V1821),4);

8133

goto T3298;

8134

goto T3300;

8135

T3300:;{object V1826;

8136

V1826= (VV[16]->s.s_dbind);

8137

base[4]= small_fixnum(14);

8138

base[5]= (V1821);

8139

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

8140

(void) (*Lnk256)();

8141

vs_top=sup;

8142

V1827= vs_base[0];

8143

if(!((V1826)==(CMPcar(V1827)))){

8144

goto T3305;}}

8145

V1823= CMPcar(((V1821))->cc.cc_turbo[12]);

8146

goto T3298;

8147

goto T3305;

8148

T3305:;

8149

V1823= Cnil;

8150

goto T3298;

8151

T3298:;

8152

if(((V1823))==Cnil){

8153

goto T3312;}

8154

V1824= ((V1823))->v.v_self[fix(base0[1])];

8155

goto T3310;

8156

goto T3312;

8157

T3312:;

8158

V1824= Cnil;

8159

goto T3310;

8160

T3310:;

8161

if(!(((V1824))==(VV[17]))){

8162

goto T3315;}

8163

base[4]= (V1821);

8164

base[5]= base0[1];

8165

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

8166

(void) (*Lnk409)();

8167

return;

8168

goto T3315;

8169

T3315:;

8170

base[4]= (V1824);

8171

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

8172

return;}

8173

goto T3296;

8174

T3296:;

8175

base[2]= base0[1];

8176

base[3]= VV[162];

8177

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

8178

(void) (*Lnk407)();

8179

vs_top=sup;

8180

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

8181

goto T3320;}

8182

{object V1830;

8183

object V1831;

8184

object V1832;

8185

V1830= STREF(object,base0[1],0);

8186

V1831= make_cons((V1821),Cnil);

8187

V1832= STREF(object,base0[1],4);

8188

if(((V1832))==Cnil){

8189

goto T3328;}

8190

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

8191

goto T3328;}

8192

base[2]= (V1831);

8193

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

8194

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

8195

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

8196

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

8197

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

8198

else super_funcall_no_event(_funobj);}

8199

return;

8200

goto T3328;

8201

T3328:;

8202

base[2]= (V1830);

8203

base[3]= (V1831);

8204

{object V1833;

8205

V1833= (V1832);

8206

vs_top=base+4;

8207

while(V1833!=Cnil)

8208

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

8209

vs_base=base+3;}

8210

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

8211

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

8212

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

8213

else super_funcall_no_event(_funobj);}

8214

return;}

8215

goto T3320;

8216

T3320:;

8217

base[2]= base0[1];

8218

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

8219

Lfunctionp();

8220

vs_top=sup;

8221

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

8222

goto T3338;}

8223

base[2]= (V1821);

8224

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

8225

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

8226

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

8227

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

8228

else super_funcall_no_event(_funobj);}

8229

return;

8230

goto T3338;

8231

T3338:;

8232

base[2]= VV[0];

8233

base[3]= VV[1];

8234

base[4]= VV[163];

8235

base[5]= VV[3];

8236

base[6]= base0[1];

8237

base[7]= VV[4];

8238

base[8]= VV[171];

8239

base[9]= VV[6];

8240

base[10]= VV[172];

8241

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

8242

(void) (*Lnk255)();

8243

return;}

8244

goto T3278;

8245

T3278:;

8246

base[1]= base0[1];

8247

base[2]= VV[160];

8248

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

8249

(void) (*Lnk407)();

8250

vs_top=sup;

8251

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

8252

goto T3353;}

8253

base[1]= STREF(object,base0[1],0);

8254

base[2]= STREF(object,base0[1],4);

8255

base[3]= STREF(object,base0[1],8);

8256

base[4]= base0[0];

8257

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

8258

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

8259

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

8260

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

8261

else super_funcall_no_event(_funobj);}

8262

return;

8263

goto T3353;

8264

T3353:;

8265

if(!(type_of(base0[1])==t_fixnum)){

8266

goto T3362;}

8267

{object V1834;

8268

object V1835;

8269

if(type_of(base0[0])==t_structure){

8270

goto T3368;}

8271

goto T3366;

8272

goto T3368;

8273

T3368:;

8274

if(!(((base0[0])->str.str_def)==(VV[173]))){

8275

goto T3366;}

8276

V1834= STREF(object,base0[0],4);

8277

goto T3364;

8278

goto T3366;

8279

T3366:;{object V1837;

8280

V1837= (VV[16]->s.s_dbind);

8281

base[3]= small_fixnum(14);

8282

base[4]= base0[0];

8283

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

8284

(void) (*Lnk256)();

8285

vs_top=sup;

8286

V1838= vs_base[0];

8287

if(!((V1837)==(CMPcar(V1838)))){

8288

goto T3371;}}

8289

V1834= CMPcar((base0[0])->cc.cc_turbo[12]);

8290

goto T3364;

8291

goto T3371;

8292

T3371:;

8293

V1834= Cnil;

8294

goto T3364;

8295

T3364:;

8296

if(((V1834))==Cnil){

8297

goto T3378;}

8298

V1835= ((V1834))->v.v_self[fix(base0[1])];

8299

goto T3376;

8300

goto T3378;

8301

T3378:;

8302

V1835= Cnil;

8303

goto T3376;

8304

T3376:;

8305

if(!(((V1835))==(VV[17]))){

8306

goto T3381;}

8307

base[3]= base0[0];

8308

base[4]= base0[1];

8309

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

8310

(void) (*Lnk409)();

8311

return;

8312

goto T3381;

8313

T3381:;

8314

base[3]= (V1835);

8315

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

8316

return;}

8317

goto T3362;

8318

T3362:;

8319

base[1]= base0[1];

8320

base[2]= VV[162];

8321

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

8322

(void) (*Lnk407)();

8323

vs_top=sup;

8324

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

8325

goto T3386;}

8326

{object V1841;

8327

object V1842;

8328

object V1843;

8329

V1841= STREF(object,base0[1],0);

8330

V1842= make_cons(base0[0],Cnil);

8331

V1843= STREF(object,base0[1],4);

8332

if(((V1843))==Cnil){

8333

goto T3394;}

8334

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

8335

goto T3394;}

8336

base[1]= (V1842);

8337

base[2]= CMPcar((V1843));

8338

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

8339

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

8340

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

8341

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

8342

else super_funcall_no_event(_funobj);}

8343

return;

8344

goto T3394;

8345

T3394:;

8346

base[1]= (V1841);

8347

base[2]= (V1842);

8348

{object V1844;

8349

V1844= (V1843);

8350

vs_top=base+3;

8351

while(V1844!=Cnil)

8352

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

8353

vs_base=base+2;}

8354

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

8355

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

8356

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

8357

else super_funcall_no_event(_funobj);}

8358

return;}

8359

goto T3386;

8360

T3386:;

8361

base[1]= base0[1];

8362

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

8363

Lfunctionp();

8364

vs_top=sup;

8365

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

8366

goto T3404;}

8367

base[1]= base0[0];

8368

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

8369

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

8370

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

8371

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

8372

else super_funcall_no_event(_funobj);}

8373

return;

8374

goto T3404;

8375

T3404:;

8376

base[1]= VV[0];

8377

base[2]= VV[1];

8378

base[3]= VV[163];

8379

base[4]= VV[3];

8380

base[5]= base0[1];

8381

base[6]= VV[4];

8382

base[7]= VV[174];

8383

base[8]= VV[6];

8384

base[9]= VV[175];

8385

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

8386

(void) (*Lnk255)();

8387

return;

8388

goto T3275;

8389

T3275:;

8390

base[1]= VV[169];

8391

base[2]= base0[0];

8392

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

8393

(void) (*Lnk408)();

8394

return;

8395

}

8396

}

8397

/* local function WALK */

8398

8399

static void L82(base0)

8400

8401

{ register object *base=vs_base;

8402

8403

vs_check;

8404

{register object V1845;

8405

check_arg(1);

8406

V1845=(base[0]);

8407

vs_top=sup;

8408

goto TTL;

8409

TTL:;

8410

if(((V1845))!=Cnil){

8411

goto T3420;}

8412

base[1]= Cnil;

8413

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

8414

return;

8415

goto T3420;

8416

T3420:;

8417

{object V1846;

8418

{object V1847;

8419

V1847= CMPcar((V1845));

8420

V1845= CMPcdr((V1845));

8421

V1846= (V1847);}

8422

if(!(((V1846))==(base0[0]))){

8423

goto T3428;}

8424

V1848= base0[1];

8425

goto T3426;

8426

goto T3428;

8427

T3428:;

8428

base[1]= (V1846);

8429

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

8430

(void) (*Lnk372)(Lclptr372);

8431

vs_top=sup;

8432

V1848= vs_base[0];

8433

goto T3426;

8434

T3426:;

8435

base[1]= (V1845);

8436

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

8437

L82(base0);

8438

vs_top=sup;

8439

V1849= vs_base[0];

8440

base[1]= append(V1848,V1849);

8441

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

8442

return;}

8443

}

8444

}

8445

/* local function CLOSURE */

8446

8447

static void LC144(base0)

8448

8449

{ register object *base=vs_base;

8450

8451

vs_check;

8452

{object V1850;

8453

object V1851;

8454

check_arg(2);

8455

V1850=(base[0]);

8456

V1851=(base[1]);

8457

vs_top=sup;

8458

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

8459

base[3]= (V1850);

8460

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

8461

(void) (*Lnk410)(Lclptr410);

8462

return;

8463

}

8464

}

8465

/* local function COLLECT-GFS */

8466

8467

static void L75(base0)

8468

8469

{ register object *base=vs_base;

8470

8471

vs_check;

8472

{object V1852;

8473

check_arg(1);

8474

V1852=(base[0]);

8475

vs_top=sup;

8476

goto TTL;

8477

TTL:;

8478

{register object V1853;

8479

8480

base[3]= (V1852);

8481

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

8482

(void) (*Lnk411)(Lclptr411);

8483

vs_top=sup;

8484

V1853= vs_base[0];

8485

V1854= CMPcar((V1853));

8486

goto T3440;

8487

T3440:;

8488

if(!(((V1853))==Cnil)){

8489

goto T3441;}

8490

goto T3435;

8491

goto T3441;

8492

T3441:;

8493

{register object V1855;

8494

8495

8496

V1855= (V1854);

8497

V1856= base0[1];

8498

V1857= Ct;

8499

base[3]= (V1855);

8500

base[4]= (V1856);

8501

base[5]= (V1857);

8502

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

8503

siLhash_set();

8504

vs_top=sup;}

8505

V1853= CMPcdr((V1853));

8506

V1854= CMPcar((V1853));

8507

goto T3440;}

8508

goto T3435;

8509

T3435:;

8510

base[1]= (V1852);

8511

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

8512

(void) (*Lnk326)(Lclptr326);

8513

vs_top=sup;

8514

V1859= vs_base[0];

8515

{

8516

object V1858= V1859;

8517

if(V1858==Cnil){

8518

base[1]= Cnil;

8519

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

8520

return;}

8521

goto T3457;

8522

T3457:;

8523

base[1]= (V1858->c.c_car);

8524

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

8525

L75(base0);

8526

vs_top=sup;

8527

if((V1858=MMcdr(V1858))==Cnil){

8528

base[1]= V1859;

8529

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

8530

return;}

8531

goto T3457;}

8532

}

8533

}

8534

/* local function RWALK */

8535

8536

static void L71(base0)

8537

8538

{ register object *base=vs_base;

8539

8540

vs_check;

8541

{object V1860;

8542

check_arg(1);

8543

V1860=(base[0]);

8544

vs_top=sup;

8545

goto TTL;

8546

TTL:;

8547

if(((V1860))==Cnil){

8548

goto T3463;}

8549

base[1]= CMPcdr((V1860));

8550

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

8551

L71(base0);

8552

vs_top=sup;

8553

{register object V1861;

8554

object V1862;

8555

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

8556

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

8557

(void) (*Lnk412)(Lclptr412);

8558

vs_top=sup;

8559

V1861= vs_base[0];

8560

V1862= CMPcar((V1861));

8561

goto T3471;

8562

T3471:;

8563

if(!(((V1861))==Cnil)){

8564

goto T3472;}

8565

base[3]= Cnil;

8566

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

8567

return;

8568

goto T3472;

8569

T3472:;

8570

{register object V1863;

8571

base[3]= (V1862);

8572

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

8573

(void) (*Lnk314)(Lclptr314);

8574

vs_top=sup;

8575

V1863= vs_base[0];

8576

{register object x= (V1863),V1864= base0[0];

8577

while(V1864!=Cnil)

8578

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

8579

goto T3480;

8580

}else V1864=V1864->c.c_cdr;

8581

goto T3476;}

8582

goto T3480;

8583

T3480:;

8584

base0[1]= make_cons((V1863),base0[1]);

8585

base[3]= (V1863);

8586

base[4]= base0[0];

8587

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

8588

(void) (*Lnk145)();

8589

vs_top=sup;

8590

base0[0]= vs_base[0];}

8591

goto T3476;

8592

T3476:;

8593

V1861= CMPcdr((V1861));

8594

V1862= CMPcar((V1861));

8595

goto T3471;}

8596

goto T3463;

8597

T3463:;

8598

base[1]= Cnil;

8599

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

8600

return;

8601

}

8602

}

8603

/* local function FIX */

8604

8605

static void L59(base0)

8606

8607

{ register object *base=vs_base;

8608

8609

vs_check;

8610

{object V1865;

8611

object V1866;

8612

object V1867;

8613

check_arg(3);

8614

V1865=(base[0]);

8615

V1866=(base[1]);

8616

V1867=(base[2]);

8617

vs_top=sup;

8618

goto TTL;

8619

TTL:;

8620

{object V1868;

8621

base[3]= (V1865);

8622

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

8623

(void) (*Lnk413)();

8624

vs_top=sup;

8625

V1868= vs_base[0];

8626

{object V1869= (V1867);

8627

if((V1869!= VV[146]))goto T3493;

8628

if(!((base0[0])==(VV[144]))){

8629

goto T3495;}

8630

base[3]= base0[1];

8631

base[4]= (V1868);

8632

base[5]= (V1866);

8633

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

8634

(void) (*Lnk414)(Lclptr414);

8635

return;

8636

goto T3495;

8637

T3495:;

8638

base[3]= base0[1];

8639

base[4]= (V1868);

8640

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

8641

(void) (*Lnk415)(Lclptr415);

8642

return;

8643

goto T3493;

8644

T3493:;

8645

if((V1869!= VV[147]))goto T3502;

8646

if(!((base0[0])==(VV[144]))){

8647

goto T3504;}

8648

base[3]= base0[1];

8649

base[4]= (V1868);

8650

base[5]= (V1866);

8651

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

8652

(void) (*Lnk416)(Lclptr416);

8653

return;

8654

goto T3504;

8655

T3504:;

8656

base[3]= base0[1];

8657

base[4]= (V1868);

8658

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

8659

(void) (*Lnk417)(Lclptr417);

8660

return;

8661

goto T3502;

8662

T3502:;

8663

base[3]= Cnil;

8664

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

8665

return;}}

8666

}

8667

}

8668

/* local function CLOSURE */

8669

8670

static void LC143(base0)

8671

8672

{ register object *base=vs_base;

8673

8674

vs_check;

8675

{object V1870;

8676

check_arg(1);

8677

V1870=(base[0]);

8678

vs_top=sup;

8679

base[1]=VV[418]->s.s_gfdef;

8680

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

8681

base[3]= (V1870);

8682

{object V1871;

8683

V1871= (base0[0]->c.c_car);

8684

vs_top=base+4;

8685

while(V1871!=Cnil)

8686

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

8687

vs_base=base+2;}

8688

(void) (*Lnk418)(Lclptr418);

8689

return;

8690

}

8691

}

8692

/* local function CLOSURE */

8693

8694

static void LC142(base0)

8695

8696

{ register object *base=vs_base;

8697

8698

vs_check;

8699

{object V1872;

8700

check_arg(1);

8701

V1872=(base[0]);

8702

vs_top=sup;

8703

base[1]= ((CMPcar((V1872)))==((base0[0]->c.c_car))?Ct:Cnil);

8704

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

8705

return;

8706

}

8707

}

8708

/* local function CLOSURE */

8709

8710

static void LC141(base0)

8711

8712

{ register object *base=vs_base;

8713

8714

vs_check;

8715

{object V1873;

8716

check_arg(1);

8717

V1873=(base[0]);

8718

vs_top=sup;

8719

base[1]= (V1873);

8720

base[2]= VV[1];

8721

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

8722

Lgetf();

8723

vs_top=sup;

8724

V1874= vs_base[0];

8725

base[1]= (((base0[0]->c.c_car))==(V1874)?Ct:Cnil);

8726

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

8727

return;

8728

}

8729

}

8730

/* local function FIX-SUPER */

8731

8732

static void L46(base0)

8733

8734

{ register object *base=vs_base;

8735

8736

vs_check;

8737

{object V1875;

8738

check_arg(1);

8739

V1875=(base[0]);

8740

vs_top=sup;

8741

goto TTL;

8742

TTL:;

8743

base[1]= (V1875);

8744

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

8745

(void) (*Lnk364)(Lclptr364);

8746

vs_top=sup;

8747

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

8748

goto T3518;}

8749

base[1]= (V1875);

8750

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

8751

return;

8752

goto T3518;

8753

T3518:;

8754

if(((*(LnkLI419))((V1875)))!=Cnil){

8755

goto T3522;}

8756

base[1]= VV[101];

8757

base[2]= (V1875);

8758

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

8759

Lerror();

8760

return;

8761

goto T3522;

8762

T3522:;{object V1876;

8763

V1876= (VFUN_NARGS=2,(*(LnkLI296))((V1875),Cnil));

8764

if(V1876==Cnil)goto T3526;

8765

base[1]= V1876;

8766

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

8767

return;

8768

goto T3526;

8769

T3526:;}

8770

{object V1878;

8771

base[2]= VV[102];

8772

base[3]= VV[1];

8773

base[4]= (V1875);

8774

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

8775

(void) (*Lnk300)(Lclptr300);

8776

vs_top=sup;

8777

V1878= vs_base[0];

8778

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

8779

base[3]= (V1878);

8780

base[4]= V1875;

8781

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

8782

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

8783

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

8784

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

8785

else super_funcall_no_event(_funobj);}

8786

return;}

8787

}

8788

}

8789

/* local function CLOSURE */

8790

8791

static void LC140(base0)

8792

8793

{ register object *base=vs_base;

8794

8795

vs_check;

8796

{object V1879;

8797

check_arg(1);

8798

V1879=(base[0]);

8799

vs_top=sup;

8800

{register object V1880;

8801

8802

base[3]= (V1879);

8803

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

8804

(void) (*Lnk411)(Lclptr411);

8805

vs_top=sup;

8806

V1880= vs_base[0];

8807

V1881= CMPcar((V1880));

8808

goto T3539;

8809

T3539:;

8810

if(!(((V1880))==Cnil)){

8811

goto T3540;}

8812

base[3]= Cnil;

8813

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

8814

return;

8815

goto T3540;

8816

T3540:;

8817

base[3]= (V1881);

8818

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

8819

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

8820

Lgethash();

8821

vs_top=sup;

8822

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

8823

goto T3544;}

8824

{register object V1882;

8825

8826

8827

V1882= (V1881);

8828

V1883= (base0[0]->c.c_car);

8829

V1884= Ct;

8830

base[3]= (V1882);

8831

base[4]= (V1883);

8832

base[5]= (V1884);

8833

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

8834

siLhash_set();

8835

vs_top=sup;}

8836

(void)((

8837

(type_of((base0[1]->c.c_car)) == t_sfun ?(*(((base0[1]->c.c_car))->sfn.sfn_self)):

8838

(fcall.argd=1,type_of((base0[1]->c.c_car))==t_vfun) ?

8839

(*(((base0[1]->c.c_car))->sfn.sfn_self)):

8840

(fcall.fun=((base0[1]->c.c_car)),fcalln))((V1881))));

8841

goto T3544;

8842

T3544:;

8843

V1880= CMPcdr((V1880));

8844

V1881= CMPcar((V1880));

8845

goto T3539;}

8846

}

8847

}

8848

/* local function CLOSURE */

8849

8850

static void LC139(base0)

8851

8852

{ register object *base=vs_base;

8853

8854

vs_check;

8855

{object V1885;

8856

object V1886;

8857

check_arg(2);

8858

V1885=(base[0]);

8859

V1886=(base[1]);

8860

vs_top=sup;

8861

base[2]= (V1886);

8862

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

8863

{object _funobj = (base0[0]->c.c_car);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))

8864

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

8865

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

8866

else super_funcall_no_event(_funobj);}

8867

return;

8868

}

8869

}

8870

/* local function CLOSURE */

8871

8872

static void LC138(base0)

8873

8874

{ register object *base=vs_base;

8875

8876

vs_check;

8877

{object V1887;

8878

object V1888;

8879

check_arg(2);

8880

V1887=(base[0]);

8881

V1888=(base[1]);

8882

vs_top=sup;

8883

base[2]= (*(LnkLI420))((V1887));

8884

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

8885

return;

8886

}

8887

}

8888

/* local function CLOSURE */

8889

8890

static void LC137(base0)

8891

8892

{ register object *base=vs_base;

8893

8894

vs_check;

8895

{object V1889;

8896

check_arg(1);

8897

V1889=(base[0]);

8898

vs_top=sup;

8899

base[1]= (V1889);

8900

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

8901

(void) (*Lnk112)(Lclptr112);

8902

vs_top=sup;

8903

V1890= vs_base[0];

8904

(void)((

8905

(type_of((base0[0]->c.c_car)) == t_sfun ?(*(((base0[0]->c.c_car))->sfn.sfn_self)):

8906

(fcall.argd=1,type_of((base0[0]->c.c_car))==t_vfun) ?

8907

(*(((base0[0]->c.c_car))->sfn.sfn_self)):

8908

(fcall.fun=((base0[0]->c.c_car)),fcalln))(V1890)));

8909

base[1]= (V1889);

8910

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

8911

{object _funobj = (base0[0]->c.c_car);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))

8912

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

8913

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

8914

else super_funcall_no_event(_funobj);}

8915

return;

8916

}

8917

}

8918

static void LnkT112(ptr) object *ptr;{ call_or_link_closure(VV[112],(void **)(void *)&Lnk112,(void **)(void *)&Lclptr112);} /* CLASS-EQ-SPECIALIZER */

8919

static object LnkTLI420(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[420],(void **)(void *)&LnkLI420,1,first,ap);va_end(ap);return V1;} /* INTERN-EQL-SPECIALIZER */

8920

static object LnkTLI419(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[419],(void **)(void *)&LnkLI419,1,first,ap);va_end(ap);return V1;} /* LEGAL-CLASS-NAME-P */

8921

static void LnkT418(ptr) object *ptr;{ call_or_link_closure(VV[418],(void **)(void *)&Lnk418,(void **)(void *)&Lclptr418);} /* UPDATE-DEPENDENT */

8922

static void LnkT417(ptr) object *ptr;{ call_or_link_closure(VV[417],(void **)(void *)&Lnk417,(void **)(void *)&Lclptr417);} /* REMOVE-WRITER-METHOD */

8923

static void LnkT416(ptr) object *ptr;{ call_or_link_closure(VV[416],(void **)(void *)&Lnk416,(void **)(void *)&Lclptr416);} /* ADD-WRITER-METHOD */

8924

static void LnkT415(ptr) object *ptr;{ call_or_link_closure(VV[415],(void **)(void *)&Lnk415,(void **)(void *)&Lclptr415);} /* REMOVE-READER-METHOD */

8925

static void LnkT414(ptr) object *ptr;{ call_or_link_closure(VV[414],(void **)(void *)&Lnk414,(void **)(void *)&Lclptr414);} /* ADD-READER-METHOD */

8926

static void LnkT413(){ call_or_link(VV[413],(void **)(void *)&Lnk413);} /* ENSURE-GENERIC-FUNCTION */

8927

static void LnkT412(ptr) object *ptr;{ call_or_link_closure(VV[412],(void **)(void *)&Lnk412,(void **)(void *)&Lclptr412);} /* CLASS-SLOTS */

8928

static void LnkT411(ptr) object *ptr;{ call_or_link_closure(VV[411],(void **)(void *)&Lnk411,(void **)(void *)&Lclptr411);} /* SPECIALIZER-DIRECT-GENERIC-FUNCTIONS */

8929

static void LnkT410(ptr) object *ptr;{ call_or_link_closure(VV[410],(void **)(void *)&Lnk410,(void **)(void *)&Lclptr410);} /* UPDATE-GF-DFUN */

8930

static void LnkT409(){ call_or_link(VV[409],(void **)(void *)&Lnk409);} /* SLOT-UNBOUND-INTERNAL */

8931

static void LnkT408(){ call_or_link(VV[408],(void **)(void *)&Lnk408);} /* CALL-NO-NEXT-METHOD */

8932

static void LnkT407(){ call_or_link(VV[407],(void **)(void *)&Lnk407);} /* STRUCTURE-SUBTYPE-P */

8933

static void LnkT406(){ call_or_link(VV[406],(void **)(void *)&Lnk406);} /* DELETE */

8934

static object LnkTLI405(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[405],(void **)(void *)&LnkLI405,3,first,ap);va_end(ap);return V1;} /* CHANGE-CLASS-INTERNAL */

8935

static void LnkT404(ptr) object *ptr;{ call_or_link_closure(VV[404],(void **)(void *)&Lnk404,(void **)(void *)&Lclptr404);} /* UPDATE-INSTANCE-FOR-DIFFERENT-CLASS */

8936

static void LnkT403(ptr) object *ptr;{ call_or_link_closure(VV[403],(void **)(void *)&Lnk403,(void **)(void *)&Lclptr403);} /* UPDATE-INSTANCE-FOR-REDEFINED-CLASS */

8937

static object LnkTLI402(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[402],(void **)(void *)&LnkLI402,2,first,ap);va_end(ap);return V1;} /* SWAP-WRAPPERS-AND-SLOTS */

8938

static object LnkTLI401(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[401],(void **)(void *)&LnkLI401,2,first,ap);va_end(ap);return V1;} /* SET-WRAPPER */

8939

static object LnkTLI400(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[400],(void **)(void *)&LnkLI400,3,first,ap);va_end(ap);return V1;} /* INVALIDATE-WRAPPER */

8940

static object LnkTLI399(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[399],(void **)(void *)&LnkLI399,1,first,ap);va_end(ap);return V1;} /* INFORM-TYPE-SYSTEM-ABOUT-STD-CLASS */

8941

static object LnkTLI398(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[398],(void **)(void *)&LnkLI398,2,first,ap);va_end(ap);return V1;} /* MAKE-STD-BOUNDP-METHOD-FUNCTION */

8942

static object LnkTLI397(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[397],(void **)(void *)&LnkLI397,2,first,ap);va_end(ap);return V1;} /* MAKE-STD-WRITER-METHOD-FUNCTION */

8943

static object LnkTLI396(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[396],(void **)(void *)&LnkLI396,2,first,ap);va_end(ap);return V1;} /* MAKE-STD-READER-METHOD-FUNCTION */

8944

static object LnkTLI394(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[394],(void **)(void *)&LnkLI394,first,ap);va_end(ap);return V1;} /* GET-METHOD */

8945

static void LnkT393(ptr) object *ptr;{ call_or_link_closure(VV[393],(void **)(void *)&Lnk393,(void **)(void *)&Lclptr393);} /* MAKE-BOUNDP-METHOD-FUNCTION */

8946

static void LnkT392(ptr) object *ptr;{ call_or_link_closure(VV[392],(void **)(void *)&Lnk392,(void **)(void *)&Lclptr392);} /* MAKE-WRITER-METHOD-FUNCTION */

8947

static void LnkT391(ptr) object *ptr;{ call_or_link_closure(VV[391],(void **)(void *)&Lnk391,(void **)(void *)&Lclptr391);} /* MAKE-READER-METHOD-FUNCTION */

8948

static void LnkT388(ptr) object *ptr;{ call_or_link_closure(VV[388],(void **)(void *)&Lnk388,(void **)(void *)&Lclptr388);} /* SLOT-DEFINITION-INTERNAL-WRITER-FUNCTION */

8949

static void LnkT387(ptr) object *ptr;{ call_or_link_closure(VV[387],(void **)(void *)&Lnk387,(void **)(void *)&Lclptr387);} /* SLOT-DEFINITION-INTERNAL-READER-FUNCTION */

8950

static void LnkT386(){ call_or_link(VV[386],(void **)(void *)&Lnk386);} /* *SUBTYPEP */

8951

static void LnkT385(ptr) object *ptr;{ call_or_link_closure(VV[385],(void **)(void *)&Lnk385,(void **)(void *)&Lclptr385);} /* SLOT-DEFINITION-TYPE */

8952

static void LnkT384(ptr) object *ptr;{ call_or_link_closure(VV[384],(void **)(void *)&Lnk384,(void **)(void *)&Lclptr384);} /* SLOT-DEFINITION-INITARGS */

8953

static void LnkT383(ptr) object *ptr;{ call_or_link_closure(VV[383],(void **)(void *)&Lnk383,(void **)(void *)&Lclptr383);} /* SLOT-DEFINITION-INITFORM */

8954

static void LnkT382(ptr) object *ptr;{ call_or_link_closure(VV[382],(void **)(void *)&Lnk382,(void **)(void *)&Lclptr382);} /* EFFECTIVE-SLOT-DEFINITION-CLASS */

8955

static void LnkT381(ptr) object *ptr;{ call_or_link_closure(VV[381],(void **)(void *)&Lnk381,(void **)(void *)&Lclptr381);} /* COMPUTE-EFFECTIVE-SLOT-DEFINITION-INITARGS */

8956

static void LnkT380(ptr) object *ptr;{ call_or_link_closure(VV[380],(void **)(void *)&Lnk380,(void **)(void *)&Lclptr380);} /* PCL CLASS-PRECEDENCE-LIST slot READER */

8957

static void LnkT379(ptr) object *ptr;{ call_or_link_closure(VV[379],(void **)(void *)&Lnk379,(void **)(void *)&Lclptr379);} /* INITIALIZE-INTERNAL-SLOT-FUNCTIONS */

8958

static void LnkT378(){ call_or_link(VV[378],(void **)(void *)&Lnk378);} /* POSITION */

8959

static object LnkTLI377(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[377],(void **)(void *)&LnkLI377,2,first,ap);va_end(ap);return V1;} /* COMPUTE-LAYOUT */

8960

static void LnkT376(ptr) object *ptr;{ call_or_link_closure(VV[376],(void **)(void *)&Lnk376,(void **)(void *)&Lclptr376);} /* COMPUTE-EFFECTIVE-SLOT-DEFINITION */

8961

static void LnkT375(ptr) object *ptr;{ call_or_link_closure(VV[375],(void **)(void *)&Lnk375,(void **)(void *)&Lclptr375);} /* DIRECT-SLOT-DEFINITION-CLASS */

8962

static void LnkT374(){ call_or_link(VV[374],(void **)(void *)&Lnk374);} /* DELETE-DUPLICATES */

8963

static void LnkT372(ptr) object *ptr;{ call_or_link_closure(VV[372],(void **)(void *)&Lnk372,(void **)(void *)&Lclptr372);} /* CLASS-DIRECT-DEFAULT-INITARGS */

8964

static void LnkT371(){ call_or_link(VV[371],(void **)(void *)&Lnk371);} /* SLOT-BOUNDP-NORMAL */

8965

static void LnkT66(ptr) object *ptr;{ call_or_link_closure(VV[66],(void **)(void *)&Lnk66,(void **)(void *)&Lclptr66);} /* CLASS-SLOT-CELLS */

8966

static void LnkT370(ptr) object *ptr;{ call_or_link_closure(VV[370],(void **)(void *)&Lnk370,(void **)(void *)&Lclptr370);} /* MAKE-INSTANCES-OBSOLETE */

8967

static void LnkT369(ptr) object *ptr;{ call_or_link_closure(VV[369],(void **)(void *)&Lnk369,(void **)(void *)&Lclptr369);} /* CLASS-WRAPPER */

8968

static object LnkTLI368(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[368],(void **)(void *)&LnkLI368,1,first,ap);va_end(ap);return V1;} /* COMPUTE-CLASS-SLOTS */

8969

static void LnkT367(){ call_or_link(VV[367],(void **)(void *)&Lnk367);} /* SORT */

8970

static void LnkT364(ptr) object *ptr;{ call_or_link_closure(VV[364],(void **)(void *)&Lnk364,(void **)(void *)&Lclptr364);} /* CLASSP */

8971

static void LnkT363(ptr) object *ptr;{ call_or_link_closure(VV[363],(void **)(void *)&Lnk363,(void **)(void *)&Lclptr363);} /* CLASS-CAN-PRECEDE-LIST */

8972

static void LnkT362(){ call_or_link(VV[362],(void **)(void *)&Lnk362);} /* SET-SLOT-VALUE-NORMAL */

8973

static void LnkT361(){ call_or_link(VV[361],(void **)(void *)&Lnk361);} /* SLOT-VALUE-NORMAL */

8974

static object LnkTLI360(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[360],(void **)(void *)&LnkLI360,1,first,ap);va_end(ap);return V1;} /* UPDATE-CLASS-CAN-PRECEDE-P */

8975

static object LnkTLI359(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[359],(void **)(void *)&LnkLI359,2,first,ap);va_end(ap);return V1;} /* NO-SLOT */

8976

static object LnkTLI358(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[358],(void **)(void *)&LnkLI358,1,first,ap);va_end(ap);return V1;} /* %FBOUNDP */

8977

static object LnkTLI357(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[357],(void **)(void *)&LnkLI357,1,first,ap);va_end(ap);return V1;} /* FORCE-CACHE-FLUSHES */

8978

static void LnkT149(ptr) object *ptr;{ call_or_link_closure(VV[149],(void **)(void *)&Lnk149,(void **)(void *)&Lclptr149);} /* CLASS-PRECEDENCE-LIST */

8979

static void LnkT356(){ call_or_link(VV[356],(void **)(void *)&Lnk356);} /* UPDATE-MAKE-INSTANCE-FUNCTION-TABLE */

8980

static void LnkT355(ptr) object *ptr;{ call_or_link_closure(VV[355],(void **)(void *)&Lnk355,(void **)(void *)&Lclptr355);} /* COMPUTE-DEFAULT-INITARGS */

8981

static object LnkTLI354(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[354],(void **)(void *)&LnkLI354,2,first,ap);va_end(ap);return V1;} /* UPDATE-INITS */

8982

static object LnkTLI353(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[353],(void **)(void *)&LnkLI353,1,first,ap);va_end(ap);return V1;} /* UPDATE-GFS-OF-CLASS */

8983

static object LnkTLI352(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[352],(void **)(void *)&LnkLI352,2,first,ap);va_end(ap);return V1;} /* UPDATE-SLOTS */

8984

static object LnkTLI351(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[351],(void **)(void *)&LnkLI351,2,first,ap);va_end(ap);return V1;} /* UPDATE-CPL */

8985

static object LnkTLI349(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[349],(void **)(void *)&LnkLI349,1,first,ap);va_end(ap);return V1;} /* CLASS-HAS-A-FORWARD-REFERENCED-SUPERCLASS-P */

8986

static void LnkT350(ptr) object *ptr;{ call_or_link_closure(VV[350],(void **)(void *)&Lnk350,(void **)(void *)&Lclptr350);} /* CLASS-FINALIZED-P */

8987

static void LnkT348(ptr) object *ptr;{ call_or_link_closure(VV[348],(void **)(void *)&Lnk348,(void **)(void *)&Lclptr348);} /* REMOVE-DIRECT-SUBCLASS */

8988

static void LnkT347(){ call_or_link(VV[347],(void **)(void *)&Lnk347);} /* SET-DIFFERENCE */

8989

static void LnkT346(ptr) object *ptr;{ call_or_link_closure(VV[346],(void **)(void *)&Lnk346,(void **)(void *)&Lclptr346);} /* ADD-DIRECT-SUBCLASS */

8990

static void LnkT345(ptr) object *ptr;{ call_or_link_closure(VV[345],(void **)(void *)&Lnk345,(void **)(void *)&Lclptr345);} /* CLASS-DIRECT-SUBCLASSES */

8991

static void LnkT344(ptr) object *ptr;{ call_or_link_closure(VV[344],(void **)(void *)&Lnk344,(void **)(void *)&Lclptr344);} /* SLOT-DEFINITION-WRITERS */

8992

static void LnkT343(ptr) object *ptr;{ call_or_link_closure(VV[343],(void **)(void *)&Lnk343,(void **)(void *)&Lclptr343);} /* SLOT-DEFINITION-READERS */

8993

static object LnkTLI342(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[342],(void **)(void *)&LnkLI342,3,first,ap);va_end(ap);return V1;} /* FIX-SLOT-ACCESSORS */

8994

static object LnkTLI341(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[341],(void **)(void *)&LnkLI341,1,first,ap);va_end(ap);return V1;} /* UPDATE-PV-TABLE-CACHE-INFO */

8995

static void LnkT154(ptr) object *ptr;{ call_or_link_closure(VV[154],(void **)(void *)&Lnk154,(void **)(void *)&Lclptr154);} /* PCL WRAPPER slot WRITER */

8996

static object LnkTLI340(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[340],(void **)(void *)&LnkLI340,first,ap);va_end(ap);return V1;} /* MAKE-WRAPPER */

8997

static void LnkT152(ptr) object *ptr;{ call_or_link_closure(VV[152],(void **)(void *)&Lnk152,(void **)(void *)&Lclptr152);} /* PCL SLOTS slot WRITER */

8998

static void LnkT339(ptr) object *ptr;{ call_or_link_closure(VV[339],(void **)(void *)&Lnk339,(void **)(void *)&Lclptr339);} /* COMPUTE-SLOTS */

8999

static void LnkT148(ptr) object *ptr;{ call_or_link_closure(VV[148],(void **)(void *)&Lnk148,(void **)(void *)&Lclptr148);} /* PCL CLASS-PRECEDENCE-LIST slot WRITER */

9000

static void LnkT338(ptr) object *ptr;{ call_or_link_closure(VV[338],(void **)(void *)&Lnk338,(void **)(void *)&Lclptr338);} /* COMPUTE-CLASS-PRECEDENCE-LIST */

9001

static void LnkT337(ptr) object *ptr;{ call_or_link_closure(VV[337],(void **)(void *)&Lnk337,(void **)(void *)&Lclptr337);} /* PCL DEFSTRUCT-CONSTRUCTOR slot WRITER */

9002

static void LnkT336(ptr) object *ptr;{ call_or_link_closure(VV[336],(void **)(void *)&Lnk336,(void **)(void *)&Lclptr336);} /* PCL DEFSTRUCT-FORM slot WRITER */

9003

static void LnkT335(ptr) object *ptr;{ call_or_link_closure(VV[335],(void **)(void *)&Lnk335,(void **)(void *)&Lclptr335);} /* PCL INTERNAL-WRITER-FUNCTION slot WRITER */

9004

static void LnkT334(ptr) object *ptr;{ call_or_link_closure(VV[334],(void **)(void *)&Lnk334,(void **)(void *)&Lclptr334);} /* PCL INTERNAL-READER-FUNCTION slot WRITER */

9005

static object LnkTLI333(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[333],(void **)(void *)&LnkLI333,1,first,ap);va_end(ap);return V1;} /* GBOUNDP */

9006

static void LnkT332(ptr) object *ptr;{ call_or_link_closure(VV[332],(void **)(void *)&Lnk332,(void **)(void *)&Lclptr332);} /* SLOT-DEFINITION-DEFSTRUCT-ACCESSOR-SYMBOL */

9007

static object LnkTLI331(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[331],(void **)(void *)&LnkLI331,1,first,ap);va_end(ap);return V1;} /* STRUCTURE-TYPE-P */

9008

static void LnkT330(ptr) object *ptr;{ call_or_link_closure(VV[330],(void **)(void *)&Lnk330,(void **)(void *)&Lclptr330);} /* PCL FROM-DEFCLASS-P slot READER */

9009

static void LnkT329(ptr) object *ptr;{ call_or_link_closure(VV[329],(void **)(void *)&Lnk329,(void **)(void *)&Lclptr329);} /* MAP-DEPENDENTS */

9010

static void LnkT328(ptr) object *ptr;{ call_or_link_closure(VV[328],(void **)(void *)&Lnk328,(void **)(void *)&Lclptr328);} /* CLASS-DIRECT-SLOTS */

9011

static object LnkTLI327(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[327],(void **)(void *)&LnkLI327,2,first,ap);va_end(ap);return V1;} /* REMOVE-SLOT-ACCESSORS */

9012

static void LnkT326(ptr) object *ptr;{ call_or_link_closure(VV[326],(void **)(void *)&Lnk326,(void **)(void *)&Lclptr326);} /* CLASS-DIRECT-SUPERCLASSES */

9013

static object LnkTLI325(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[325],(void **)(void *)&LnkLI325,2,first,ap);va_end(ap);return V1;} /* REMOVE-DIRECT-SUBCLASSES */

9014

static void LnkT324(ptr) object *ptr;{ call_or_link_closure(VV[324],(void **)(void *)&Lnk324,(void **)(void *)&Lclptr324);} /* PCL CLASS-EQ-SPECIALIZER slot WRITER */

9015

static void LnkT323(){ call_or_link(VV[323],(void **)(void *)&Lnk323);} /* MAKE-INSTANCE CLASS-EQ-SPECIALIZER (:CLASS) NIL */

9016

static object LnkTLI322(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[322],(void **)(void *)&LnkLI322,2,first,ap);va_end(ap);return V1;} /* ADD-SLOT-ACCESSORS */

9017

static object LnkTLI321(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[321],(void **)(void *)&LnkLI321,2,first,ap);va_end(ap);return V1;} /* MAKE-CLASS-PREDICATE */

9018

static object LnkTLI320(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[320],(void **)(void *)&LnkLI320,2,first,ap);va_end(ap);return V1;} /* UPDATE-CLASS */

9019

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;} /* ADD-DIRECT-SUBCLASSES */

9020

static void LnkT318(){ call_or_link(VV[318],(void **)(void *)&Lnk318);} /* MAKE-CLASS-PREDICATE-NAME */

9021

static void LnkT317(ptr) object *ptr;{ call_or_link_closure(VV[317],(void **)(void *)&Lnk317,(void **)(void *)&Lclptr317);} /* CLASS-NAME */

9022

static void LnkT316(ptr) object *ptr;{ call_or_link_closure(VV[316],(void **)(void *)&Lnk316,(void **)(void *)&Lclptr316);} /* PCL PREDICATE-NAME slot READER */

9023

static void LnkT315(ptr) object *ptr;{ call_or_link_closure(VV[315],(void **)(void *)&Lnk315,(void **)(void *)&Lclptr315);} /* PCL PREDICATE-NAME slot WRITER */

9024

static void LnkT314(ptr) object *ptr;{ call_or_link_closure(VV[314],(void **)(void *)&Lnk314,(void **)(void *)&Lclptr314);} /* SLOT-DEFINITION-NAME */

9025

static void LnkT313(ptr) object *ptr;{ call_or_link_closure(VV[313],(void **)(void *)&Lnk313,(void **)(void *)&Lclptr313);} /* SLOT-DEFINITION-INITFUNCTION */

9026

static void LnkT312(ptr) object *ptr;{ call_or_link_closure(VV[312],(void **)(void *)&Lnk312,(void **)(void *)&Lclptr312);} /* SLOT-DEFINITION-ALLOCATION */

9027

static void LnkT311(ptr) object *ptr;{ call_or_link_closure(VV[311],(void **)(void *)&Lnk311,(void **)(void *)&Lclptr311);} /* PCL DIRECT-SLOTS slot READER */

9028

static void LnkT310(ptr) object *ptr;{ call_or_link_closure(VV[310],(void **)(void *)&Lnk310,(void **)(void *)&Lclptr310);} /* PCL DIRECT-SLOTS slot WRITER */

9029

static void LnkT309(){ call_or_link(VV[309],(void **)(void *)&Lnk309);} /* MAKE-DIRECT-SLOTD */

9030

static void LnkT308(ptr) object *ptr;{ call_or_link_closure(VV[308],(void **)(void *)&Lnk308,(void **)(void *)&Lclptr308);} /* PCL DIRECT-SUPERCLASSES slot READER */

9031

static void LnkT307(ptr) object *ptr;{ call_or_link_closure(VV[307],(void **)(void *)&Lnk307,(void **)(void *)&Lclptr307);} /* PCL DIRECT-SUPERCLASSES slot WRITER */

9032

static void LnkT107(ptr) object *ptr;{ call_or_link_closure(VV[107],(void **)(void *)&Lnk107,(void **)(void *)&Lclptr107);} /* VALIDATE-SUPERCLASS */

9033

static void LnkT306(){ call_or_link(VV[306],(void **)(void *)&Lnk306);} /* SPECIFIC-ERROR */

9034

static void LnkT305(){ call_or_link(VV[305],(void **)(void *)&Lnk305);} /* SOME */

9035

static void LnkT304(ptr) object *ptr;{ call_or_link_closure(VV[304],(void **)(void *)&Lnk304,(void **)(void *)&Lclptr304);} /* FORWARD-REFERENCED-CLASS-P */

9036

static void LnkT303(ptr) object *ptr;{ call_or_link_closure(VV[303],(void **)(void *)&Lnk303,(void **)(void *)&Lclptr303);} /* REINITIALIZE-INSTANCE */

9037

static void LnkT302(ptr) object *ptr;{ call_or_link_closure(VV[302],(void **)(void *)&Lnk302,(void **)(void *)&Lclptr302);} /* CHANGE-CLASS */

9038

static object LnkTLI301(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[301],(void **)(void *)&LnkLI301,1,first,ap);va_end(ap);return V1;} /* CLASS-OF */

9039

static void LnkT300(ptr) object *ptr;{ call_or_link_closure(VV[300],(void **)(void *)&Lnk300,(void **)(void *)&Lclptr300);} /* MAKE-INSTANCE */

9040

static void LnkT299(ptr) object *ptr;{ call_or_link_closure(VV[299],(void **)(void *)&Lnk299,(void **)(void *)&Lclptr299);} /* INFORM-TYPE-SYSTEM-ABOUT-CLASS */

9041

static void LnkT298(ptr) object *ptr;{ call_or_link_closure(VV[298],(void **)(void *)&Lnk298,(void **)(void *)&Lclptr298);} /* CLASS-PROTOTYPE */

9042

static void LnkT297(){ call_or_link(VV[297],(void **)(void *)&Lnk297);} /* ENSURE-CLASS-VALUES */

9043

static void LnkT295(ptr) object *ptr;{ call_or_link_closure(VV[295],(void **)(void *)&Lnk295,(void **)(void *)&Lclptr295);} /* ENSURE-CLASS-USING-CLASS */

9044

static object LnkTLI296(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[296],(void **)(void *)&LnkLI296,first,ap);va_end(ap);return V1;} /* FIND-CLASS */

9045

static void LnkT294(){ call_or_link(VV[294],(void **)(void *)&Lnk294);} /* ENSURE-CLASS */

9046

static void LnkT293(){ call_or_link(VV[293],(void **)(void *)&Lnk293);} /* LOAD-TRUENAME */

9047

static object LnkTLI292(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[292],(void **)(void *)&LnkLI292,1,first,ap);va_end(ap);return V1;} /* DO-STANDARD-DEFSETFS-FOR-DEFCLASS */

9048

static void LnkT291(ptr) object *ptr;{ call_or_link_closure(VV[291],(void **)(void *)&Lnk291,(void **)(void *)&Lclptr291);} /* LISP TYPE slot WRITER */

9049

static void LnkT290(ptr) object *ptr;{ call_or_link_closure(VV[290],(void **)(void *)&Lnk290,(void **)(void *)&Lclptr290);} /* SPECIALIZER-CLASS */

9050

static object LnkTLI289(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[289],(void **)(void *)&LnkLI289,1,first,ap);va_end(ap);return V1;} /* MAP-SPECIALIZERS */

9051

static void LnkT288(){ call_or_link(VV[288],(void **)(void *)&Lnk288);} /* MAP-ALL-CLASSES */

9052

static void LnkT287(ptr) object *ptr;{ call_or_link_closure(VV[287],(void **)(void *)&Lnk287,(void **)(void *)&Lclptr287);} /* SPECIALIZER-METHOD-TABLE */

9053

static void LnkT286(ptr) object *ptr;{ call_or_link_closure(VV[286],(void **)(void *)&Lnk286,(void **)(void *)&Lclptr286);} /* SPECIALIZER-OBJECT */

9054

static void LnkT285(ptr) object *ptr;{ call_or_link_closure(VV[285],(void **)(void *)&Lnk285,(void **)(void *)&Lclptr285);} /* METHOD-GENERIC-FUNCTION */

9055

static void LnkT284(ptr) object *ptr;{ call_or_link_closure(VV[284],(void **)(void *)&Lnk284,(void **)(void *)&Lclptr284);} /* PCL DIRECT-METHODS slot READER */

9056

static void LnkT145(){ call_or_link(VV[145],(void **)(void *)&Lnk145);} /* REMOVE */

9057

static void LnkT283(ptr) object *ptr;{ call_or_link_closure(VV[283],(void **)(void *)&Lnk283,(void **)(void *)&Lclptr283);} /* PCL DIRECT-SUBCLASSES slot WRITER */

9058

static void LnkT282(ptr) object *ptr;{ call_or_link_closure(VV[282],(void **)(void *)&Lnk282,(void **)(void *)&Lclptr282);} /* PCL DIRECT-SUBCLASSES slot READER */

9059

static object LnkTLI281(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[281],(void **)(void *)&LnkLI281,first,ap);va_end(ap);return V1;} /* ALLOCATE-STANDARD-INSTANCE */

9060

static void LnkT280(ptr) object *ptr;{ call_or_link_closure(VV[280],(void **)(void *)&Lnk280,(void **)(void *)&Lclptr280);} /* PCL DEFSTRUCT-CONSTRUCTOR slot READER */

9061

static void LnkT279(ptr) object *ptr;{ call_or_link_closure(VV[279],(void **)(void *)&Lnk279,(void **)(void *)&Lclptr279);} /* PCL PROTOTYPE slot WRITER */

9062

static void LnkT278(ptr) object *ptr;{ call_or_link_closure(VV[278],(void **)(void *)&Lnk278,(void **)(void *)&Lclptr278);} /* ALLOCATE-INSTANCE */

9063

static void LnkT277(ptr) object *ptr;{ call_or_link_closure(VV[277],(void **)(void *)&Lnk277,(void **)(void *)&Lclptr277);} /* PCL PROTOTYPE slot READER */

9064

static void LnkT276(ptr) object *ptr;{ call_or_link_closure(VV[276],(void **)(void *)&Lnk276,(void **)(void *)&Lclptr276);} /* PCL WRAPPER slot READER */

9065

static void LnkT275(ptr) object *ptr;{ call_or_link_closure(VV[275],(void **)(void *)&Lnk275,(void **)(void *)&Lclptr275);} /* PCL DOCUMENTATION slot WRITER */

9066

static void LnkT274(ptr) object *ptr;{ call_or_link_closure(VV[274],(void **)(void *)&Lnk274,(void **)(void *)&Lclptr274);} /* PCL DOCUMENTATION slot READER */

9067

static object LnkTLI272(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[272],(void **)(void *)&LnkLI272,2,first,ap);va_end(ap);return V1;} /* PLIST-VALUE */

9068

static void LnkT273(){ call_or_link(VV[273],(void **)(void *)&Lnk273);} /* DOCUMENTATION */

9069

static void LnkT271(){ call_or_link(VV[271],(void **)(void *)&Lnk271);} /* GET-KEY-ARG-TAIL */

9070

static void LnkT269(){ call_or_link(VV[269],(void **)(void *)&Lnk269);} /* TURBO-CLOSURE */

9071

static void LnkT268(){ call_or_link(VV[268],(void **)(void *)&Lnk268);} /* GET-OPTIMIZED-STD-ACCESSOR-METHOD-FUNCTION */

9072

static void LnkT267(){ call_or_link(VV[267],(void **)(void *)&Lnk267);} /* GET-ACCESSOR-METHOD-FUNCTION */

9073

static void LnkT266(ptr) object *ptr;{ call_or_link_closure(VV[266],(void **)(void *)&Lnk266,(void **)(void *)&Lclptr266);} /* SLOT-ACCESSOR-STD-P */

9074

static object LnkTLI265(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[265],(void **)(void *)&LnkLI265,2,first,ap);va_end(ap);return V1;} /* FIND-SLOT-DEFINITION */

9075

static object LnkTLI264(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[264],(void **)(void *)&LnkLI264,first,ap);va_end(ap);return V1;} /* INITIALIZE-INTERNAL-SLOT-GFS */

9076

static void LnkT263(ptr) object *ptr;{ call_or_link_closure(VV[263],(void **)(void *)&Lnk263,(void **)(void *)&Lclptr263);} /* COMPUTE-SLOT-ACCESSOR-INFO */

9077

static object LnkTLI262(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[262],(void **)(void *)&LnkLI262,1,first,ap);va_end(ap);return V1;} /* GDEFINITION */

9078

static void LnkT261(ptr) object *ptr;{ call_or_link_closure(VV[261],(void **)(void *)&Lnk261,(void **)(void *)&Lclptr261);} /* LISP CLASS slot READER */

9079

static void LnkT260(ptr) object *ptr;{ call_or_link_closure(VV[260],(void **)(void *)&Lnk260,(void **)(void *)&Lclptr260);} /* PCL NAME slot READER */

9080

static void LnkT259(ptr) object *ptr;{ call_or_link_closure(VV[259],(void **)(void *)&Lnk259,(void **)(void *)&Lclptr259);} /* PCL ACCESSOR-FLAGS slot WRITER */

9081

static void LnkT258(ptr) object *ptr;{ call_or_link_closure(VV[258],(void **)(void *)&Lnk258,(void **)(void *)&Lclptr258);} /* PCL ACCESSOR-FLAGS slot READER */

9082

static object LnkTLI257(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[257],(void **)(void *)&LnkLI257,4098,first,ap);va_end(ap);return V1;} /* %CCLOSURE-ENV-NTHCDR */

9083

static void LnkT256(){ call_or_link(VV[256],(void **)(void *)&Lnk256);} /* CCLOSURE-ENV-NTHCDR */

9084

static void LnkT255(){ call_or_link(VV[255],(void **)(void *)&Lnk255);} /* ERROR */

9085

static void LnkT254(ptr) object *ptr;{ call_or_link_closure(VV[254],(void **)(void *)&Lnk254,(void **)(void *)&Lclptr254);} /* SLOT-DEFINITION-BOUNDP-FUNCTION */

9086

static void LnkT252(ptr) object *ptr;{ call_or_link_closure(VV[252],(void **)(void *)&Lnk252,(void **)(void *)&Lclptr252);} /* SLOT-DEFINITION-WRITER-FUNCTION */

9087

static void LnkT250(ptr) object *ptr;{ call_or_link_closure(VV[250],(void **)(void *)&Lnk250,(void **)(void *)&Lclptr250);} /* SLOT-DEFINITION-READER-FUNCTION */

9088

9089

#ifdef SYSTEM_SPECIAL_INIT

9090

SYSTEM_SPECIAL_INIT

9091

#endif

9092

Older »