PS:<PSL.ARCHIVE.VAX-INTERP>VAX-FASL.RED.0
00332,RLISP
smacro procedure RelocRightHalfTag X;487
smacro procedure RelocRightHalfInf X;550
smacro procedure RelocInfTag X;608
smacro procedure RelocInfInf X;664
smacro procedure RelocWordTag X;722
smacro procedure RelocWordInf X;779
macro procedure PutRightHalf B;836

PS:<PSL.COMP>BIG-FASLEND.RED.0
00157,RLISP
lisp procedure CompileUncompiledExpressions();424
lisp procedure CompileInitCode(Name, InitCodeList);729

PS:<PSL.COMP>COMP-DECLS.RED.0
00047,RLISP

PS:<PSL.COMP>COMPILER.RED.0
12008,RLISP
SYMBOLIC PROCEDURE !&MKFUNC FN;7421
SYMBOLIC PROCEDURE WARRAYP X;7466
SYMBOLIC PROCEDURE WVARP X;7535
SYMBOLIC PROCEDURE WCONSTP X;7585
SYMBOLIC PROCEDURE !&ANYREGP X;7664
macro procedure LocalF U;7715
SYMBOLIC PROCEDURE COMPILE X;8057
SYMBOLIC PROCEDURE COMPD(NAME!&,TY,EXP);8673
SYMBOLIC PROCEDURE !&PASS1 EXP;10899
SYMBOLIC PROCEDURE PA1ERR(X);11006
lisp procedure !&Pa1(U, Vbls);11105
SYMBOLIC PROCEDURE !&PA1V(U,VBLS, VAR);11218
SYMBOLIC PROCEDURE !&PA1X(U,VBLS,VAR);11462
SYMBOLIC PROCEDURE !&PALIS(U,VBLS);13656
SYMBOLIC PROCEDURE !&PALISV(U,VBLS, VAR);13728
SYMBOLIC PROCEDURE ISAWCONST X;13811
SYMBOLIC PROCEDURE !&CONSTTAG();13929
SYMBOLIC PROCEDURE MKWCONST X;14007
SYMBOLIC PROCEDURE !&PAWCONST(U, VBLS);14224
SYMBOLIC PROCEDURE NONLOCAL X;14280
SYMBOLIC PROCEDURE NONLOCALLISP X;14405
SYMBOLIC PROCEDURE NONLOCALSYS X;14623
SYMBOLIC PROCEDURE !&PANONLOCAL(X, VBLS);14756
SYMBOLIC PROCEDURE MKNONLOCAL U;15429
SYMBOLIC PROCEDURE !&MKNAM U;15764
SYMBOLIC PROCEDURE !&MKPROGN U;15967
SYMBOLIC PROCEDURE !&EQP U;16051
SYMBOLIC PROCEDURE !&EQVP U;16175
SYMBOLIC PROCEDURE !&EQPL U;16408
SYMBOLIC PROCEDURE !&MAKEADDRESS U;16490
SYMBOLIC PROCEDURE !&DOOP U;17056
SYMBOLIC PROCEDURE !&ALLCONST L;17325
lisp procedure !&PaReformWTimes2 U;17462
SYMBOLIC PROCEDURE !&ASSOCOP(U,VBLS);17847
SYMBOLIC PROCEDURE !&ASSOCOPV(U,VBLS,VAR);18143
SYMBOLIC PROCEDURE !&ASSOCOP1(OP,ARGS);19050
SYMBOLIC PROCEDURE !&ASSOCOP2(OP,ARG);19185
SYMBOLIC PROCEDURE !&INSOP(OP,L);19289
SYMBOLIC PROCEDURE !&INSOP1(NEW, RL, OP);19545
SYMBOLIC PROCEDURE !&GROUP(U,VBLS);19659
SYMBOLIC PROCEDURE !&GROUPV(U,VBLS,VAR);20147
SYMBOLIC PROCEDURE !&MAKEXP(ARGS,INVARGS,FNS);22213
SYMBOLIC PROCEDURE !&GETGROUPARGS(FNS,EXP,INVFLG,RES);22484
SYMBOLIC PROCEDURE !&GETGROUPARGS1(THING,INVFLG,RES);22979
SYMBOLIC PROCEDURE !&GETGROUPARGS2(FNS,ARGS,INVFLG,RES);23123
SYMBOLIC PROCEDURE !&DELARG(ARG,ARGS);23285
lisp procedure !&PaApply(U, Vars);23554
SYMBOLIC PROCEDURE !&PAASSOC(U,VARS);23946
SYMBOLIC PROCEDURE !&PAASSOC1(ASSOCVAR,ASSOCLIST);24054
SYMBOLIC PROCEDURE !&PACOND(U,VBLS);24255
lisp procedure !&PaCatch(U, Vbls);24993
SYMBOLIC PROCEDURE !&PADIFF(U,VARS);25561
SYMBOLIC PROCEDURE !&PAEQUAL(U,VARS);25703
SYMBOLIC PROCEDURE !&PAEQUAL1(LEFT,RIGHT);25803
SYMBOLIC PROCEDURE !&PAFUNCTION(U,VBLS);26068
SYMBOLIC PROCEDURE !&PAGETMEM(U,VBLS);26278
SYMBOLIC PROCEDURE !&PAIDENT(U,VBLS);26355
SYMBOLIC PROCEDURE !&PACASE(U,VBLS);26469
SYMBOLIC PROCEDURE !&PALAMBDA(U,VBLS);26628
SYMBOLIC PROCEDURE !&PALESSP(U,VARS);26804
SYMBOLIC PROCEDURE !&PALIST(U, VBLS);26941
lisp procedure !&PaNth(U, Vbls);27288
lisp procedure !&PaPNth(U, Vbls);27399
lisp procedure !&PaNths(U, Vbls, FnTable);27544
SYMBOLIC PROCEDURE !&PAMAP(U, VBLS);27899
SYMBOLIC PROCEDURE !&PAMAPC(U, VBLS);27968
SYMBOLIC PROCEDURE !&PAMAPDO(U, VBLS, CARFLAG);28045
SYMBOLIC PROCEDURE !&PAMAPLIST(U, VBLS);28593
SYMBOLIC PROCEDURE !&PAMAPCAR(U, VBLS);28669
SYMBOLIC PROCEDURE !&PAMAPCOLLECT(U, VBLS, CARFLAG);28756
SYMBOLIC PROCEDURE !&PAMAPCON(U, VBLS);29562
SYMBOLIC PROCEDURE !&PAMAPCAN(U, VBLS);29635
SYMBOLIC PROCEDURE !&PAMAPCONC(U, VBLS, CARFLAG);29716
SYMBOLIC PROCEDURE !&PAMEMBER(U,VARS);30659
SYMBOLIC PROCEDURE !&PAMEMBER1(THING,LST);30761
SYMBOLIC PROCEDURE !&PAINTERN(U, VBLS);30974
SYMBOLIC PROCEDURE !&PAMINUS(U,VBLS);31213
SYMBOLIC PROCEDURE !&REFORMLOC U;31453
SYMBOLIC PROCEDURE !&REFORMNULL U;31583
SYMBOLIC PROCEDURE !&PAPLUS2(U,VARS);32228
SYMBOLIC PROCEDURE !&PAPROG(U,VBLS);32456
SYMBOLIC PROCEDURE !&PAPROGBOD(U,VBLS);32602
SYMBOLIC PROCEDURE !&PAPUTMEM(U,VBLS);32710
SYMBOLIC PROCEDURE !&PAPUTLISPVAR(U, VBLS);32813
SYMBOLIC PROCEDURE !&PALISPVAR(U, VBLS);32914
SYMBOLIC PROCEDURE !&PASETQ(U,VBLS);32981
SYMBOLIC PROCEDURE !&INSTALLDESTROY(NAME!&);33759
SYMBOLIC PROCEDURE !&COMPROC(EXP,NAME!&);34801
lisp procedure !&IReg N;36240
SYMBOLIC PROCEDURE !&WCONSTP X;36508
SYMBOLIC PROCEDURE !&PASS2 EXP;36814
SYMBOLIC PROCEDURE !&COMVAL(EXP,STATUS!&);36877
SYMBOLIC PROCEDURE !&COMVAL1(EXP,STOMAP!&,STATUS!&);37961
Symbolic Procedure !&Alloctemp(Exp);39185
SYMBOLIC PROCEDURE !&CALL(FN,ARGS,STATUS!&);39741
SYMBOLIC PROCEDURE !&CALL1(FN,ARGS,STATUS!&);39860
SYMBOLIC PROCEDURE !&COMLIS EXP;40725
SYMBOLIC PROCEDURE !&COMLIS1 EXP;40845
SYMBOLIC PROCEDURE !&SAVER1;42285
SYMBOLIC PROCEDURE !&COMPLY(FN,ARGS,STATUS!&);42720
SYMBOLIC PROCEDURE !&LOADARGS(ARGS,STATUS!&,PREGS!&);43668
SYMBOLIC PROCEDURE !&LOADOPENEXP(DESTREG!&,ARG,STATUS!&,PREGS!&);44139
SYMBOLIC PROCEDURE !&REMOPEN(DESTREG!&,ARGS);45047
SYMBOLIC PROCEDURE !&ARGLOC ARG;45130
SYMBOLIC PROCEDURE !&MEMADDRESS ARG;45865
SYMBOLIC PROCEDURE !&CALLOPEN(OPFN,DEST!&,ARGS,OP);46355
SYMBOLIC PROCEDURE !&MATCHES(PAT,SUBJ);47070
SYMBOLIC PROCEDURE !&ANY U;47408
SYMBOLIC PROCEDURE !&DEST U;47442
SYMBOLIC PROCEDURE !&USESDEST U;47533
SYMBOLIC PROCEDURE !&USESDESTL U;47616
SYMBOLIC PROCEDURE !&REGFP U;47721
SYMBOLIC PROCEDURE !&REGN U;47783
SYMBOLIC PROCEDURE !&MEM U;47865
SYMBOLIC PROCEDURE !&NOTANYREG U;47998
SYMBOLIC PROCEDURE !&SUBARGS(MAC,ARGS,PARAMS);48073
SYMBOLIC PROCEDURE !&SUBARG(ARG,ARGS,PARAMS);48182
SYMBOLIC PROCEDURE !&ARG1(ARG,ARGS,PARAMS);48550
SYMBOLIC PROCEDURE !&ARG2(ARG,ARGS,PARAMS);48618
SYMBOLIC PROCEDURE !&ARG3(ARG,ARGS,PARAMS);48687
SYMBOLIC PROCEDURE !&ARG4(ARG,ARGS,PARAMS);48757
SYMBOLIC PROCEDURE !&PARAM1(ARG,ARGS,PARAMS);48830
SYMBOLIC PROCEDURE !&PARAM2(ARG,ARGS,PARAMS);48893
SYMBOLIC PROCEDURE !&PARAM3(ARG,ARGS,PARAMS);48957
SYMBOLIC PROCEDURE !&PARAM4(ARG,ARGS,PARAMS);49022
SYMBOLIC PROCEDURE !&GETTEMP(TNAME,ARGS,PARAMS);49091
SYMBOLIC PROCEDURE !&GETTEMPLBL(LNAME,ARGS,PARAMS);49351
SYMBOLIC PROCEDURE !&GENSYM();49576
SYMBOLIC PROCEDURE !&COMPERROR U;49850
SYMBOLIC PROCEDURE !&COMPWARN U;49955
SYMBOLIC PROCEDURE !&EMITMAC MAC;50049
SYMBOLIC PROCEDURE !&EMITLOAD M;50469
SYMBOLIC PROCEDURE !&EMITSTORE M;50532
SYMBOLIC PROCEDURE !&EMITJUMP M;50598
SYMBOLIC PROCEDURE !&EMITLBL M;50652
SYMBOLIC PROCEDURE !&EMITMEMMOD M;50709
SYMBOLIC PROCEDURE !&NOANYREG ARGS;51069
SYMBOLIC PROCEDURE !&NOANYREG1 ARG;51238
SYMBOLIC PROCEDURE !&INREG ARGS;51360
SYMBOLIC PROCEDURE !&REGMEM ARGS;51468
SYMBOLIC PROCEDURE !&DESTMEM ARGS;51636
SYMBOLIC PROCEDURE !&DESTMEMA ARGS;52106
SYMBOLIC PROCEDURE !&LOADTEMP1 U;53004
SYMBOLIC PROCEDURE !&LOADTEMP2 U;53102
SYMBOLIC PROCEDURE !&CONSARGS ARGS;53209
SYMBOLIC PROCEDURE !&LOADTEMPREG ARG;53432
SYMBOLIC PROCEDURE !&FIXREGTEST(OP,ARGS);53680
SYMBOLIC PROCEDURE !&FIXREGTEST1(OP, A1, A2);53778
SYMBOLIC PROCEDURE !&SETREGS1(OP, ARGS);54304
SYMBOLIC PROCEDURE !&LOCATE X;54398
SYMBOLIC PROCEDURE !&LOCATEL U;55559
SYMBOLIC PROCEDURE !&LREG(REG,VAL);55762
SYMBOLIC PROCEDURE !&LREG1(X);56034
SYMBOLIC PROCEDURE !&JUMPT LAB;56106
SYMBOLIC PROCEDURE !&JUMPNIL LAB;56199
SYMBOLIC PROCEDURE !&VARBIND(VARS,LAMBP);56355
SYMBOLIC PROCEDURE !&FREERSTR(ALSTS!&,STATUS!&);57825
SYMBOLIC PROCEDURE !&ATTACH U;58025
SYMBOLIC PROCEDURE !&STORELOCAL(U,REG);58098
SYMBOLIC PROCEDURE !&CLRSTR VAR;58669
SYMBOLIC PROCEDURE !&COMTST(EXP,LABL);59041
SYMBOLIC PROCEDURE !&COMOPENTST(PAT,EXP,DESTLAB,PREGS!&);60203
SYMBOLIC PROCEDURE !&REMVARL VARS;60652
SYMBOLIC PROCEDURE !&PROTECT U;60806
SYMBOLIC PROCEDURE !&RSTVARL(VARS,LST);61145
SYMBOLIC PROCEDURE !&RSTVAR(VAR,VAL);61324
SYMBOLIC PROCEDURE !&UNPROTECT VAL;61488
SYMBOLIC PROCEDURE !&STOREVAR(U,V);61594
SYMBOLIC PROCEDURE !&REFERENCES(EXP,VAR);61936
SYMBOLIC PROCEDURE !&REFERENCESL(EXP,VAR);62147
SYMBOLIC PROCEDURE !&CFNTYPE FN;62273
SYMBOLIC PROCEDURE !&GENLBL;62460
SYMBOLIC PROCEDURE !&GETLBL LABL;62620
SYMBOLIC PROCEDURE !&ATTLBL LBL;62821
SYMBOLIC PROCEDURE !&ATTJMP LBL;62968
SYMBOLIC PROCEDURE !&TRANSFERP X;63242
SYMBOLIC PROCEDURE !&DEFEQLBL(LAB1,LAB2);63413
SYMBOLIC PROCEDURE !&DEFEQLBL1(LABS,LAB1,LAB2);63511
SYMBOLIC PROCEDURE !&LABCLASS(LAB);63853
SYMBOLIC PROCEDURE !&DELCLASS(LAB,LABS);64056
SYMBOLIC PROCEDURE !&LBLEQ(LAB1,LAB2);64179
SYMBOLIC PROCEDURE !&FRAME U;64243
SYMBOLIC PROCEDURE !&GETFRM U;64586
SYMBOLIC PROCEDURE !&ANYREG U;64988
SYMBOLIC PROCEDURE !&ANYREGL U;65597
SYMBOLIC PROCEDURE !&ANYREGFNP U;65686
SYMBOLIC PROCEDURE !&OPENP U;65827
SYMBOLIC PROCEDURE !&OPENPL U;65939
SYMBOLIC PROCEDURE !&OPENFNP U;66019
SYMBOLIC PROCEDURE !&CONSTP U;66077
SYMBOLIC PROCEDURE !&VARP U;66186
SYMBOLIC PROCEDURE !&REGP U;66306
SYMBOLIC PROCEDURE !&NOSIDEEFFECTP U;66382
SYMBOLIC PROCEDURE !&NOSIDEEFFECTPL U;66749
SYMBOLIC PROCEDURE !&RVAL(R,RGS);67039
SYMBOLIC PROCEDURE !&REGVAL R;67250
SYMBOLIC PROCEDURE !&ADDRVALS(REG,RGS,VALS);67388
SYMBOLIC PROCEDURE !&MKREG NUM;67652
SYMBOLIC PROCEDURE !&MKFRAME NUM;68003
SYMBOLIC PROCEDURE !&RASSOC(VAL,RGS);68378
SYMBOLIC PROCEDURE !&REPASC(REG,VAL,REGL);68638
SYMBOLIC PROCEDURE !&RMERGE U;68877
SYMBOLIC PROCEDURE !&INALL(THING,RG,LST);69531
SYMBOLIC PROCEDURE !&TEMPREG();69646
SYMBOLIC PROCEDURE !&REMREGS U;70154
SYMBOLIC PROCEDURE !&GETFVAR (V,SMAP);70357
SYMBOLIC PROCEDURE !&REMREGSL U;70539
SYMBOLIC PROCEDURE !&ALLARGS ARGLST;70635
SYMBOLIC PROCEDURE !&ALLARGS1(FIRSTARGS,RESTARGS);70870
SYMBOLIC PROCEDURE !&REMMREFS();71054
SYMBOLIC PROCEDURE !&REMMREFS1 L;71160
SYMBOLIC PROCEDURE !&REFMEMORY EXP;71302
SYMBOLIC PROCEDURE !&REFMEMORYL L;71456
SYMBOLIC PROCEDURE !&REMVREFS;71557
SYMBOLIC PROCEDURE !&REMVREFS1 L;72049
SYMBOLIC PROCEDURE !&REFEXTERNAL EXP;72172
SYMBOLIC PROCEDURE !&REFEXTERNALL EXPS;72358
SYMBOLIC PROCEDURE !&EXTERNALVARP U;72484
SYMBOLIC PROCEDURE !&REMREFS V;72556
SYMBOLIC PROCEDURE !&REMREFS1(X,LST);72791
SYMBOLIC PROCEDURE !&TSTANDOR(EXP,LABL);73162
SYMBOLIC PROCEDURE !&COMANDOR(EXP,STATUS!&);74795
SYMBOLIC PROCEDURE !&COMAPPLY(EXP,STATUS);75270
SYMBOLIC PROCEDURE !&COMCOND(EXP,STATUS!&);76203
SYMBOLIC PROCEDURE !&COMCONS(EXP,STATUS!&);78026
SYMBOLIC PROCEDURE !&COMGO(EXP,STATUS!&);78510
SYMBOLIC PROCEDURE !&COMCASE(EXP,STATUS!&);78680
SYMBOLIC PROCEDURE !&INSTBL(TBL,I,L);80993
SYMBOLIC PROCEDURE !&GETNUM X;81214
SYMBOLIC PROCEDURE !&COMPROG(EXP,STATUS!&);81371
SYMBOLIC PROCEDURE !&COMPROGN(EXP,STATUS!&);82451
SYMBOLIC PROCEDURE !&COMRETURN(EXP,STATUS!&);82767
SYMBOLIC PROCEDURE !&DELMAC X;83145
SYMBOLIC PROCEDURE !&PASS3;83434
SYMBOLIC PROCEDURE !&INSERTMAC(PLACE,MAC);84339
SYMBOLIC PROCEDURE !&DELETEMAC(PLACE);84428
SYMBOLIC PROCEDURE !&REMCODE(KEEPTOP);84497
SYMBOLIC PROCEDURE !&UNUSEDLBLS(KEEPTOP);84725
SYMBOLIC PROCEDURE !&CLASSMEMBER(LAB,CLASSES);85236
SYMBOLIC PROCEDURE !&REMUNUSEDMAC(UNUSEDLABS);85382
lisp procedure !&FixLinks();85750
SYMBOLIC PROCEDURE !&PEEPHOLEOPT;86534
SYMBOLIC PROCEDURE !&STOPT U;86877
SYMBOLIC PROCEDURE !&LBLOPT U;87248
SYMBOLIC PROCEDURE !&JUMPOPT U;87835
SYMBOLIC PROCEDURE !&FIXCHAINS();87956
SYMBOLIC PROCEDURE !&MOVEJUMP(LABCODE,JUMPCODE);88339
SYMBOLIC PROCEDURE !&FIXFRM(OLDSTOMAP,OLDCODE,HIGHREG);89020
SYMBOLIC PROCEDURE !&GETFRAMES(CODE,OLDCODE,RES);90795
SYMBOLIC PROCEDURE !&GETFRAMES1(MACARGS,RES);90943
SYMBOLIC PROCEDURE !&GETFRAMES2(MACARG,RES);91083
SYMBOLIC PROCEDURE !&HIGHEST(START,STOP,HIGHREG,EXITFLAG);91352
SYMBOLIC PROCEDURE !&HIGHEST1(H,ARGS);92194
SYMBOLIC PROCEDURE !&HIGHEST2(H,ARG);92325
SYMBOLIC PROCEDURE !&REFORMMACROS;92574
SYMBOLIC PROCEDURE !&FIXLABS();92793
SYMBOLIC PROCEDURE !&MACROSUBST(MAC,ALIST);93283
SYMBOLIC PROCEDURE !&MACROSUBST1(ARGS,ALIST);93375
SYMBOLIC PROCEDURE !&MACROSUBST2(ARG,ALIST);93481
SYMBOLIC PROCEDURE !&REMTAGS();93708
SYMBOLIC PROCEDURE !&REMTAGS1 MAC;93795
SYMBOLIC PROCEDURE !&REMTAGS2 U;93960
SYMBOLIC PROCEDURE !&REMTAGS3 U;94045
SYMBOLIC PROCEDURE !&REMTAGS4 U;94226
SYMBOLIC PROCEDURE !&ONEREG U;94346
SYMBOLIC PROCEDURE !&TWOREG U;94430
SYMBOLIC PROCEDURE !&THREEREG U;94524

PS:<PSL.COMP>DATA-MACHINE.RED.0
03822,RLISP
syslsp procedure Byte(WAddr, ByteOffset);1499
syslsp procedure PutByte(WAddr, ByteOffset, Val);1582
syslsp procedure Halfword(WAddr, HalfwordOffset);1673
syslsp procedure PutHalfword(WAddr, HalfwordOffset, Val);1772
syslsp procedure GetMem Addr;1851
syslsp procedure PutMem(Addr, Val);1908
syslsp procedure MkItem(TagPart, InfPart);1978
syslsp procedure Field(Cell, StartingBit, BitLength);2121
syslsp procedure SignedField(Cell, StartingBit, BitLength);2226
syslsp procedure PutField(Cell, StartingBit, BitLength, Val);2339
syslsp procedure WPlus2(R1, R2);2430
syslsp procedure WDifference(R1, R2);2492
syslsp procedure WTimes2(R1, R2);2555
syslsp procedure WQuotient(R1, R2);2616
syslsp procedure WRemainder(R1, R2);2680
syslsp procedure WMinus R1;2736
syslsp procedure WShift(R1, R2);2788
syslsp procedure WAnd(R1, R2);2843
syslsp procedure WOr(R1, R2);2895
syslsp procedure WXor(R1, R2);2947
syslsp procedure WNot R1;2995
syslsp procedure WLessP(R1, R2);3045
syslsp procedure WGreaterP(R1, R2);3105
syslsp procedure WLEQ(R1, R2);3163
syslsp procedure WGEQ(R1, R2);3216
syslsp macro procedure WGetV U;3342
syslsp macro procedure WPutV U;3488
lisp procedure DeclareTagRange(NameList, StartingValue, Increment);3712
macro procedure LowTags U;4044
macro procedure HighTags U;4110
lisp procedure MakeItemConstructor(TagPart, InfPart);4734
syslsp macro procedure MkBTR U;4807
syslsp macro procedure MkID U;4893
syslsp macro procedure MkFIXN U;4977
syslsp macro procedure MkFLTN U;5063
syslsp macro procedure MkBIGN U;5149
syslsp macro procedure MkPAIR U;5235
syslsp macro procedure MkVEC U;5320
syslsp macro procedure MkEVECT U;5407
syslsp macro procedure MkWRDS U;5494
syslsp macro procedure MkSTR U;5579
syslsp macro procedure MkBYTES U;5665
syslsp macro procedure MkHalfWords U;5757
syslsp macro procedure MkCODE U;5848
syslsp macro procedure Tag U;5997
syslsp macro procedure Inf U;6174
syslsp macro procedure PutInf U;6287
macro procedure IntInf U;6842
macro procedure MkINT U;6908
syslsp macro procedure PairPack U;6985
syslsp macro procedure GetLen U;7143
syslsp macro procedure StrBase U;7290
syslsp macro procedure StrPack U;7689
syslsp macro procedure StrByt U;7919
syslsp macro procedure PutStrByt U;8045
syslsp macro procedure HalfWordItm U;8244
syslsp macro procedure PutHalfWordItm U;8390
syslsp macro procedure HalfWordPack U;8645
syslsp macro procedure VectPack U;8871
syslsp macro procedure EVectPack U;9001
syslsp macro procedure VecItm U;9107
syslsp macro procedure PutVecItm U;9204
syslsp macro procedure EVecItm U;9353
syslsp macro procedure PutEVecItm U;9451
syslsp macro procedure WrdPack U;9674
syslsp macro procedure FixVal U;10011
syslsp macro procedure PutFixVal U;10080
syslsp macro procedure FloatBase U;10160
syslsp macro procedure FloatHighOrder U;10266
syslsp macro procedure FloatLowOrder U;10339
syslsp macro procedure !%code!-number!-of!-arguments U;10551
syslsp macro procedure SymVal U;11066
syslsp macro procedure PutSymVal U;11150
syslsp macro procedure LispVar U;11241
syslsp macro procedure PutLispVar U;11361
syslsp macro procedure SymNam U;11451
syslsp macro procedure PutSymNam U;11535
syslsp macro procedure SymPrp U;11730
syslsp macro procedure PutSymPrp U;11814
syslsp macro procedure BndStkID U;11940
syslsp macro procedure PutBndStkID U;12012
syslsp macro procedure BndStkVal U;12091
syslsp macro procedure PutBndStkVal U;12161
syslsp macro procedure AdjustBndStkPtr U;12243
syslsp smacro procedure ObArray I;12640
syslsp smacro procedure PutObArray(I, X);12714
syslsp smacro procedure OccupiedSlot U;12835
macro procedure !%chipmunk!-kludge x;13708

PS:<PSL.COMP>FASLOUT.RED.0
00606,RLISP
lisp procedure DfPrintFasl U;1465
	    LAP U >>2247
lisp procedure FaslPreEvalLoadTime U;3187
lisp procedure SaveUncompiledExpression U;4768
lisp procedure FaslOut FIL;4881
lisp procedure FaslEnd;5419
lisp procedure FaslAbort;5882
lisp procedure ComFile Filename;6184
lisp procedure CompileUncompiledExpressions();7538
lisp procedure CodeFileHeader();7767
lisp procedure FindIDNumber U;7955
lisp procedure CodeFileTrailer();8263
lisp procedure UpdateBitTable(NumberOfEntries, FirstEntry);9167
lisp procedure AllocateFaslSpaces();9632

PS:<PSL.COMP>LAP-TO-ASM.RED.0
04713,RLISP
lisp procedure DfPrintASM U;2146
lisp procedure ASMPreEvalLoadTime U;3825
lisp procedure ASMPreEvalStartupTime U;3964
lisp procedure ASMPreEvalProgN U;4092
lisp procedure ASMPreEvalSetQ U;4270
lisp procedure ASMPreEvalPutD U;5164
lisp procedure CheckForEasySharedEntryPoints U;5278
lisp procedure ASMPreEvalFluidAndGlobal U;6000
lisp procedure ASMPreEvalFluidAndGlobal U;6322
lisp procedure ASMPreEvalLAP U;6777
lisp procedure InitialPut(Nam, Ind, Val);6979
lisp procedure InitialRemprop(Nam, Ind);7216
lisp procedure InitialFlag1(Nam, Ind);7384
lisp procedure InitialRemFlag1(Nam, Ind);7585
lisp procedure ASMPreEvalPut U;7744
lisp procedure ASMPreEvalRemProp U;8167
lisp procedure ASMPreEvalDefList U;8464
lisp procedure ASMPreEvalFlag U;8839
lisp procedure ASMPreEvalRemFlag U;9197
lisp procedure ASMPreEvalGlobal U;9563
lisp procedure ASMPreEvalFluid U;9852
lisp procedure ASMPreEvalUnFluid U;10140
lisp procedure SaveUncompiledExpression U;10440
lisp procedure SaveForCompilation U;10632
SYMBOLIC PROCEDURE ASMOUT FIL;10858
lisp procedure ASMEnd;11796
lisp procedure CompileUncompiledExpressions();12292
lisp procedure AddFluidAndGlobalDecls();12499
lisp procedure ReadSymFile();12672
lisp procedure WriteSymFile();12733
lisp procedure WriteInitFile();13144
lisp procedure PrintInit X;13383
lisp procedure SaveIDList();13506
lisp procedure SetqPrint U;13696
lisp procedure PutPrint(X, Y, Z);13776
lisp procedure PutPrintEntryAndSym X;13873
lisp procedure FindIDNumber U;14714
lisp procedure InitializeSymbolTable();15082
lisp procedure InitializeSymPrp();16280
lisp procedure InitSymPrp1 X;16550
lisp procedure InitializeHeap();16776
lisp procedure InitializeSymNam MaxSymbol;17065
lisp procedure InitializeSymVal();17492
lisp procedure InitSymVal1 X;17694
lisp procedure InitializeSymFnc();17996
lisp procedure InitSymFnc1 X;18198
lisp procedure ASMOutLap U;18382
lisp procedure ASMOutLap1 X;18652
lisp procedure ASMPrintEntry X;19299
Procedure CodeDeclareExportedUse Y;19630
lisp procedure FindEntryPoint X;19806
lisp procedure ASMPseudoPrintFloat X;20091
lisp procedure ASMPseudoPrintFullWord X;20229
lisp procedure ASMPseudoPrintByte X;20372
lisp procedure ASMPseudoPrintHalfWord X;20492
lisp procedure ASMPseudoPrintString X;20622
lisp procedure PrintOperand X;20735
lisp procedure PrintRegister X;21250
lisp procedure RegisterNameP X;21554
lisp procedure ASMEntry X;21612
lisp procedure ASMInternalEntry X;21833
macro procedure ExtraReg U;22029
lisp procedure ASMSyslispVarsPrint X;22184
lisp procedure ASMPrintValueCell X;22525
fexpr procedure WDeclare U;22990
lisp procedure WDeclare1(Name, Scope, Typ, UpperBound, Initializer);23172
lisp procedure DataInit(ASMSymbol, Typ, UpperBound, Initializer);24203
lisp procedure WConstReform U;24989
lisp procedure WConstReformIdent U;25656
lisp procedure WConstReformQuote U;25768
lisp procedure WConstReformLis U;25891
lisp procedure WConstReformLoc U;25973
lisp procedure WConstReformIDLoc U;26254
lisp procedure LookupOrAddASMSymbol U;26379
lisp procedure AddASMSymbol U;26515
lisp procedure DataPrintVar(Name, Init);26710
lisp procedure DataPrintBlock(Name, Siz, Typ);26886
lisp procedure DataPrintList(Nam, Init, Typ);27138
lisp procedure DataPrintGlobalLabel X;27669
lisp procedure DataDeclareExternal X;27884
lisp procedure CodeDeclareExternal X;28098
lisp procedure DataDeclareExported X;28312
lisp procedure CodeDeclareExported X;28566
lisp procedure PrintLabel X;28811
lisp procedure DataPrintLabel X;28880
lisp procedure CodePrintLabel X;28953
lisp procedure PrintComment X;29024
lisp procedure PrintFullWord X;29321
lisp procedure DataPrintFullWord X;29463
lisp procedure CodePrintFullWord X;29609
lisp procedure DataReserveZeroBlock(Nam, X);29764
lisp procedure DataReserveBlock X;29966
lisp procedure DataReserveFunctionCellBlock X;30175
lisp procedure DataPrintUndefinedFunctionCell();30394
lisp procedure DataPrintDefinedFunctionCell X;30593
lisp procedure DataPrintByteList X;30746
lisp procedure DataPrintExpression X;30884
lisp procedure CodePrintExpression X;31024
lisp procedure PrintExpression X;31188
lisp procedure ASMPrintWConst U;32339
lisp procedure CompileConstant X;32687
lisp procedure CompileHeapData X;33013
lisp procedure DataPrintString X;33271
lisp procedure FindLabel X;33397
lisp procedure FindLocalLabel X;33630
lisp procedure FindGlobalLabel X;33836
lisp procedure CodePrintF(Fmt, A1, A2, A3, A4);33959
lisp procedure DataPrintF(Fmt, A1, A2, A3, A4);34119

PS:<PSL.COMP>SYSLISP-SYNTAX.RED.0
00457,RLISP
SYMBOLIC PROCEDURE ParseLVEC(VNAME,VEXPR);916
SYMBOLIC PROCEDURE ParseWDEC0(FN,DMODES,DLIST);1121
SYMBOLIC PROCEDURE ParseWDEC1(FN,DEC);1396
SYMBOLIC PROCEDURE ParseWDEC2(FN,X);1611
SYMBOLIC PROCEDURE ParseWDEC3(FN,X);1823
SYMBOLIC PROCEDURE REFORM U;2826
LISP PROCEDURE MKSYSFOR U;4798
LISP PROCEDURE ConstantIncrementFor U;5687
LISP PROCEDURE MKFOR1 U;6525
macro procedure For U;6667

PS:<PSL.COMP>TAGS.RED.0
00178,RLISP
lisp procedure DeclareTagRange(NameList, StartingValue, Increment);83
macro procedure LowTags U;415
macro procedure HighTags U;481

PS:<PSL.COMP>WDECLARE.RED.0
00152,RLISP
fexpr procedure WDeclare U;469
lisp procedure WDeclare1(Name, Scope, Typ, UpperBound, Initializer);651

PS:<PSL.COMP.20>DEC20-ASM.RED.0
00952,RLISP
lisp procedure CodeFileHeader();1996
lisp procedure DataFileHeader();2079
lisp procedure CodeFileTrailer();2147
lisp procedure DataFileTrailer();2251
lisp procedure CodeBlockHeader();2314
lisp procedure CodeBlockTrailer();2362
lisp procedure DataAlignFullWord();2411
lisp procedure PrintString S;2454
lisp procedure PrintByteList L;2680
lisp procedure PrintByte X;2892
lisp procedure PrintHalfWordList L;2997
lisp procedure PrintOpcode X;3212
lisp procedure SpecialActionForMainEntryPoint();3278
lisp procedure ASMSymbolP X;3351
lisp procedure Radix50SymbolP X;3442
lisp procedure PrintNumericOperand X;3937
lisp procedure OperandPrintIndirect X;4037
lisp procedure OperandPrintIndexed X;4188
macro procedure Immediate X;4389
lisp procedure ASMPseudoFieldPointer U;4481
procedure MCPrint(x);4836
procedure InstructionPrint(x);4915
procedure !*cerror x;4976

PS:<PSL.COMP.20>DEC20-COMP.RED.0
00170,RLISP
lisp procedure !*LamBind(Regs, FLst);3965
lisp procedure !*JumpOn(Register, LowerBound, UpperBound, LabelList);4399

PS:<PSL.COMP.20>DEC20-DATA-MACHINE.RED.0
00383,RLISP
syslsp macro procedure GCField U;989
syslsp macro procedure PutGCField U;1104
syslsp macro procedure SymFnc U;1288
syslsp macro procedure PutSymFnc U;1374
syslsp macro procedure MakeStackPointerFromAddress U;1525
syslsp macro procedure MakeAddressFromStackPointer U;1690
lisp procedure !*ADJSP(Arg1, Arg2);1824

PS:<PSL.COMP.20>DEC20-LAP.RED.0
01699,RLISP
smacro procedure LabelP X;776
lisp procedure Lap U;860
lisp procedure SaveEntry X;1574
lisp procedure DefineEntries();2377
lisp procedure DepositInstruction X;2518
lisp procedure DepositAllFields(Op, A, E);3134
lisp procedure OpcodeValue U;3306
lisp procedure OperandValue U;3440
lisp procedure BinaryOperand U;3957
lisp procedure RegisterOperand U;4588
lisp procedure ImmediateOperand U;4983
lisp procedure IndexedOperand U;5148
lisp procedure LapValueCell U;5362
lisp procedure LapEntry U;5566
lisp procedure LapInternalEntry U;5690
lisp procedure DepositWordBlock X;6289
lisp procedure DepositHalfWordBlock X;6451
lisp procedure DepositByteBlock X;6793
lisp procedure DepositString X;7303
lisp procedure DepositFloat X;7538
lisp procedure DepositWord X;7800
lisp procedure DepositWordExpression X;7968
lisp procedure DepositHalfWords(L, R);8588
lisp procedure LabelValue U;8962
lisp procedure DepositItem(TagPart, InfPart);9317
lisp procedure DepositHalfWordIDNumber(LHS, X);10135
lisp procedure SystemFaslFixup();10503
lisp procedure FindLabels LapCodeList!*;11199
lisp procedure OneLapLength U;11346
lisp procedure LapEntryLength U;12070
lisp procedure LapStringLength U;12212
lisp procedure LapWordLength U;12284
lisp procedure LapHalfwordLength U;12343
lisp procedure LapByteLength U;12414
syslsp procedure DepositFieldPointer(Opr, Start, Len);12515
syslsp procedure IndirectOperand U;12865
syslsp procedure MakeRelocWord(RelocTag, RelocInf);13124
syslsp procedure MakeRelocInf(RelocTag, RelocInf);13227
syslsp procedure MakeRelocHalfWord(RelocTag, RelocInf);13336

PS:<PSL.COMP.68>APOLLOCALL.RED.0
00105,RLISP
syslsp procedure SystemOpenFileForInput FileName;569

PS:<PSL.COMP.68>M68K-COMP.RED.0
00049,RLISP

PS:<PSL.COMP.68.APOLLO>APOLLO-ASM.RED.0
01299,RLISP
lisp procedure CodeFileHeader();9094
lisp procedure DataFileHeader();10580
lisp procedure DataFileTrailer();10716
lisp procedure CodeFileTrailer();10778
lisp procedure CodeBlockHeader();10840
lisp procedure CodeBlockTrailer();10889
lisp procedure DataAlignFullWord();10938
lisp procedure PrintString S;11212
procedure PrintByte!, x;11639
lisp procedure TruncateString(S,n);11770
lisp procedure PrintByteList L;11849
lisp procedure PrintByte X;11917
lisp procedure PrintHalfWordList L;12026
lisp procedure PrintHalfWord X;12102
lisp procedure ASMPseudoPrintFloat X;12213
lisp procedure PrintHalfWords X;12502
lisp procedure ASMPseudoPrintHalfWords X;12709
lisp procedure PrintOpcode Opcode;12792
lisp procedure SpecialActionForMainEntryPoint();12868
lisp procedure ASMSymbolP X;13004
lisp procedure ApolloSymbolP X;13093
lisp procedure PrintNumericOperand X;13613
lisp procedure OperandPrintIndirect X;13690
lisp procedure OperandPrintDisplacement X;13925
lisp procedure OperandPrintIndexed X;14182
lisp procedure OperandPrintImmediate X;14636
lisp procedure OperandPrintPostIncrement X;14812
lisp procedure OperandPrintPreDecrement X;15021
lisp procedure OperandPrintAbsolute X;15223

PS:<PSL.COMP.68.APOLLO>APOLLO-DATA-MACHINE.RED.0
00318,RLISP
syslsp macro procedure SymFnc U;1270
syslsp macro procedure PutSymFnc U;1506
syslsp macro procedure MakeStackPointerFromAddress U;1686
syslsp macro procedure MakeAddressFromStackPointer U;1756
syslsp macro procedure AdjustStackPointer U;1859

PS:<PSL.COMP.68.APOLLO>BOOTSTRAP-APOLLO-DATA-MACHINE.RED.0
00527,RLISP
LAP '(2162
LAP '(2321
LAP '(2498
LAP '(2636
LAP '(2759
LAP '(2888
LAP '(2980
LAP '(3077
LAP '(3167
LAP '(3285
LAP '(3401
LAP '(3512
LAP '(3622
LAP '(3729
LAP '(3843
LAP '(4038
LAP '(4237
LAP '(4423
macro procedure SymFnc U;4870
macro procedure PutSymFnc U;5096
macro procedure MakeStackPointerFromAddress U;5269
macro procedure MakeAddressFromStackPointer U;5332
macro procedure AdjustStackPointer U;5428

PS:<PSL.COMP.68.APOLLO>OLD-SYS-IO.RED.0
00528,RLISP
syslsp procedure quit();2127
syslsp procedure SysClearIo;2180
syslsp procedure ApolloString PslString;2378
syslsp procedure SysOpenRead(Channel,PslString);2950
syslsp procedure SysOpenWrite(Channel,PslString);3973
syslsp procedure SysReadRec(FileDescriptor,PslString);4945
syslsp procedure  SysWriteRec (FileDescriptor, StringToWrite, StringLength);5821
syslsp procedure SysClose (FileDescriptor);6244
syslsp procedure SysMaxBuffer(FileDescriptor);6513

PS:<PSL.COMP.68.HP>BRA-FIX.RED.0
00124,RLISP
lisp procedure !*JumpOn(Register,LowerBound, UpperBound, LabelList);857

PS:<PSL.COMP.68.HP>HP-ASM.RED.0
01706,RLISP
procedure AsmMkItem(x);3404
lisp procedure ASMPseudoPrintFloat X;7807
lisp procedure CodeFileHeader();8237
lisp procedure DataFileHeader();10309
lisp procedure DataFileTrailer();10465
lisp procedure CodeFileTrailer();10526
lisp procedure CheckForeignExtern Fn;10592
lisp procedure CodeBlockHeader();10737
lisp procedure CodeBlockTrailer();10801
lisp procedure DataAlignFullWord();10850
lisp procedure PrintString S;11070
procedure PrintByte!, x;11495
lisp procedure TruncateString(S,n);11625
lisp procedure PrintByteList L;11704
lisp procedure PrintByte X;11772
lisp procedure PrintHalfWordList L;11880
lisp procedure PrintHalfWord X;11956
lisp procedure PrintHalfWords X;12061
lisp procedure ASMPseudoPrintHalfWords X;12268
lisp procedure PrintOpcode X;12346
lisp procedure SpecialActionForMainEntryPoint();12478
lisp procedure ASMSymbolP X;12614
lisp procedure HPSymbolP X;12695
lisp procedure PrintNumericOperand X;13588
lisp procedure OperandPrintDeferred X;13652
lisp procedure OperandPrintDisplacement X;14046
lisp procedure OperandPrintIndexed X;14641
lisp procedure OperandPrintImmediate X;15208
lisp procedure OperandPrintIconst X;15375
lisp procedure OperandPrintAutoIncrement X;15544
lisp procedure OperandPrintReglist X;15746
lisp procedure OperandPrintAutoDecrement X;16023
lisp procedure OperandPrintAbsolute X;16226
lisp procedure OperandPrintForeignEntry X;16384
procedure MCPrint(x);16599
procedure InstructionPrint(x);16674
procedure !*cerror x;16725
SYMBOLIC PROCEDURE ASMOUT FIL;17405
lisp procedure !*JumpOn(Register,LowerBound, UpperBound, LabelList);19321

PS:<PSL.COMP.68.HP>HP-COMP.RED.0
00169,RLISP
lisp procedure !*LamBind(Regs, FLst);4809
lisp procedure !*JumpOn(Register,LowerBound, UpperBound, LabelList);5771

PS:<PSL.COMP.68.HP>HP-DATA-MACHINE.RED.0
00310,RLISP
syslsp macro procedure SymFnc U;1245
syslsp macro procedure PutSymFnc U;1468
syslsp macro procedure MakeStackPointerFromAddress U;1648
syslsp macro procedure MakeAddressFromStackPointer U;1718
syslsp macro procedure AdjustStackPointer U;1779

PS:<PSL.COMP.68.HP>HP-LAP.RED.0
04629,RLISP
smacro procedure LabelP X;8401
lisp procedure Lap U;10436
lisp procedure CheckForInitCode CodeList;12789
lisp procedure SaveEntry X;13220
lisp procedure DefineEntries();14454
lisp procedure DepositInstruction X;14597
macro procedure DefOpcode U;14989
lisp procedure EvDefOpcode(OpName, OpValue, OpFn, OpSize, OpLen);16190
macro procedure DefOpcodes U;16758
macro procedure DefCCOpcodes U;19055
lisp procedure EffectiveAddress Operand;22456
lisp procedure RegOperand Operand;27314
lisp procedure CompoundRegOperand Operand;27612
lisp procedure DisplacementOperand Operand;27920
lisp procedure IndexedOperand Operand;28736
lisp procedure RegisterNumber RegSymbol;30440
lisp procedure DepositExtension Exp;30837
lisp procedure DepositIndexExtensionWord Exp;31547
lisp procedure DepositImmediate Exp;32076
lisp procedure DepositFluid X;32340
lisp procedure DepositExtraReg X;32449
lisp procedure DepositEntry X;32555
lisp procedure DepositForeignEntry X;32676
Smacro Procedure OpCodeValue(Instruction);33624
lisp procedure ZeroOperandInstruction Instr;35418
lisp procedure ImmediateInstruction Instr;36279
    Mode :=36429
lisp procedure OneAddressWithSize Instr;37566
lisp procedure OneAddressNoSize Instr;37834
    Mode :=38578
lisp procedure OneAddress(Instr, Size);39730
    Mode :=39763
lisp procedure OneRegister Instr;41044
lisp procedure ConstOneRegister Instr;41294
lisp procedure OneRegisterLabel Instr;41614
lisp procedure OneRegisterAux(Instr, Reg);41777
lisp procedure QuickArithmetic Instr;42634
    Mode :=42942
lisp procedure QuickLength X;43333
lisp procedure Branch Instr;43778
lisp procedure RegisterAddress Instr;44549
lisp procedure RegisterSizeAddress Instr;45128
lisp procedure RegisterStrangeSizeAddress Instr;45412
lisp procedure RegisterOpModeAddress Instr;45860
lisp procedure DRegisterEORAddress Instr;46667
lisp procedure RegisterAddressAux(Result, Reg, Addr, OpMode);47251
lisp procedure MOVEA Instr;49046
    Mode :=49207
lisp procedure EXG Instr;49777
lisp procedure ExtendArithmetic Instr;50985
lisp procedure BCDTwoRegister Instr;51072
lisp procedure TwoRegisterAux(Instr, Size);51150
lisp procedure TwoRegisterAuxAux(Instr, Reg1, Reg2, Size, RM);51852
lisp procedure ShiftAndRotate Instr;52774
lisp procedure ShiftLength Instr;54148
lisp procedure MOVE Instr;55065
lisp procedure STOP Instr;56257
lisp procedure BitOperation Instr;56913
    Mode   :=56987
lisp procedure CMPM(Instr);58757
lisp procedure RegListP Operand;59507
lisp procedure RegBit(reg,mode);59569
lisp procedure RegisterListMask(Operand,Mode);60157
lisp procedure MOVEM Instr;60576
lisp procedure MOVEQ Instr;61923
lisp procedure MOVEP Instr;62649
lisp procedure TRAP Instr;64128
lisp procedure DepositWordBlock X;64575
lisp procedure DepositHalfWordBlock X;64704
lisp procedure DepositByteBlock X;64829
lisp procedure DepositString X;65153
lisp procedure DepositFloat X;65407
lisp procedure MakeExpressionRelative(Exp, OffsetFromHere);66005
lisp procedure MakeInternalEntryRelative(Nam, OffsetFromHere);66389
lisp procedure LabelOffset L;67139
lisp procedure ProcessInitCode CodeList;67764
lisp procedure OptimizeBranches BranchCodeList!*;68228
lisp procedure DeleteAllButLabels X;68687
lisp procedure BuildInitCodeOffsetTable CodeList;69568
lisp procedure BuildOffsetTable();70812
lisp procedure FindLongBranches();71482
lisp procedure FindDisplacement InstructionOffsetPair;71837
lisp procedure FindLabelOffset L;72129
lisp procedure FindEntryOffset L;72663
lisp procedure MakeLongBranch AList;72908
lisp procedure IncreaseAllOffsets(X, N);73322
lisp procedure InstructionLength X;73631
lisp procedure GeneralBranchInstructionP X;73999
lisp procedure StandardInstructionLength Instr;74127
lisp procedure OperandListLength(Tail, Total);74216
lisp procedure OperandLength Operand;74361
lisp procedure PosIntP X;75365
lisp procedure DisplacementLength X;75472
lisp procedure InlineConstantLength X;75606
lisp procedure ByteConstantLength X;75893
lisp procedure LapStringLength X;75984
lisp procedure DepositByte X;76892
lisp procedure DepositHalfWord X;77059
lisp procedure DepositWord X;77227
lisp procedure DepositWordExpression X;77401
lisp procedure DepositHalfWordExpression X;78091
lisp procedure DepositItem(TagPart, InfPart);78975
lisp procedure DepositHalfWordIDNumber X;80142
lisp procedure UpTheAssholeWithItAll(Y);80831
lisp procedure SystemFaslFixup();80977

PS:<PSL.COMP.68.WICAT>WICAT-ASM.RED.0
01579,RLISP
procedure asmmkitem(x);2582
lisp procedure CodeFileHeader();6783
lisp procedure DataFileHeader();8147
lisp procedure DataFileTrailer();8286
lisp procedure CodeFileTrailer();8351
lisp procedure CodeBlockHeader();8412
lisp procedure CodeBlockTrailer();8476
lisp procedure DataAlignFullWord();8525
lisp procedure ASMInternalEntry X;8759
lisp procedure PrintString S;8848
procedure PrintByte!, x;9275
lisp procedure TruncateString(S,n);9406
lisp procedure PrintByteList L;9485
lisp procedure PrintByte X;9553
lisp procedure PrintHalfWordList L;9661
lisp procedure PrintHalfWord X;9737
lisp procedure ASMPseudoPrintFloat X;9847
lisp procedure PrintHalfWords X;10136
lisp procedure ASMPseudoPrintHalfWords X;10343
lisp procedure PrintOpcode X;10421
lisp procedure SpecialActionForMainEntryPoint();10553
lisp procedure PrintLabel X;10640
lisp procedure DataPrintLabel X;10709
lisp procedure CodePrintLabel X;10782
lisp procedure ASMSymbolP X;10853
lisp procedure WicatSymbolP X;10940
lisp procedure PrintNumericOperand X;11843
lisp procedure OperandPrintIndirect X;11918
lisp procedure OperandPrintDisplacement X;12153
lisp procedure OperandPrintIndexed X;12410
lisp procedure OperandPrintImmediate X;12864
lisp procedure OperandPrintPostIncrement X;13040
lisp procedure OperandPrintPreDecrement X;13249
lisp procedure OperandPrintAbsolute X;13451
lisp procedure OperandPrintForeignEntry X;13607
lisp procedure !*JumpIF(Arg1, Arg2, Label, Instructions);13851

PS:<PSL.COMP.68.WICAT>WICAT-DATA-MACHINE.RED.0
00316,RLISP
syslsp macro procedure SymFnc U;1268
syslsp macro procedure PutSymFnc U;1504
syslsp macro procedure MakeStackPointerFromAddress U;1680
syslsp macro procedure MakeAddressFromStackPointer U;1750
syslsp macro procedure AdjustStackPointer U;1853

PS:<PSL.COMP.CRAY>CRAY-ASM.RED.0
01484,RLISP
Procedure DataPrintLabel Lab;2839
lisp procedure CodeFileHeader();7781
lisp procedure DataFileHeader();9133
lisp procedure DataFileTrailer();9289
lisp procedure CodeFileTrailer();9354
lisp procedure CheckForeignExtern Fn;9517
lisp procedure CodeBlockHeader();9662
lisp procedure CodeBlockTrailer();9726
lisp procedure DataAlignFullWord();9775
lisp procedure CodeAlignFullWord();9849
lisp procedure PrintString S;10123
procedure PrintByte8(I,x);10389
lisp procedure TruncateString(S,n);10553
lisp procedure PrintByteList L;10632
lisp procedure PrintByte X;10807
lisp procedure PrintHalfWordList L;10945
lisp procedure PrintHalfWord X;11021
lisp procedure PrintHalfWords X;11131
lisp procedure ASMPseudoPrintHalfWords X;11629
lisp procedure PrintOpcode X;11707
lisp procedure SpecialActionForMainEntryPoint();11862
lisp procedure ASMSymbolP X;12132
lisp procedure CRAYSymbolP X;12217
lisp procedure PrintNumericOperand X;13143
lisp procedure OperandPrintIndexed X;13198
lisp procedure OperandPrintImmediate X;13515
lisp procedure OperandPrintLabelGen X;13684
lisp procedure OperandPrintParcel X;13860
lisp procedure OperandPrintIconst X;14090
lisp procedure OperandPrintForeignEntry X;14239
lisp procedure OperandPrintComment X;14520
procedure MCPrint(x);14669
procedure InstructionPrint(x);14816
procedure !*cerror (x, a, b);14876
lisp procedure ASMOutLap1 X;15396

PS:<PSL.COMP.CRAY>CRAY-COMP.RED.0
00051,RLISP

PS:<PSL.COMP.CRAY>CRAY-DATA-MACHINE.RED.0
00483,RLISP
syslsp macro procedure GCField U;1441
syslsp macro procedure PutGCField U;1556
syslsp macro procedure SymFnc U;1740
syslsp macro procedure PutSymFnc U;1889
syslsp macro procedure MakeStackPointerFromAddress U;2120
syslsp macro procedure MakeAddressFromStackPointer U;2190
syslsp macro procedure AdjustStackPointer U;2293
syslsp smacro procedure ObArray I;2620
syslsp smacro procedure PutObArray(I, X);2697

PS:<PSL.COMP.CRAY>TEST-PACKAGE.RED.0
00241,RLISP
procedure CTSSmain;395
syslsp procedure CTSSmain;1123
Procedure TestFact();1230
Procedure ArithmeticTest (N);1316
syslsp procedure Fact (N);1476
syslsp procedure Ifact u;1560

PS:<PSL.COMP.VAX>VAX-ASM.RED.0
01194,RLISP
lisp procedure CodeFileHeader();2094
lisp procedure DataFileHeader();2158
lisp procedure CodeFileTrailer();2223
lisp procedure DataFileTrailer();2270
lisp procedure CodeBlockHeader();2317
lisp procedure CodeBlockTrailer();2386
lisp procedure DataAlignFullWord();2435
lisp procedure PrintString S;2499
lisp procedure PrintByteList L;2676
lisp procedure PrintByte X;2744
lisp procedure PrintHalfWordList L;2853
lisp procedure PrintHalfWord X;2929
lisp procedure PrintOpcode X;3032
lisp procedure SpecialActionForMainEntryPoint();3146
lisp procedure ASMSymbolP X;3232
lisp procedure UnixSymbolP X;3317
lisp procedure PrintNumericOperand X;3784
lisp procedure OperandPrintDeferred X;3859
lisp procedure OperandPrintDisplacement X;4120
lisp procedure OperandPrintIndexed X;4340
lisp procedure OperandPrintImmediate X;4549
lisp procedure OperandPrintAutoIncrement X;4711
lisp procedure OperandPrintAutoDecrement X;4895
lisp procedure OperandPrintAbsolute X;5074
lisp procedure OperandPrintForeignEntry X;5234
procedure MCPrint(x);5417
procedure InstructionPrint(x);5494
procedure !*cerror x;5555

PS:<PSL.COMP.VAX>VAX-COMP.RED.0
00252,RLISP
lisp procedure !*LamBind(Regs, FLst);3792
lisp procedure !*JumpOn(Register, LowerBound, UpperBound, LabelList);4234
lisp procedure !*ForeignLink(FunctionName, FunctionType, NumberOfArguments);4671

PS:<PSL.COMP.VAX>VAX-DATA-MACHINE.RED.0
00308,RLISP
syslsp macro procedure SymFnc U;787
syslsp macro procedure PutSymFnc U;1023
syslsp macro procedure MakeStackPointerFromAddress U;1199
syslsp macro procedure MakeAddressFromStackPointer U;1269
syslsp macro procedure AdjustStackPointer U;1372

PS:<PSL.COMP.VAX>VAX-LAP.RED.0
03171,RLISP
smacro procedure LabelP X;1395
lisp procedure Lap U;1479
lisp procedure SaveEntry X;2214
lisp procedure DefineEntries();2959
lisp procedure DepositInstruction X;3100
lisp procedure DepositByteBranchInstruction X;4211
lisp procedure DepositHalfWordBranchInstruction X;4367
procedure DepositByteFirstInstruction X;4703
lisp procedure DepositByteOperand X;5052
lisp procedure DepositNumericByteOperand N;5440
Procedure AshInstructionLength X;5728
lisp procedure ByteOperandLength X;5951
lisp procedure DepositOperand X;6313
lisp procedure DepositNumericOperand N;6689
lisp procedure DepositImmediate X;6868
lisp procedure DepositRegisterOperand(X, AddressingTypeMask);7230
lisp procedure DepositRegister X;7604
lisp procedure DepositAutoDecrement X;7749
lisp procedure DepositDisplacementOperand(Displacement, Register, DeferredBit);7957
lisp procedure DepositRelativeOperand(Displacement, DeferredBit);8666
lisp procedure DepositDisplacement X;9339
lisp procedure DepositDeferred X;9501
lisp procedure DepositAutoIncrement X;9926
lisp procedure DepositIndexed X;10087
lisp procedure DepositAbsolute X;10269
lisp procedure DepositFluid X;10429
lisp procedure DepositExtraReg X;10676
lisp procedure DepositEntry X;10838
lisp procedure DepositForeignEntry X;11005
lisp procedure DepositRelative X;11378
lisp procedure DepositWordBlock X;11458
lisp procedure DepositHalfWordBlock X;11620
lisp procedure DepositByteBlock X;11786
lisp procedure DepositString X;11927
lisp procedure DepositFloat X;12162
lisp procedure MakeExpressionRelative(Exp, OffsetFromHere);12424
lisp procedure MakeInternalEntryRelative(Nam, OffsetFromHere);12862
lisp procedure LabelOffset L;13452
lisp procedure OptimizeBranches BranchCodeList!*;13805
lisp procedure DeleteAllButLabels X;14162
lisp procedure BuildOffsetTable();14441
lisp procedure FindLongBranches();15102
lisp procedure FindDisplacement InstructionOffsetPair;15402
lisp procedure FindLabelOffset L;15551
lisp procedure FindEntryOffset L;15811
lisp procedure MakeLongBranch AList;15991
lisp procedure IncreaseAllOffsets(X, N);17091
lisp procedure GeneralBranchInstructionP X;17238
lisp procedure InstructionLength X;17340
lisp procedure InlineConstantLength X;17660
lisp procedure LapStringLength X;17811
lisp procedure OperandListLength X;18060
lisp procedure OperandLength X;18185
lisp procedure ImmediateLength X;18726
lisp procedure IndexedLength X;18933
lisp procedure DeferredLength X;19034
lisp procedure DisplacementLength X;19139
lisp procedure DepositByte X;19348
lisp procedure DepositHalfWord X;19518
lisp procedure DepositWord X;19693
lisp procedure DepositWordExpression X;19866
lisp procedure DepositHalfWordExpression X;20211
lisp procedure DepositItem(TagPart, InfPart);20683
lisp procedure DepositHalfWordIDNumber X;21522
lisp procedure SystemFaslFixup();21869
syslsp procedure MakeRelocWord(RelocTag, RelocInf);22852
syslsp procedure MakeRelocInf(RelocTag, RelocInf);22955
syslsp procedure MakeRelocHalfWord(RelocTag, RelocInf);23063

PS:<PSL.EMODE>EMODE-DISPHELP.RED.0
00090,RLISP
lisp procedure DisplayHelpFile F;92

PS:<PSL.EMODE>EMODE-FILES-1.RED.0
00051,RLISP

PS:<PSL.EMODE>EMODE-FILES-2.RED.0
00051,RLISP

PS:<PSL.EMODE>EMODE1.RED.0
03536,RLISP
Symbolic Procedure DBG1(x);2018
Symbolic Procedure DBG2(x);2086
Symbolic Procedure EMODE();2210
Symbolic Procedure EMODEinitialize();3929
Symbolic Procedure EMODEbreak();5000
Symbolic Procedure OldFACE();5557
Symbolic Procedure SelectEmodeChannels();5835
Symbolic Procedure OldEMODE();6349
Symbolic Procedure EMODE1(msg);7259
Symbolic Procedure EMODEdispatchLoop();7516
Symbolic Procedure FreshEMODE();7997
Symbolic Procedure EMODEerror(x);8138
Symbolic Procedure SetBufferText(i,text);9613
Symbolic Procedure GetBufferText(i);9741
Symbolic Procedure NextIndex(i);9930
Symbolic Procedure PreviousIndex(i);10009
Symbolic Procedure SetupInitialBufferStructure();10074
Symbolic Procedure SelectBuffer(BufferName);11746
Symbolic Procedure DeSelectBuffer(BufferName);13274
Symbolic Procedure CountLinesFrom(P1,P2);13704
Symbolic Procedure CountAllLines;13937
Symbolic Procedure CountLinesLeft;14074
Symbolic Procedure CountLinesBefore;14209
Symbolic Procedure InsertSelfCharacter();14526
Symbolic Procedure InsertCharacter(ch);14611
Symbolic Procedure transpose_characters();14830
Symbolic Procedure AppendLine(contents, PreviousLine);15520
Symbolic Procedure Insert_string(strng);16168
Procedure append_line(s);16960
Symbolic Procedure InsertLine(linetext);17105
Symbolic Procedure insert_kill_buffer();17453
Symbolic Procedure unkill_previous();18989
Symbolic Procedure InsertListEntry(oldlist,pos,val);19591
Symbolic Procedure DeleteCharacter();19953
Symbolic Procedure DeleteListEntry(oldlist,pos);20129
Symbolic Procedure CurrentCharacter();20369
Symbolic Procedure Head(x,n);20599
Symbolic Procedure PackLine(lst);20756
Symbolic Procedure UnpackLine(str);20866
Symbolic Procedure PutLine();21065
Symbolic Procedure GetLine(x);21231
Symbolic Procedure SelectLine(x);21387
Symbolic Procedure delete_or_copy(del_flg, line1,point1, line2, point2);21718
Symbolic Procedure DeleteTextEntry(x);25622
 Symbolic Procedure leave_dispatch_loop();26296
 Symbolic Procedure !$DeleteBuffer();26557
 Symbolic Procedure !$BeginningOfBuffer();27062
 Symbolic Procedure !$EndOfBuffer();27186
 Symbolic Procedure SetMark();27308
 Symbolic Procedure ExchangePointAndMark();27470
 Symbolic Procedure EndOfBufferP(i);28010
 Symbolic Procedure BeginningOfBufferP(i);28160
 Symbolic Procedure !$CRLF();28408
 Symbolic Procedure !$BeginningOfLine();28919
 Symbolic Procedure !$EndOfLine();29007
 Symbolic Procedure !$BackwardLine();29176
 Symbolic Procedure !$ForwardLine();29449
 Symbolic Procedure !$BackwardCharacter();29952
 Symbolic Procedure !$ForwardCharacter();30352
 Symbolic Procedure !$DeleteBackwardCharacter();30773
 Symbolic Procedure !$DeleteForwardCharacter();31051
Symbolic Procedure rotate_kill_index(N);31712
Symbolic Procedure update_kill_buffer(killed_text);32256
Symbolic Procedure kill_region();34177
Symbolic Procedure copy_region();34403
Symbolic Procedure kill_line();34702
Symbolic Procedure kill_forward_word();35141
Symbolic Procedure kill_backward_word();35434
Symbolic Procedure kill_forward_sexpr();35728
Symbolic Procedure kill_backward_sexpr();36023
Symbolic Procedure Print1Dispatch(ch1, ch2, fname);36405
Symbolic Procedure PrintAllDispatch;36838
Symbolic Procedure GetInternalName(ch,DispatchTable);37319
Symbolic Procedure character_name(ch);37847
Symbolic Procedure !$HelpDispatch();38980
Symbolic Procedure OpenLine();40012

PS:<PSL.EMODE>HP-EMODE-FILES-1.RED.0
00054,RLISP

PS:<PSL.EMODE>MENU.RED.0
00211,RLISP
Symbolic Procedure MakeMenu();99
Procedure KillMenu();955
Procedure ExitMenu();1042
procedure MenuReader();1159
Procedure NoPrint x;1235
procedure Menu;1259

PS:<PSL.EMODE>MOVE-STRINGS.RED.0
00200,RLISP
syslsp procedure MoveSubstringToFrom(DestString, SourceString,620
syslsp procedure FillSubstring(DestString, DestIndex, SubrangeLength, chr);2127

PS:<PSL.EMODE>REFRESH.RED.0
02087,RLISP
Symbolic Procedure Coords(col,rw);1324
Symbolic Procedure Column pos;1375
Symbolic Procedure Row pos;1452
Symbolic Procedure FrameScreen(scrn);1750
Symbolic Procedure FramedWindowDescriptor(BufferName, upperleft, dxdy);2639
Symbolic Procedure UnframedWindowDescriptor(BufferName, upperleft, dxdy);5185
Symbolic Procedure OneWindow();7347
Symbolic Procedure MajorWindowCount();10319
Symbolic Procedure next_window();10465
Symbolic Procedure previous_window_command();10959
Symbolic Procedure next_major_window(pntr, wlist);11525
Symbolic Procedure Buffer_VisibleP(BufferName);12026
Symbolic Procedure Setup_Windows(WindowDescriptorList);12342
Symbolic Procedure SelectWindow(WindowDescriptor);12792
Symbolic Procedure SelectWindowContext(WindowDescriptor);13017
Symbolic Procedure DeselectCurrentWindow();13756
Symbolic Procedure remove_current_view();14316
Symbolic Procedure cleanup_text_view();14661
Symbolic Procedure CntrlXCscroll();14829
Symbolic Procedure SetScreen;14991
Symbolic Procedure WriteScreenPhoto();15287
Symbolic Procedure Refresh();15656
Symbolic Procedure optional_refresh();16337
Symbolic Procedure refresh_unframed_window();16512
Symbolic Procedure refresh_unframed_label();16815
Symbolic Procedure refresh_framed_window();17764
Symbolic Procedure refresh_frame_label();18037
Symbolic Procedure refresh_text();21841
Symbolic Procedure Nils(n);22673
Symbolic Procedure Nlist(n,element);22775
Symbolic Procedure Zeroes(n);22899
Symbolic Procedure ClearToEndOfWindow(x);22961
Symbolic Procedure ClearEol(x);23470
Symbolic Procedure DisplaySpaces(pos, N);23651
Symbolic Procedure RefreshLine(lineindex,image_linenumber);24299
Symbolic Procedure DisplayCharacter(pos,chr);27399
Symbolic Procedure nxt_item(strm);28010
Symbolic Procedure create_stream(gvec);28801
Symbolic Procedure MatchLength(l1,l2);28921
Symbolic Procedure LineColumn(N,line);29298
Symbolic Procedure FullRefresh();29978
Symbolic Procedure AdjustTopOfDisplayIndex();30251

PS:<PSL.EMODE>RFACE.RED.0
00835,RLISP
Symbolic Procedure OpenBufferChannel(Inbuffer, Outbuffer, Outwindow);2421
Symbolic Procedure CloseBufferChannel(chn);3012
Symbolic Procedure BufferPrintChar(Chn,ch);3533
Symbolic Procedure EnsureOutputVisible(outbuffername,oldbuffername);5600
Symbolic Procedure BufferReadChar(Chn);6268
Symbolic Procedure TwoRFACEWindows();8076
Symbolic Procedure insert_last_expression();12644
Symbolic Procedure ReturnFromEmodeEdit();13322
Symbolic Procedure quit();14814
Symbolic Procedure EmodeChannelEdit(chn, PromptStr);15255
Symbolic Procedure PromptAndEdit(PromptStr);16210
Symbolic Procedure PromptAndEditOnChannel(chn, PromptStr);16373
Symbolic Procedure MakeInputAvailable();16696
Symbolic Procedure SelectOldChannels();16964
Symbolic Procedure InsertComment();17888

PS:<PSL.EMODE>SEARCH.RED.0
00753,RLISP
Symbolic Procedure forward_string_search();880
Symbolic Procedure reverse_string_search();1372
Symbolic Procedure buffer_search(strng,dir);1855
Symbolic Procedure subscript(pattern,strng,start,dir);3517
Symbolic Procedure RaiseChar(ch);4027
Symbolic Procedure is_substring(substrng,strng,start);4291
Symbolic Procedure adjust_depth(ch);4736
Symbolic Procedure skip_forward_blanks();4967
Symbolic Procedure skip_backward_blanks();5371
Symbolic Procedure forward_word();5973
Symbolic Procedure backward_word();6657
Symbolic Procedure LetterP(ch);7529
Symbolic Procedure forward_sexpr();7674
Symbolic Procedure backward_sexpr();8860
Symbolic Procedure insert_matching_paren();10123

PS:<PSL.EMODE>SETWINDOW.RED.0
00224,RLISP
 Procedure OneWindow();23
Symbolic Procedure TwoWindows();2472
procedure ResetEmode(rows,cols,f);5853
procedure resetrows(r);6287
procedure SetEmode(rows,cols,f);6359

PS:<PSL.EMODE>TEL-ANN-DRIVER.RED.0
01783,RLISP
Procedure TEL!.OutChar x;370
Procedure TEL!.OutCharString S;417
Procedure TEL!.NormX X;503
Procedure TEL!.NormY Y;544
Procedure  TEL!.ChPrt(X,Y,Ch);594
Procedure  TEL!.IdPrt(X,Y,Id);782
Procedure  TEL!.StrPrt   (X,Y,S);851
Procedure  TEL!.HOME   ();1041
Procedure TEL!.EraseS   ();1138
Procedure  TEL!.DDA   (X1,Y1,X2,Y2,dotter);1261
Procedure Tel!.MoveS   (X1,Y1);2011
Procedure Tel!.DrawS   (X1,Y1);2086
Procedure  Idl2chl   (X);2207
Procedure  Texter   (X1,Y1,X2,Y2,Txt);2432
Procedure  Tdotc   (X1,Y1);2594
Procedure  TEL!.dotc   (X1,Y1);2892
Procedure  TEL!.ChClip   (X1,Y1,Id);2984
Procedure Tel!.VwPort(X1,X2,Y1,Y2);3208
Procedure  Tel!.Wfill   (X1,X2,Y1,Y2,Id);3378
Procedure  TEL!.Wzap   (X1,X2,Y1,Y2);3528
Procedure TEL!.Delay;3588
Procedure TEL!.GRAPHON();3624
Procedure TEL!.GRAPHOFF();3686
Procedure TEL!.INIT  ();3745
Procedure ANN!.OutChar x;4430
Procedure ANN!.OutCharString S;4477
Procedure ANN!.NormX X;4563
Procedure ANN!.NormY Y;4632
Procedure ANN!.XY(X,Y);4723
Procedure  ANN!.ChPrt(X,Y,Ch);5298
Procedure  ANN!.IdPrt(X,Y,Id);5377
Procedure  ANN!.StrPrt(X,Y,S);5443
Procedure ANN!.EraseS();5522
Procedure  ANN!.DDA(X1,Y1,X2,Y2,dotter);5719
Procedure ANN!.MoveS(X1,Y1);6465
Procedure ANN!.DrawS(X1,Y1);6537
Procedure  Idl2chl(X);6654
Procedure  Texter(X1,Y1,X2,Y2,Txt);6872
Procedure  ANN!.Tdotc(X1,Y1);7037
Procedure  ANN!.dotc(X1,Y1);7321
Procedure  ANN!.ChClip(X1,Y1,Id);7414
Procedure ANN!.VwPort(X1,X2,Y1,Y2);7628
Procedure  ANN!.Wfill(X1,X2,Y1,Y2,Id);7791
Procedure  ANN!.Wzap(X1,X2,Y1,Y2);7937
Procedure ANN!.Delay;7996
Procedure ANN!.GRAPHON();8032
Procedure ANN!.GRAPHOFF();8095
Procedure ANN!.INIT();8153

PS:<PSL.EMODE>TEMPORARY-EMODE-FIXES.RED.0
00191,RLISP
Symbolic Procedure counting_cons(x,y);529
Symbolic Procedure start_cons_count();739
Symbolic Procedure stop_cons_count();1095

PS:<PSL.EMODE>VS-DEMO.RED.0
00045,RLISP

PS:<PSL.EMODE>VS-SUPPORT.RED.0
00113,RLISP
syslsp procedure RewriteChangedCharacters(oldline, newline,381

PS:<PSL.EMODE>WIN-DEMO.RED.0
00194,RLISP
procedure BufferNames;22
procedure FindWindowName N;99
procedure FindWindowField(F,N);177
procedure SelectName N;363
procedure Break;1545

PS:<PSL.GLISP>RAWIO.RED.0
00732,RLISP
lisp procedure BITS1 U;761
macro procedure BITS U;883
lap '((!*entry PBIN expr 0)1126
lap '((!*entry PBOUT expr 1)1325
lap '((!*entry CharsInInputBuffer expr 0)1505
lap '((!*entry RFMOD expr 1)1951
lap '((!*entry RFCOC expr 1)2151
lap '((!*entry RTIW expr 1)2654
lisp procedure SaveInitialTerminalModes();2953
lap '((!*entry SFMOD expr 2)3186
lap '((!*entry STPAR expr 2)3454
lap '((!*entry SFCOC expr 3)3721
lap '((!*entry STIW expr 2)4112
lisp procedure EchoOff();4377
lisp procedure EchoOn();5417
Symbolic Procedure FlushStdOutputBuffer();6151
Symbolic Procedure PBIN();6440
Symbolic Procedure PBOUT(chr);6608
Symbolic Procedure rawio_break();6806

PS:<PSL.KERNEL>ALLOCATORS.RED.0
00742,RLISP
syslsp procedure Known!-Free!-Space;1499
syslsp procedure GtHEAP N;1589
syslsp procedure GtHeap1(N, LastTryP);1725
syslsp procedure GC!-Trap!-Level;2353
syslsp procedure Set!-GC!-Trap!-Level N;2461
syslsp procedure DelHeap(LowPointer, HighPointer);2679
syslsp procedure GtSTR N;2769
syslsp procedure GtConstSTR N;3015
syslsp procedure GtHalfWords N;3295
syslsp procedure GtVECT N;3482
syslsp procedure GtWRDS N;3695
syslsp procedure GtFIXN();3867
syslsp procedure GtFLTN();4029
syslsp procedure GtID();4246
syslsp procedure GtBPS N;4698
syslsp procedure DelBPS(Bottom, Top);5072
syslsp procedure GtWArray N;5174
syslsp procedure DelWArray(Bottom, Top);5535

PS:<PSL.KERNEL>ARITHMETIC.RED.0
02754,RLISP
syslsp macro procedure IsInum U;1040
syslsp procedure TwoArgDispatch(FirstArg, SecondArg);1352
lap '((!*entry TwoArgDispatch1 expr 4)1466
syslsp procedure TwoArgError(FirstArg, SecondArg, DispatchTable);4145
syslsp procedure NonInteger2Error(FirstArg, SecondArg, DispatchTable);4375
syslsp procedure NonInteger1Error(Arg, DispatchTable);4589
syslsp procedure OneArgDispatch FirstArg;4768
lap '((!*entry OneArgDispatch1 expr 2)4856
syslsp procedure OneArgError(FirstArg, Dummy, DispatchTable);5592
syslsp procedure OneArgPredicateDispatch FirstArg;5785
lap '((!*entry OneArgPredicateDispatch1 expr 2)5891
syslsp procedure MakeFixnum N;6616
syslsp procedure BigFloatFix N;6736
syslsp procedure ReturnNIL();6813
syslsp procedure ReturnFirstArg Arg;6863
syslsp procedure StaticIntFloat Arg;7031
macro procedure DefArith2Entry U;7168
macro procedure DefArith1Entry U;7270
macro procedure DefArith1PredicateEntry U;7381
lisp procedure StupidParserFix X;7492
lisp procedure RemQuote X;7685
lisp procedure DefArithEntry L;7765
syslsp procedure IntPlus2(FirstArg, SecondArg);8332
syslsp procedure FloatPlus2(FirstArg, SecondArg);8490
syslsp procedure IntDifference(FirstArg, SecondArg);8781
syslsp procedure FloatDifference(FirstArg, SecondArg);8949
syslsp procedure IntTimes2(FirstArg, SecondArg);9255
syslsp procedure FloatTimes2(FirstArg, SecondArg);9451
syslsp procedure IntQuotient(FirstArg, SecondArg);9738
syslsp procedure FloatQuotient(FirstArg, SecondArg);10072
syslsp procedure IntRemainder(FirstArg, SecondArg);10505
syslsp procedure FloatRemainder(FirstArg, SecondArg);10843
syslsp procedure IntLAnd(FirstArg, SecondArg);11325
syslsp procedure IntLOr(FirstArg, SecondArg);11533
syslsp procedure IntLXOr(FirstArg, SecondArg);11744
syslsp procedure IntLShift(FirstArg, SecondArg);12004
syslsp procedure IntGreaterP(FirstArg, SecondArg);12270
syslsp procedure FloatGreaterP(FirstArg, SecondArg);12363
syslsp procedure IntLessP(FirstArg, SecondArg);12555
syslsp procedure FloatLessP(FirstArg, SecondArg);12642
syslsp procedure IntAdd1 FirstArg;12817
lisp procedure FloatAdd1 FirstArg;12952
lisp procedure IntSub1 FirstArg;13074
lisp procedure FloatSub1 FirstArg;13214
lisp procedure IntLNot X;13341
lisp procedure IntMinus FirstArg;13491
lisp procedure FloatMinus FirstArg;13623
syslsp procedure FloatFix Arg;13760
syslsp procedure FloatIntArg Arg;13974
syslsp procedure IntMinusP FirstArg;14185
lisp procedure FloatMinusP FirstArg;14251
lisp procedure IntZeroP FirstArg;14388
lisp procedure FloatZeroP FirstArg;14446
lisp procedure IntOneP FirstArg;14572
lisp procedure FloatOneP FirstArg;14629

PS:<PSL.KERNEL>AUTOLOAD.RED.0
00119,RLISP
macro procedure DefAutoload U;562
lisp procedure MakeArgList N;1539

PS:<PSL.KERNEL>AUTOLOAD-TRACE.RED.0
00119,RLISP
lisp macro procedure TR U;402
lisp macro procedure TRST U;479

PS:<PSL.KERNEL>BACKTRACE.RED.0
00280,RLISP
syslsp procedure InterpBacktrace();569
syslsp procedure Backtrace();782
syslsp procedure BacktraceRange(Starting, Ending, InterpFlag);997
syslsp procedure VerboseBacktrace();1312
lisp procedure Backtrace1(Item, Code);1963

PS:<PSL.KERNEL>BINDING.RED.0
00384,RLISP
syslsp procedure BStackOverflow();959
syslsp procedure BStackUnderflow();1162
syslsp procedure CaptureEnvironment();1369
syslsp procedure RestoreEnvironment Ptr;1462
syslsp procedure ClearBindings();1724
syslsp procedure UnBindN N;1864
syslsp procedure LBind1(IDName, ValueToBind);2015
syslsp procedure PBind1 IDName;2498

PS:<PSL.KERNEL>BREAK.RED.0
00318,RLISP
lisp procedure Break();893
lisp procedure BreakEval U;1807
lisp procedure BreakQuit();1989
lisp procedure BreakContinue();2079
lisp procedure BreakRetry();2175
lisp procedure HelpBreak();2410
lisp procedure BreakErrMsg();2496
lisp procedure BreakEdit();2576

PS:<PSL.KERNEL>CARCDR.RED.0
00959,RLISP
lisp procedure CAAAAR U;804
lisp procedure CAAADR U;929
lisp procedure CAADAR U;1054
lisp procedure CAADDR U;1179
lisp procedure CADAAR U;1304
lisp procedure CADADR U;1429
lisp procedure CADDAR U;1554
lisp procedure CADDDR U;1679
lisp procedure CDAAAR U;1804
lisp procedure CDAADR U;1929
lisp procedure CDADAR U;2054
lisp procedure CDADDR U;2179
lisp procedure CDDAAR U;2304
lisp procedure CDDADR U;2429
lisp procedure CDDDAR U;2554
lisp procedure CDDDDR U;2679
lisp procedure CAAAR U;2805
lisp procedure CAADR U;2928
lisp procedure CADAR U;3051
lisp procedure CADDR U;3174
lisp procedure CDAAR U;3297
lisp procedure CDADR U;3420
lisp procedure CDDAR U;3543
lisp procedure CDDDR U;3666
lisp procedure SafeCAR U;3793
lisp procedure SafeCDR U;3906
lisp procedure CAAR U;4018
lisp procedure CADR U;4142
lisp procedure CDAR U;4266
lisp procedure CDDR U;4390

PS:<PSL.KERNEL>CATCH-THROW.RED.0
00969,RLISP
macro procedure catch!-all u;1200
macro procedure unwind!-all u;1488
macro procedure unwind!-protect u;1730
fexpr procedure Catch U;2203
macro procedure !*Catch U;2356
expr procedure !*Throw(x,y);2409
smacro procedure CatchPop();2670
smacro procedure CatchStackDecrement X;2755
smacro procedure CatchPush(Tag, PC, SP, Env);2990
smacro procedure CatchTopTag();3518
smacro procedure CatchTagAt X;3575
smacro procedure CatchTopPC();3620
smacro procedure CatchTopSP();3677
smacro procedure CatchTopEnv();3735
lap '((!*entry CatchSetup expr 1)	%. CatchSetup(Tag)4002
syslsp procedure CatchSetupAux(Tag, PC, SP);4171
syslsp procedure !%UnCatch Previous;4381
syslsp procedure !%clear!-catch!-stack();4496
syslsp procedure !%Throw(Tag, Value);4575
lap '((!*entry ThrowAux expr 3)5051
syslsp procedure Throw(Tag, Value);5198
syslsp procedure FindCatchMarkAndThrow(Tag, Value, P);5460

PS:<PSL.KERNEL>CHAR-IO.RED.0
00312,RLISP
syslsp procedure ChannelReadChar FileDes;903
syslsp procedure ReadChar();1435
syslsp procedure ChannelWriteChar(FileDes, Ch);1561
syslsp procedure WriteChar Ch;2353
syslsp procedure ChannelUnReadChar(Channel, Ch);2487
syslsp procedure UnReadChar Ch;2886

PS:<PSL.KERNEL>COMP-SUPPORT.RED.0
00263,RLISP
lisp procedure NCons U;455
lisp procedure XCons(U, V);542
lisp procedure List5(U, V, W, X, Y);658
lisp procedure List4(U, V, W, X);751
lisp procedure List3(U, V, W);838
lisp procedure List2(U, V);920

PS:<PSL.KERNEL>COMPACTING-GC.RED.0
01745,RLISP
syslsp smacro procedure PointerTagP X;2252
syslsp smacro procedure WithinHeapPointer X;2330
syslsp smacro procedure Mark X;2516
syslsp smacro procedure SetMark X;2611
syslsp smacro procedure ClearMark X;2722
syslsp smacro procedure Marked X;2850
syslsp smacro procedure MarkID X;2951
syslsp smacro procedure MarkedID X;3053
syslsp smacro procedure ClearIDMark X;3125
syslsp smacro procedure SkipLength X;3254
syslsp smacro procedure PutSkipLength(X, L);3339
syslsp smacro procedure SegmentNumber X;3729
syslsp smacro procedure OffsetInSegment X;3854
syslsp smacro procedure MovementWithinSegment X;3979
syslsp smacro procedure PutMovementWithinSegment(X, M);4077
syslsp smacro procedure ClearMovementWithinSegment X;4176
syslsp smacro procedure SegmentMovement X;4363
syslsp smacro procedure PutSegmentMovement(X, M);4449
syslsp smacro procedure Reloc X;4588
syslsp procedure Reclaim();5355
syslsp procedure !%Reclaim();5454
syslsp procedure MarkFromAllBases();6275
syslsp procedure MarkFromSymbols();6520
syslsp procedure MarkFromOneSymbol X;6839
syslsp procedure MarkFromRange(Low, High);7130
syslsp procedure MarkFromBase Base;7229
syslsp procedure CheckAndSetMark P;7880
syslsp procedure MarkFromVector Info;8275
syslsp procedure MakeIDFreeList();8513
syslsp procedure BuildRelocationFields();9094
syslsp procedure UpdateAllBases();11148
syslsp procedure UpdateSymbols();11401
syslsp procedure UpdateRegion(Low, High);11662
syslsp procedure UpdateHeap();11753
syslsp procedure UpdateItem Ptr;13083
syslsp procedure CompactHeap();13313
syslsp procedure GCError(Message, P);14349
syslsp procedure GCMessage();14503

PS:<PSL.KERNEL>CONS-MKVECT.RED.0
00479,RLISP
syslsp procedure HardCons(U, V);1000
syslsp procedure Cons(U, V);1235
syslsp procedure XCons(U, V);1533
syslsp procedure NCons U;1806
syslsp procedure MkVect N;2077
syslsp procedure MkEVECTOR(N,ETAG);2476
syslsp procedure MkString(L, C);2986
syslsp procedure Make!-Bytes(L, C);3330
syslsp procedure Make!-HalfWords(L, C);3694
syslsp procedure Make!-Words(L, C);4074
syslsp procedure Make!-Vector(L, C);4430

PS:<PSL.KERNEL>CONT-ERROR.RED.0
00083,RLISP
macro procedure ContError U;629

PS:<PSL.KERNEL>COPIERS.RED.0
00392,RLISP
syslsp procedure CopyStringToFrom(New, Old);486
syslsp procedure CopyString S;848
syslsp procedure CopyWArray(New, Old, UpLim);1042
syslsp procedure CopyVectorToFrom(New, Old);1185
syslsp procedure CopyVector S;1520
syslsp procedure CopyWRDSToFrom(New, Old);1715
syslsp procedure CopyWRDS S;2043
syslsp procedure TotalCopy S;2398

PS:<PSL.KERNEL>COPYING-GC.RED.0
00741,RLISP
syslsp smacro procedure PointerTagP X;1058
syslsp smacro procedure WithinOldHeapPointer X;1139
syslsp smacro procedure Mark X;1264
syslsp smacro procedure Marked X;1326
syslsp smacro procedure MarkID X;1386
syslsp smacro procedure MarkedID X;1488
syslsp smacro procedure ClearIDMark X;1560
syslsp procedure Reclaim();2089
syslsp procedure !%Reclaim();2140
syslsp procedure MarkAndCopyFromID X;3244
syslsp procedure CopyFromAllBases();3528
syslsp procedure CopyFromRange(Lo, Hi);4096
syslsp procedure CopyFromBase P;4264
syslsp procedure CopyItem X;4320
syslsp procedure CopyItem1 S;4779
syslsp procedure MakeIDFreeList();5797
syslsp procedure GCStats();6364

PS:<PSL.KERNEL>DEFCONST.RED.0
00171,RLISP
macro procedure DefConst Form;390
lisp procedure EvDefConst(ConstName, ConstValue);772
macro procedure Const Form;844

PS:<PSL.KERNEL>DEFINE-SMACRO.RED.0
00232,RLISP
lisp procedure InstantiateInForm(Formals, Form);627
lisp procedure SetMacroReference U;816
macro procedure DS Form;879
lisp procedure MakeDS(MacroName, Formals, Form);1573

PS:<PSL.KERNEL>DSKIN.RED.0
00182,RLISP
expr procedure DskIN F;809
lisp procedure DskInEval U;1565
lisp procedure DskInDefnPrint U;1655
SYMBOLIC PROCEDURE LAPIN FIL;2132

PS:<PSL.KERNEL>EASY-NON-SL.RED.0
02049,RLISP
expr procedure NEQ(U, V);1200
expr procedure NE(U, V);1288
expr procedure GEQ(U, V);1346
expr procedure LEQ(U, V);1421
lisp procedure EqCar(U, V);1495
lisp procedure ExprP U;1566
lisp procedure MacroP U;1672
lisp procedure FexprP U;1746
lisp procedure NexprP U;1821
lisp procedure CopyD(New, Old);1928
lisp procedure Recip N;2484
lisp procedure MkQuote U;2590
macro procedure First U;2709
macro procedure Second U;2785
macro procedure Third U;2862
macro procedure Fourth U;2940
macro procedure Rest U;3018
lisp procedure ReversIP U;3149
lisp procedure SubstIP1(A, X, L);3346
lisp procedure SubstIP(A, X, L);3553
lisp procedure DeletIP1(U, V);3747
lisp procedure DeletIP(U, V);3905
lisp procedure DelQ(U, V);4062
lisp procedure Del(F, U, V);4215
lisp procedure DelqIP1(U, V);4408
lisp procedure DelqIP(U, V);4564
lisp procedure Atsoc(U, V);4720
lisp procedure Ass(F, U, V);4884
lisp procedure Mem(F, U, V);5125
lisp procedure RAssoc(U, V);5307
lisp procedure DelAsc(U, V);5491
lisp procedure DelAscIP1(U, V);5676
lisp procedure DelAscIP(U, V);5861
lisp procedure DelAtQ(U, V);6040
lisp procedure DelAtQIP1(U, V);6202
lisp procedure DelAtQIP(U, V);6388
lisp procedure SublA(U,V);6566
lisp procedure RplacW(A, B);6823
lisp procedure LastCar X;7040
lisp procedure LastPair X;7138
lisp procedure Copy U;7243
lisp procedure NTH(U, N);7423
lisp procedure DoPNTH(U, N);7564
lisp procedure PNTH(U, N);7662
lisp procedure AConc(U, V);7836
lisp procedure TConc(Ptr, Elem);7943
lisp procedure LConc(Ptr, Lst);8463
lisp procedure Map2(L, M, Fn);9037
lisp procedure MapC2(L, M, Fn);9302
lisp procedure ChannelPrin2T(C, U);9604
lisp procedure Prin2T U;9711
lisp procedure ChannelSpaces(C, N);9801
lisp procedure Spaces N;9914
lisp procedure ChannelTAB(Chn, N);10001
lisp procedure TAB N;10190
lap '((!*entry FileP expr 1)10294
lisp procedure FileP F;10609
lisp procedure PutC(Name, Ind, Exp);11016

PS:<PSL.KERNEL>EASY-SL.RED.0
01857,RLISP
lisp procedure Atom U;1324
lisp procedure ConstantP U;1395
lisp procedure Null U;1487
lisp procedure NumberP U;1549
lisp procedure Expt(X, N);1635
fexpr procedure List U;2167
macro procedure DE U;2281
macro procedure DF U;2439
macro procedure DM U;2599
macro procedure DN U;2759
fexpr procedure SetQ U;2966
lisp procedure Prog2(U, V);3310
fexpr procedure ProgN U;3373
lisp procedure EvProgN U;3500
fexpr procedure And U;3742
lisp procedure EvAnd U;3820
lisp procedure EvAnd1 U;3916
fexpr procedure OR U;4074
lisp procedure EvOr U;4154
fexpr procedure Cond U;4251
lisp procedure EvCond U;4332
lisp procedure Not U;4897
lisp procedure Abs U;5003
lisp procedure Divide(U, V);5098
macro procedure Max U;5296
lisp procedure Max2(U, V);5435
macro procedure Min U;5517
lisp procedure Min2(U, V);5656
macro procedure Plus U;5739
macro procedure Times U;5839
lisp procedure Map(L, Fn);5994
lisp procedure MapC(L, Fn);6122
lisp procedure MapCan(L, Fn);6256
lisp procedure MapCon(L, Fn);6409
lisp procedure MapCar(L, Fn);6558
lisp procedure MapList(L, Fn);6709
lisp procedure Append(U, V);6898
lisp procedure Assoc(U, V);7466
lisp procedure Sassoc(U, V, Fn);7649
lisp procedure Pair(U, V);7842
lisp procedure SubLis(X, Y);8080
lisp procedure DefList(DList, Indicator);8348
lisp procedure Delete(U, V);8549
lisp procedure Member(U, V);8785
lisp procedure MemQ(U, V);8916
lisp procedure NConc(U, V);9055
lisp procedure Reverse U;9261
lisp procedure Subst(A, X, L);9427
lisp procedure EvLis U;9620
lisp procedure RobustExpand(L, Fn, EmptyCase);9771
lisp procedure Expand(L, Fn);9885
fexpr procedure Quote U;10062
fexpr procedure Function U;10209
lisp procedure ChannelPrint(C, U);10333
lisp procedure Print U;10450

PS:<PSL.KERNEL>EQUAL.RED.0
00323,RLISP
syslsp procedure Eqn(U, V);556
syslsp procedure LispEqual(U, V);1038
syslsp procedure EqStr(U, V);1696
syslsp procedure StringEqual(U, V);1823
syslsp procedure WordsEqual(U, V);2167
syslsp procedure HalfWordsEqual(U, V);2480
syslsp procedure VectorEqual(U, V);2820

PS:<PSL.KERNEL>ERROR-ERRORSET.RED.0
00196,RLISP
lisp procedure Error(Number, Message);1430
macro procedure errset u;1844
lisp procedure ErrorSet(Form, !*EMsgP, !*Inner!*BackTrace);2080

PS:<PSL.KERNEL>ERROR-HANDLERS.RED.0
00283,RLISP
syslsp procedure FatalError S;1154
lisp procedure RangeError(Object, Index, Fn);1291
lisp procedure StdError Message;1406
SYMBOLIC PROCEDURE YESP U;1485
lisp procedure ContinuableError(ErrNum, Message, ErrorForm!*);2302

PS:<PSL.KERNEL>EVAL-APPLY.RED.0
00212,RLISP
syslsp procedure LambdaEvalApply(Fn, Args);1423
syslsp procedure LambdaApply(Fn, Args);1937
lisp procedure Apply(Fn, Args);2831
lisp procedure Eval U;3538

PS:<PSL.KERNEL>EVAL-WHEN.RED.0
00188,RLISP
macro procedure CommentOutCode U;603
lisp procedure CompileTime U;681
lisp procedure BothTimes U;993
lisp procedure LoadTime U;1099

PS:<PSL.KERNEL>EXPLODE-COMPRESS.RED.0
00525,RLISP
syslsp procedure ExplodeWriteChar(Channel, Ch);765
syslsp procedure Explode U;924
syslsp procedure Explode2 U;1143
syslsp procedure FlatSizeWriteChar(Channel, Ch);1424
syslsp procedure FlatSize U;1509
lisp procedure FlatSize2 U;1696
syslsp procedure CompressReadChar Channel;1921
syslsp procedure ClearCompressChannel();2281
lisp procedure CompressError();2396
lisp procedure Compress CompressList!*;2495
lisp procedure Implode CompressList!*;2677

PS:<PSL.KERNEL>FASL-INCLUDE.RED.0
00287,RLISP
smacro procedure RelocRightHalfTag X;510
smacro procedure RelocRightHalfInf X;584
smacro procedure RelocInfTag X;668
smacro procedure RelocInfInf X;737
smacro procedure RelocWordTag X;822
smacro procedure RelocWordInf X;879

PS:<PSL.KERNEL>FASLIN.RED.0
00297,RLISP
smacro procedure LocalIDNumberP U;358
smacro procedure LocalToGlobalID U;413
smacro procedure ExtraArgumentP U;475
smacro procedure MakeExtraArgument U;569
syslsp procedure FaslIN File;671
syslsp procedure PutEntry(Name, Type, Offset);4536

PS:<PSL.KERNEL>FAST-BINDER.RED.0
00117,RLISP
syslsp procedure LamBind V;465
syslsp procedure ProgBind V;668

PS:<PSL.KERNEL>FLUID-GLOBAL.RED.0
00422,RLISP
lisp procedure DeclareFluidOrGlobal(IDList, FG);888
lisp procedure DeclareFluidOrGlobal1(U, FG);995
lisp procedure Fluid IDList;1308
lisp procedure Fluid1 U;1419
lisp procedure FluidP U;1506
lisp procedure Global IDList;1598
lisp procedure Global1 U;1712
lisp procedure GlobalP U;1802
lisp procedure UnFluid IDList;1896
lisp procedure UnFluid1 U;2004

PS:<PSL.KERNEL>IO-ERRORS.RED.0
00336,RLISP
syslsp procedure ChannelNotOpen(Chn, Ch);334
syslsp procedure WriteOnlyChannel Chn;420
syslsp procedure ReadOnlyChannel(Chn, Ch);521
syslsp procedure IllegalStandardChannelClose Chn;628
syslsp procedure IOError(Message);727
syslsp procedure ChannelError(Channel, Message);827

PS:<PSL.KERNEL>IO-EXTENSIONS.RED.0
00188,RLISP
syslsp procedure ChannelTYI Chn;328
syslsp procedure ChannelTYO(Chn, Ch);430
lisp procedure TYI();568
lisp procedure TYO Ch;655

PS:<PSL.KERNEL>KNOWN-TO-COMP-SL.RED.0
00417,RLISP
lisp procedure CodeP U;574
lisp procedure Eq(U, V);642
lisp procedure FloatP U;710
lisp procedure BigP U;785
lisp procedure IDP U;843
lisp procedure PairP U;899
lisp procedure StringP U;960
lisp procedure VectorP U;1024
lisp procedure Car U;1175
lisp procedure Cdr U;1310
lisp procedure RplacA(U, V);1453
lisp procedure RplacD(U, V);1574

PS:<PSL.KERNEL>LISP-MACROS.RED.0
00214,RLISP
SYMBOLIC FEXPR PROCEDURE CASE U;633
SYMBOLIC PROCEDURE InThisCase(CaseExpr,Cases);1167
macro procedure SetF U;1421
lisp procedure ExpandSetF(LHS, RHS);1525

PS:<PSL.KERNEL>LOAD.RED.0
00231,RLISP
macro procedure Load U;2609
lisp procedure EvLoad U;2672
macro procedure ReLoad U;2734
lisp procedure EvReLoad U;2801
lisp procedure Load1 U;2905
lisp procedure Imports L;3903

PS:<PSL.KERNEL>LOOP-MACROS.RED.0
00234,RLISP
macro procedure ForEach U;432
macro procedure Exit U;1608
macro procedure Next U;1807
macro procedure While U;1926
macro procedure Repeat U;2182
MACRO PROCEDURE FOR U;2490

PS:<PSL.KERNEL>MINI-EDITOR.RED.0
00417,RLISP
lisp procedure EDITF(FN);843
lisp procedure EDIT S;1350
lisp procedure EDIT0(S,READER,PRINTER);1689
lisp procedure QEDNTH(N,L);3324
lisp procedure EDCOPY(L,N);3422
lisp procedure RPLACEALL(A,NEW,S);3547
lisp procedure FINDFIRST(A,S,TRC);3724
lisp procedure XCHANGE(S,CTL,NEW,N);3978
lisp procedure XINS(S,CTL,NEW,N);4188
lisp procedure EHELP;4375

PS:<PSL.KERNEL>MINI-TRACE.RED.0
00564,RLISP
lisp procedure Tr!.Prc(PN, B, A);789
lisp procedure Tr!.1 Nam;1440
lisp procedure UnTr!.1 Nam;2303
macro procedure TR L;2634
expr procedure EvTR L;2719
macro procedure UnTr L;2779
expr procedure EvUnTr L;2869
lisp procedure TrMakeArgList N;2939
lisp procedure TrClr();3021
lisp procedure Br!.Prc(PN, B, A);3856
lisp procedure Br!.1 Nam;4761
lisp procedure UnBr!.1 Nam;5612
macro procedure Br L;5942
expr procedure EvBr L;6027
macro procedure UnBr L;6087
expr procedure EvUnBr L;6178

PS:<PSL.KERNEL>NONREC-GC.RED.0
00782,RLISP
syslsp smacro procedure PointerTagP X;1055
syslsp smacro procedure WithinOldHeapPointer X;1136
syslsp smacro procedure Mark X;1260
syslsp smacro procedure Marked X;1322
syslsp smacro procedure MarkID X;1382
syslsp smacro procedure MarkedID X;1484
syslsp smacro procedure ClearIDMark X;1556
syslsp procedure Reclaim();2123
syslsp procedure !%Reclaim();2174
syslsp procedure MarkAndCopyFromID X;3270
syslsp procedure CopyFromAllBases();3554
syslsp procedure CopyFromNewHeap();4132
syslsp procedure CopyFromRange(Lo, Hi);4506
syslsp procedure CopyFromBase P;4672
syslsp procedure CopyItem X;4728
syslsp procedure CopyItem1 S;5183
syslsp procedure MakeIDFreeList();6138
syslsp procedure GCStats();6693

PS:<PSL.KERNEL>OBLIST.RED.0
00860,RLISP
syslsp smacro procedure DeletedSlot U;692
syslsp smacro procedure EmptySlot U;768
syslsp smacro procedure NextSlot H;841
syslsp smacro procedure EqualObArrayEntry(ObArrayIndex, S);983
syslsp procedure AddToObList U;1073
syslsp procedure LookupOrAddToObList U;1656
syslsp procedure NewID S;2294
syslsp procedure InitNewID(U, V);2422
syslsp procedure HashFunction S;2610
syslsp procedure InObList U;3066
syslsp procedure Intern U;3633
syslsp procedure RemOb U;3861
syslsp procedure InternP U;4275
syslsp procedure GenSym();4555
syslsp procedure GenSym1 N;4679
syslsp procedure InternGenSym();5065
syslsp procedure MapObl F;5181
syslsp procedure GlobalLookup S;5534
syslsp procedure GlobalInstall S;5771
syslsp procedure GlobalRemove S;6148
syslsp procedure InitObList();6416

PS:<PSL.KERNEL>ONOFF.RED.0
00172,RLISP
lisp procedure OnOff!*(IdList, U);404
lisp procedure MkFlagVar U;720
macro procedure ON U;858
macro procedure OFF U;923

PS:<PSL.KERNEL>OPEN-CLOSE.RED.0
00137,RLISP
syslsp procedure Open(FileName, AccessType);886
syslsp procedure Close FileDes;2001

PS:<PSL.KERNEL>OTHER-IO.RED.0
00503,RLISP
syslsp procedure ChannelEject C;1137
syslsp procedure Eject();1268
syslsp procedure ChannelLineLength(Chn, Len);1386
syslsp procedure LineLength Len;1717
syslsp procedure ChannelPosn Chn;1825
syslsp procedure Posn();1916
syslsp procedure ChannelLPosn Chn;2026
syslsp procedure LPosn();2111
syslsp procedure ChannelReadCH Chn;2216
syslsp procedure ReadCH();2535
syslsp procedure ChannelTerPri Chn;2638
syslsp procedure TerPri();2752

PS:<PSL.KERNEL>OTHERS-SL.RED.0
00205,RLISP
syslsp procedure FixP U;459
syslsp procedure Digit U;533
syslsp procedure Liter U;664
lisp procedure Length U;897
lisp procedure Length1(U, N);971

PS:<PSL.KERNEL>P-APPLY-LAP.RED.0
00530,RLISP
syslsp procedure CodeApply(CodePtr, ArgList);2031
lap '((!*entry CodeEvalApply expr 2)6246
syslsp procedure CodeEvalApplyAux(CodePtr, ArgList, P);6395
syslsp procedure BindEval(Formals, Args);12720
syslsp procedure BindEvalAux(Formals, Args, N);12807
syslsp procedure SaveRegisters(A1, A2, A3, A4, A5,13173
syslsp procedure CompiledCallingInterpretedAux();13679
syslsp procedure FastLambdaApply();13821
syslsp procedure CompiledCallingInterpretedAuxAux Fn;13961

PS:<PSL.KERNEL>PRINTERS.RED.0
02310,RLISP
syslsp smacro procedure UpperCaseP Ch;2857
syslsp smacro procedure LowerCaseP Ch;2935
syslsp smacro procedure RaiseChar Ch;3014
syslsp smacro procedure LowerChar Ch;3085
syslsp procedure CheckLineFit(Len, Chn, Fn, Itm);3341
syslsp procedure ChannelWriteString(Channel, Strng);3541
syslsp procedure WriteString S;3823
syslsp procedure ChannelWriteSysInteger(Channel, Number, Radix);4049
syslsp procedure WriteNumber1(Channel, Number, Radix);4598
syslsp procedure ChannelWriteBitString(Channel, Number, DigitMask, Exponent);4854
syslsp procedure ChannelWriteBitStrAux(Channel, Number, DigitMask, Exponent);5060
syslsp procedure WriteSysInteger(Number, Radix);5426
syslsp procedure ChannelWriteFixnum(Channel, Num);5539
syslsp procedure ChannelWriteInteger(Channel, Num);5648
syslsp procedure ChannelWriteSysFloat(Channel, FloatPtr);5970
syslsp procedure ChannelWriteFloat(Channel, LispFloatPtr);6164
syslsp procedure ChannelPrintString(Channel, Strng);6287
syslsp procedure ChannelWriteID(Channel, Itm);6653
syslsp procedure ChannelWriteUnbound(Channel, Itm);7035
syslsp procedure ChannelPrintID(Channel, Itm);7213
syslsp procedure ChannelPrintUnbound(Channel, Itm);8304
syslsp procedure ChannelWriteCodePointer(Channel, CP);8490
syslsp procedure ChannelWriteUnknownItem(Channel, Itm);8921
syslsp procedure ChannelWriteBlankOrEOL Channel;9131
syslsp procedure ChannelWritePair(Channel, Itm, Level);9375
syslsp procedure ChannelPrintPair(Channel, Itm, Level);10372
syslsp procedure ChannelWriteVector(Channel, Vec, Level);11371
syslsp procedure ChannelPrintVector(Channel, Vec, Level);12172
syslsp procedure ChannelWriteEVector(Channel, EVec, Level);12975
syslsp procedure ChannelPrintEVector(Channel, EVec, Level);13559
syslsp procedure ChannelWriteWords(Channel, Itm);14131
syslsp procedure ChannelWriteHalfWords(Channel, Itm);14784
syslsp procedure ChannelWriteBytes(Channel, Itm);15461
syslsp procedure ChannelPrin2(Channel, Itm);16105
syslsp procedure RecursiveChannelPrin2(Channel, Itm, Level);16240
syslsp procedure Prin2 Itm;17286
syslsp procedure ChannelPrin1(Channel, Itm);17409
syslsp procedure RecursiveChannelPrin1(Channel, Itm, Level);17550
syslsp procedure Prin1 Itm;18679

PS:<PSL.KERNEL>PRINTF.RED.0
00525,RLISP
lisp procedure PrintF(FormatForPrintF!*, A1, A2, A3, A4, A5,842
lap '((!*entry PrintF1 expr 15)1118
syslsp procedure PrintF2 PrintFArgs;1587
syslsp procedure ErrorPrintF(Format, A1, A2, A3, A4);4929
syslsp procedure ToStringWriteChar(Channel, Ch);5260
syslsp procedure BldMsg(Format, Args1, Args2, Args3, Args4);5768
syslsp procedure ErrPrin U;6168
lisp procedure Prin2L Itm;6303
syslsp procedure ChannelPrintF(OUT!*, Format, A1, A2, A3, A4, A5, A6, A7, A8,6707

PS:<PSL.KERNEL>PROG-AND-FRIENDS.RED.0
00157,RLISP
fexpr procedure Prog ProgBody!*;638
lisp fexpr procedure GO U;1364
lisp procedure Return U;1861

PS:<PSL.KERNEL>PROPERTY-LIST.RED.0
00559,RLISP
syslsp procedure Prop U;1365
syslsp procedure SetProp(U, L);1496
syslsp procedure FlagP(U, Indicator);1649
syslsp procedure GetFnType U;2189
syslsp procedure Get(U, Indicator);2266
lisp procedure Flag(IDList, Indicator);2878
lisp procedure Flag1(U, Indicator);3073
lisp procedure RemFlag(IDList, Indicator);3280
lisp procedure RemFlag1(U, Indicator);3482
lisp procedure Put(U, Indicator, Val);3624
lisp procedure RemProp(U, Indicator);3991
lisp procedure RemPropL(L, Indicator);4249

PS:<PSL.KERNEL>PUTD-GETD.RED.0
00211,RLISP
lisp procedure GetD U;1435
lisp procedure RemD U;1635
lisp procedure PutD(FnName, FnType, FnExp);2165
syslsp procedure code!-number!-of!-arguments cp;3987

PS:<PSL.KERNEL>RDS-WRS.RED.0
00117,RLISP
syslsp procedure RDS Channel;609
syslsp procedure WRS Channel;1136

PS:<PSL.KERNEL>READ.RED.0
00492,RLISP
lisp procedure ChannelReadTokenWithHooks Channel;1391
lisp procedure ChannelRead Channel;1711
lisp procedure Read();1984
lisp procedure ChannelReadEof(Channel, Ef);2121
lisp procedure ChannelReadQuotedExpression(Channel, Qt);2409
lisp procedure ChannelReadListOrDottedPair(Channel, Pa);2532
lisp procedure ChannelReadRightParen(Channel, Tok);3674
lisp procedure DotContextError();3964
lisp procedure ChannelReadVector Channel;4109

PS:<PSL.KERNEL>SEQUENCE.RED.0
00377,RLISP
syslsp procedure Indx(R1, R2);796
syslsp procedure SetIndx(R1, R2, R3);1658
syslsp procedure Sub(R1, R2, R3);2709
syslsp procedure SubSeq(R1, R2, R3);2816
syslsp procedure SetSub(R1, R2, R3, R4);4798
syslsp procedure SetSubSeq(R1, R2, R3, R4);4919
syslsp procedure Concat(R1, R2);7661
syslsp procedure Size S;9780

PS:<PSL.KERNEL>SETS.RED.0
00326,RLISP
lisp procedure List2Set L;299
lisp procedure List2SetQ L;482
lisp procedure Adjoin(Element, ASet);694
lisp procedure AdjoinQ(Element, ASet);817
lisp procedure Union(X, Y);929
lisp procedure UnionQ(X, Y);1067
lisp procedure XN(U, V);1210
lisp procedure XNQ(U, V);1382

PS:<PSL.KERNEL>STRING-GENSYM.RED.0
00125,RLISP
lisp procedure StringGenSym();594
lisp procedure StringGenSym1 N;678

PS:<PSL.KERNEL>SYMBOL-VALUES.RED.0
00196,RLISP
syslsp procedure UnboundP U;286
syslsp procedure MakeUnbound U;458
syslsp procedure ValueCell U;621
syslsp procedure Set(Exp, Val);1123

PS:<PSL.KERNEL>TOKEN-SCANNER.RED.0
01391,RLISP
syslsp smacro procedure TokenTypeOfChar Ch;2225
syslsp smacro procedure CurrentDiphthongIndicator();2340
syslsp smacro procedure ResetBuf();2432
syslsp smacro procedure BackupBuf();2495
syslsp procedure ReadInBuf();2570
syslsp smacro procedure UnReadLastChar();3036
syslsp smacro procedure LowerCaseChar Ch;3121
syslsp smacro procedure RaiseChar Ch;3200
syslsp smacro procedure RaiseLastChar();3274
syslsp procedure MakeBufIntoID();3408
syslsp procedure MakeBufIntoString();3740
syslsp procedure MakeBufIntoSysNumber(Radix, Sign);3941
syslsp procedure MakeBufIntoLispInteger(Radix, Sign);4142
syslsp procedure MakeBufIntoFloat(Exponent, MinusP);4610
syslsp procedure ChannelReadToken Channel;5638
syslsp procedure RAtom();15674
syslsp procedure DigitToNumber D;15780
syslsp procedure MakeStringIntoLispInteger(S, Radix, Sign);15996
syslsp procedure MakeStringIntoSysInteger(Strng, Radix, Sign);16117
syslsp procedure MakeStringIntoBitString(Strng, Radix, RadixExponent, Sign);16792
syslsp procedure SysPowerOf2P Num;17118
syslsp procedure ScannerError Message;17287
syslsp procedure ScanPossibleDiphthong(Channel, StartChar);17417
syslsp procedure ReadLine();17781
syslsp procedure ChannelReadLine Chn;17887
syslsp procedure Package U;18340
syslsp procedure MakeInputAvailable();18456

PS:<PSL.KERNEL>TOP-LOOP.RED.0
00558,RLISP
lisp procedure TopLoop(TopLoopRead!*,	%. Generalized top-loop mechanism2339
lisp procedure DefnPrint U;4435
lisp procedure DefnPrint1 U;4866
lisp procedure NthEntry N;5021
lisp procedure Inp N;5234
expr procedure ReDo N;5303
lisp procedure Ans N;5403
lisp procedure HistPrint(L, N, M);6151
lisp procedure Time();6328
lisp procedure StandardLisp();6456
lisp procedure PrintWithFreshLine X;6685
lisp procedure SaveSystem(Banner, File, InitForms);6766
lisp procedure EvalInitForms();7228

PS:<PSL.KERNEL>TYPE-CONVERSIONS.RED.0
00561,RLISP
syslsp procedure ID2Int U;833
syslsp procedure Int2ID U;965
syslsp procedure Int2Sys N;1243
syslsp procedure Lisp2Char U;1424
syslsp procedure Int2Code N;1852
syslsp procedure Sys2Int N;1939
syslsp procedure Sys2FIXN N;2098
syslsp procedure ID2String U;2220
syslsp procedure String2Vector U;2541
syslsp procedure Vector2String V;2896
syslsp procedure List2String P;3258
syslsp procedure String2List S;3599
syslsp procedure List2Vector L;3913
syslsp procedure Vector2List V;4246

PS:<PSL.KERNEL>TYPE-ERRORS.RED.0
00774,RLISP
lisp procedure TypeError(Offender, Fn, Typ);501
lisp procedure UsageTypeError(Offender, Fn, Typ, Usage);670
lisp procedure IndexError(Offender, Fn);835
lisp procedure NonPairError(Offender, Fn);942
lisp procedure NonIDError(Offender, Fn);1026
lisp procedure NonNumberError(Offender, Fn);1121
lisp procedure NonIntegerError(Offender, Fn);1212
lisp procedure NonPositiveIntegerError(Offender, Fn);1313
lisp procedure NonCharacterError(Offender, Fn);1420
lisp procedure NonStringError(Offender, Fn);1513
lisp procedure NonVectorError(Offender, Fn);1603
lisp procedure NonWords(Offender, Fn);1687
lisp procedure NonSequenceError(Offender, Fn);1785
lisp procedure NonIOChannelError(Offender, Fn);1880

PS:<PSL.KERNEL>VECTORS.RED.0
00302,RLISP
syslsp procedure GetV(Vec, I);497
syslsp procedure PutV(Vec, I, Val);992
syslsp procedure UpbV V;1485
syslsp procedure EVECTORP V;1772
syslsp procedure EGETV(Vec, I);1826
syslsp procedure Eputv(Vec, I, Val);2467
syslsp procedure EUpbV V;3102

PS:<PSL.KERNEL.20>APPLY-LAP.RED.0
00513,RLISP
lap '((!*entry CodeApply expr 2)	%. CodeApply(CodePointer, ArgList)941
lap '((!*entry CodeEvalApply expr 2)	%. CodeApply(CodePointer, EvLis Args)2160
lap '((!*entry BindEval expr 2)	 %. BindEval(FormalsList, ArgsToBeEvaledList);4562
lap '((!*entry CompiledCallingInterpreted expr 0)	%. link for lambda7105
lap '((!*entry FastApply expr 0)	%. Apply with arguments loaded9786
lap '((!*entry UndefinedFunction expr 0)	%. Error Handler for non code10630

PS:<PSL.KERNEL.20>DUMPLISP.RED.0
00224,RLISP
syslsp procedure DumpLisp Filename;753
syslsp procedure unmap!-space(Lo, Hi);1160
lap '((!*entry unmap!-pages expr 2)1392
lap '((!*entry save!-into!-file expr 1)1682

PS:<PSL.KERNEL.20>FAST-BINDER.RED.0
00203,RLISP
lap '((!*Entry FastBind expr 0)		% Bind IDs to values in registers567
lap '((!*Entry FastUnBind expr 0)	% Unbind last N entries in bind stack1992

PS:<PSL.KERNEL.20>FUNCTION-PRIMITIVES.RED.0
00338,RLISP
syslsp procedure FUnBoundP U;2012
syslsp procedure FLambdaLinkP U;2160
syslsp procedure FCodeP U;2301
syslsp procedure MakeFUnBound U;2464
syslsp procedure MakeFLambdaLink U;2632
syslsp procedure MakeFCode(U, CodePtr);2811
syslsp procedure GetFCodePointer U;3046

PS:<PSL.KERNEL.20>GC.RED.0
00044,RLISP

PS:<PSL.KERNEL.20>GLOBAL-DATA.RED.0
00053,RLISP

PS:<PSL.KERNEL.20>IO-DATA.RED.0
00049,RLISP

PS:<PSL.KERNEL.20>MAIN-START.RED.0
00186,RLISP
lap '((!*entry Main!. expr 0)838
syslsp procedure Reset();1052
syslsp procedure pre!-main();1113
syslsp procedure Main();1261

PS:<PSL.KERNEL.20>MINI-TRACE.RED.0
00052,RLISP

PS:<PSL.KERNEL.20>SCAN-TABLE.RED.0
00052,RLISP

PS:<PSL.KERNEL.20>SYSTEM-EXTRAS.RED.0
00205,RLISP
lap '((!*entry Quit expr 0)645
lap '((!*entry Date expr 0)778
lap '((!*Entry StackOverflow expr 0)1315
syslsp procedure ReturnAddressP X;1506

PS:<PSL.KERNEL.20>SYSTEM-FASLIN.RED.0
00284,RLISP
syslsp procedure BinaryOpenRead FileName;466
syslsp procedure BinaryOpenWrite FileName;841
syslsp procedure ValueCellLocation X;1212
syslsp procedure ExtraRegLocation X;1448
syslsp procedure FunctionCellLocation X;1727

PS:<PSL.KERNEL.20>SYSTEM-FASLOUT.RED.0
00341,RLISP
smacro procedure RelocRightHalfTag X;620
smacro procedure RelocRightHalfInf X;683
smacro procedure RelocInfTag X;741
smacro procedure RelocInfInf X;798
smacro procedure RelocWordTag X;857
smacro procedure RelocWordInf X;914
smacro procedure PutRightHalf(Where, What);983

PS:<PSL.KERNEL.20>SYSTEM-GC.RED.0
00152,RLISP
syslsp smacro procedure BeforeGCSystemHook();391
syslsp smacro procedure AfterGCSystemHook();449

PS:<PSL.KERNEL.20>SYSTEM-IO.RED.0
00783,RLISP
lap '((!*entry Dec20ReadChar expr 1)718
lap '((!*entry Dec20ReadChar expr 1)1639
lap '((!*entry Dec20WriteChar expr 2)2648
lap '((!*entry ClearIO1 expr 0)3191
syslsp procedure ClearIO();3571
lap '((!*entry RDTTY expr 3)3783
lap '((!*entry RDTTY expr 3)4806
syslsp procedure TerminalInputHandler Chn;6042
syslsp procedure FindFreeChannel();6503
syslsp procedure SystemMarkAsClosedChannel FileDes;6744
lap '((!*entry Dec20CloseChannel expr 1)6828
syslsp procedure SystemOpenFileSpecial FileName;7140
syslsp procedure SystemOpenFileForInput FileName;7267
syslsp procedure SystemOpenFileForOutput FileName;7765
lap '((!*entry Dec20Open expr 3)8246
lisp procedure ContOpenError(FileName, AccessMode);8859

PS:<PSL.KERNEL.20>TIMC.RED.0
00079,RLISP
lap '((!*entry TimC expr 0)293

PS:<PSL.KERNEL.20>TRAP.RED.0
00046,RLISP

PS:<PSL.KERNEL.20>WRITE-FLOAT.RED.0
00119,RLISP
lap '((!*entry WriteFloat expr 2)		% convert float to string489

PS:<PSL.KERNEL.68>APPLY-LAP.RED.0
00514,RLISP
lap '((!*entry CodeApply expr 2)	%. CodeApply(CodePointer, ArgList)986
lap '((!*entry CodeEvalApply expr 2)	%. CodeApply(CodePointer, EvLis Args)2904
lap '((!*entry BindEval expr 2)	 %. BindEval(FormalsList, ArgsToBeEvaledList);5867
lap '((!*entry CompiledCallingInterpreted expr 0)	%. link for lambda8671
lap '((!*entry FastApply expr 0)	%. Apply with arguments loaded12456
lap '((!*entry UndefinedFunction expr 0)	%. Error Handler for non code13589

PS:<PSL.KERNEL.68>ARITHMETIC.RED.0
02911,RLISP
syslsp macro procedure IsInum U;1056
syslsp procedure TwoArgDispatch(FirstArg, SecondArg);1350
lap '((!*entry TwoArgDispatch1 expr 4)1464
syslsp procedure TwoArgError(FirstArg, SecondArg, DispatchTable);4141
syslsp procedure NonInteger2Error(FirstArg, SecondArg, DispatchTable);4371
syslsp procedure NonInteger1Error(Arg, DispatchTable);4585
syslsp procedure OneArgDispatch FirstArg;4764
lap '((!*entry OneArgDispatch1 expr 2)4852
syslsp procedure OneArgError(FirstArg, Dummy, DispatchTable);5588
syslsp procedure OneArgPredicateDispatch FirstArg;5781
lap '((!*entry OneArgPredicateDispatch1 expr 2)5887
syslsp procedure MakeFixnum N;6612
syslsp procedure BigFloatFix N;6732
syslsp procedure ReturnNIL();6809
syslsp procedure ReturnFirstArg Arg;6859
syslsp procedure StaticIntFloat Arg;7029
macro procedure DefArith2Entry U;7166
macro procedure DefArith1Entry U;7268
macro procedure DefArith1PredicateEntry U;7379
lisp procedure StupidParserFix X;7490
lisp procedure RemQuote X;7683
lisp procedure DefArithEntry L;7763
syslsp procedure IntPlus2(FirstArg, SecondArg);8330
syslsp procedure FloatPlus2(FirstArg, SecondArg);8488
syslsp procedure IntDifference(FirstArg, SecondArg);8779
syslsp procedure FloatDifference(FirstArg, SecondArg);8947
syslsp procedure IntTimes2(FirstArg, SecondArg);9253
syslsp procedure FloatTimes2(FirstArg, SecondArg);9449
syslsp procedure IntQuotient(FirstArg, SecondArg);9736
syslsp procedure FloatQuotient(FirstArg, SecondArg);10070
syslsp procedure IntRemainder(FirstArg, SecondArg);10503
syslsp procedure FloatRemainder(FirstArg, SecondArg);10841
syslsp procedure IntLAnd(FirstArg, SecondArg);11117
syslsp procedure IntLOr(FirstArg, SecondArg);11325
syslsp procedure IntLXOr(FirstArg, SecondArg);11536
syslsp procedure IntLShift(FirstArg, SecondArg);11796
syslsp procedure IntGreaterP(FirstArg, SecondArg);12062
syslsp procedure FloatGreaterP(FirstArg, SecondArg);12155
syslsp procedure IntLessP(FirstArg, SecondArg);12347
syslsp procedure FloatLessP(FirstArg, SecondArg);12434
syslsp procedure IntAdd1 FirstArg;12609
lisp procedure FloatAdd1 FirstArg;12744
lisp procedure IntSub1 FirstArg;12865
lisp procedure FloatSub1 FirstArg;13005
lisp procedure IntLNot X;13132
lisp procedure IntMinus FirstArg;13282
lisp procedure FloatMinus FirstArg;13416
syslsp procedure FloatFix Arg;13553
syslsp procedure FloatIntArg Arg;13767
syslsp procedure IntMinusP FirstArg;13978
lisp procedure FloatMinusP FirstArg;14044
lisp procedure IntZeroP FirstArg;14181
lisp procedure FloatZeroP FirstArg;14239
lisp procedure IntOneP FirstArg;14365
lisp procedure FloatOneP FirstArg;14422
LAP '(14645
lap '(15358
LAP '(15657
LAP '(16181
lap '(17091
lap '(17720
lap '(19547
LAP '(21293
LAP '(24105
LAP '(25991
LAP '(28279

PS:<PSL.KERNEL.68>AUTOLOAD.RED.0
00122,RLISP
macro procedure DefAutoload U;312
lisp procedure MakeArgList N;1289

PS:<PSL.KERNEL.68>DUMPLISP.RED.0
00050,RLISP

PS:<PSL.KERNEL.68>FAST-BINDER.RED.0
00193,RLISP
lap '((!*Entry FastBind expr 0)				% Bind IDs to values509
lap '((!*Entry FastUnBind expr 0)	%. Unbind last N entries in bind stack3011

PS:<PSL.KERNEL.68>FUNCTION-PRIMITIVES.RED.0
00471,RLISP
lap '((!*entry PlantUnbound expr 1)1694
lap '((!*entry PlantLambdaLink expr 1)2082
lap '((!*entry PlantCodePointer expr 1)2461
syslsp procedure FUnBoundP U;2870
syslsp procedure FLambdaLinkP U;3024
syslsp procedure FCodeP U;3171
syslsp procedure MakeFUnBound U;3346
syslsp procedure MakeFLambdaLink U;3516
syslsp procedure MakeFCode(U, CodePtr);3698
syslsp procedure GetFCodePointer U;3906

PS:<PSL.KERNEL.68>GC.RED.0
00044,RLISP

PS:<PSL.KERNEL.68>IO-DATA.RED.0
00049,RLISP

PS:<PSL.KERNEL.68>M68K-LAP.RED.0
04673,RLISP
smacro procedure LabelP X;8297
lisp procedure Lap U;10331
lisp procedure CheckForInitCode CodeList;12680
lisp procedure SaveEntry X;13111
lisp procedure DefineEntries();14345
lisp procedure DepositInstruction X;14488
macro procedure DefOpcode U;14878
lisp procedure EvDefOpcode(OpName, OpValue, OpFn, OpSize, OpLen);16079
macro procedure DefOpcodes U;16647
macro procedure DefCCOpcodes U;18944
lisp procedure EffectiveAddress Operand;22345
lisp procedure RegOperand Operand;27446
lisp procedure CompoundRegOperand Operand;27744
lisp procedure DisplacementOperand Operand;28051
lisp procedure IndexedOperand Operand;28867
lisp procedure RegisterNumber RegSymbol;30570
lisp procedure DepositExtension Exp;30967
lisp procedure DepositIndexExtensionWord Exp;31772
lisp procedure DepositAbsolute Exp;32300
lisp procedure DepositImmediate Exp;32395
lisp procedure DepositFluid X;32657
lisp procedure DepositExtraReg X;32766
lisp procedure DepositEntry X;32872
lisp procedure DepositForeignEntry X;32993
Smacro Procedure OpCodeValue(Instruction);34008
lisp procedure ZeroOperandInstruction Instr;35800
lisp procedure ImmediateInstruction Instr;36661
    Mode :=36811
lisp procedure OneAddressWithSize Instr;37948
lisp procedure OneAddressNoSize Instr;38216
    Mode :=38960
lisp procedure OneAddress(Instr, Size);40112
    Mode :=40145
lisp procedure OneRegister Instr;41426
lisp procedure ConstOneRegister Instr;41676
lisp procedure OneRegisterLabel Instr;41996
lisp procedure OneRegisterAux(Instr, Reg);42159
lisp procedure QuickArithmetic Instr;43016
    Mode :=43324
lisp procedure QuickLength X;43715
lisp procedure Branch Instr;44160
lisp procedure RegisterAddress Instr;44931
lisp procedure RegisterSizeAddress Instr;45510
lisp procedure RegisterStrangeSizeAddress Instr;45794
lisp procedure RegisterOpModeAddress Instr;46242
lisp procedure DRegisterEORAddress Instr;47049
lisp procedure RegisterAddressAux(Result, Reg, Addr, OpMode);47633
lisp procedure MOVEA Instr;49428
    Mode :=49589
lisp procedure EXG Instr;50159
lisp procedure ExtendArithmetic Instr;51365
lisp procedure BCDTwoRegister Instr;51452
lisp procedure TwoRegisterAux(Instr, Size);51530
lisp procedure TwoRegisterAuxAux(Instr, Reg1, Reg2, Size, RM);52224
lisp procedure ShiftAndRotate Instr;53146
lisp procedure ShiftLength Instr;54520
lisp procedure MOVE Instr;55437
lisp procedure STOP Instr;56629
lisp procedure BitOperation Instr;57285
    Mode   :=57359
lisp procedure CMPM(Instr);59327
lisp procedure RegListP Operand;60077
lisp procedure RegBit(reg,mode);60139
lisp procedure RegisterListMask(Operand,Mode);60726
lisp procedure MOVEM Instr;61138
lisp procedure MOVEQ Instr;62484
lisp procedure MOVEP Instr;63218
lisp procedure TRAP Instr;64697
lisp procedure DepositWordBlock X;65144
lisp procedure DepositHalfWordBlock X;65273
lisp procedure DepositByteBlock X;65398
lisp procedure DepositString X;65722
lisp procedure DepositFloat X;66008
lisp procedure MakeExpressionRelative(Exp, OffsetFromHere);66606
lisp procedure MakeInternalEntryRelative(Nam, OffsetFromHere);66990
lisp procedure LabelOffset L;67740
lisp procedure ProcessInitCode CodeList;68365
lisp procedure OptimizeBranches BranchCodeList!*;68829
lisp procedure DeleteAllButLabels X;69288
lisp procedure BuildInitCodeOffsetTable CodeList;70169
lisp procedure BuildOffsetTable();71413
lisp procedure FindLongBranches();72083
lisp procedure FindDisplacement InstructionOffsetPair;72438
lisp procedure FindLabelOffset L;72730
lisp procedure FindEntryOffset L;73264
lisp procedure MakeLongBranch AList;73509
lisp procedure IncreaseAllOffsets(X, N);73923
lisp procedure InstructionLength X;74232
lisp procedure GeneralBranchInstructionP X;74600
lisp procedure StandardInstructionLength Instr;74728
lisp procedure OperandListLength(Tail, Total);74817
lisp procedure OperandLength Operand;74962
lisp procedure PosIntP X;75965
lisp procedure DisplacementLength X;76072
lisp procedure InlineConstantLength X;76206
lisp procedure ByteConstantLength X;76493
lisp procedure LapStringLength X;76584
lisp procedure DepositByte X;77434
lisp procedure DepositHalfWord X;77601
lisp procedure DepositWord X;77769
lisp procedure DepositWordExpression X;78019
lisp procedure DepositHalfWordExpression X;78783
lisp procedure DepositItem(TagPart, InfPart);79667
lisp procedure DepositHalfWordIDNumber X;80834
lisp procedure UpTheAssholeWithItAll(Y);81523
lisp procedure SystemFaslFixup();81669

PS:<PSL.KERNEL.68>NEWARITHMETIC.RED.0
00198,RLISP
LAP '(127
lap '(840
LAP '(1139
LAP '(1663
lap '(2573
lap '(3202
lap '(5029
LAP '(6775
LAP '(9254
LAP '(11474
LAP '(13759

PS:<PSL.KERNEL.68>SCAN-TABLE.RED.0
00052,RLISP

PS:<PSL.KERNEL.68>SYSTEM-FASLIN.RED.0
00208,RLISP
syslsp procedure DepositValueCellLocation X;421
syslsp procedure DepositExtraRegLocation X;903
syslsp procedure DepositFunctionCellLocation X;1405

PS:<PSL.KERNEL.68>SYSTEM-FASLOUT.RED.0
00526,RLISP
smacro procedure RelocRightHalfTag X;1186
smacro procedure RelocRightHalfInf X;1248
smacro procedure RelocInfTag X;1305
smacro procedure RelocInfInf X;1361
smacro procedure RelocWordTag X;1420
smacro procedure RelocWordInf X;1477
macro procedure PutRightHalf B;1534
lap '(2008
syslsp procedure MakeRelocWord(RelocTag, RelocInf);6062
syslsp procedure MakeRelocInf(RelocTag, RelocInf);6165
syslsp procedure MakeRelocHalfWord(RelocTag, RelocInf);6274

PS:<PSL.KERNEL.68>SYSTEM-GC.RED.0
00187,RLISP
syslsp smacro procedure BeforeGCSystemHook();391
syslsp smacro procedure AfterGCSystemHook();449
SysLisp Procedure GC!-Trap();499

PS:<PSL.KERNEL.68>TIMC.RED.0
00046,RLISP

PS:<PSL.KERNEL.68>TRAP.RED.0
00046,RLISP

PS:<PSL.KERNEL.68.APOLLO>APOLLO-SYSTEM-IO.RED.0
01129,RLISP
procedure convert s;1023
LAP '(1352
LAP '(1545
 LAP '(2252
LAP '(3248
LAP '(3988
LAP '(5093
LAP '(6074
 LAP '(7091
 LAP '(7822
 LAP '(8473
LAP '(9181
LAP '(9500
LAP '(9871
SYSLISP PROCEDURE SysOpenRead(Channel,PslString);10845
SYSLISP PROCEDURE SysOpenWrite(Channel,PslString);12125
SYSLISP PROCEDURE SysReadRec(FileDescriptor,PslString);13273
SYSLISP PROCEDURE  SysWriteRec (FileDescriptor, StringToWrite, StringLength);14407
SYSLISP PROCEDURE SysClose (FileDescriptor);14895
SYSLISP PROCEDURE SysMaxBuffer(FileDescriptor);15241
SYSLISP PROCEDURE BinaryOpenRead Filename;15306
SYSLISP PROCEDURE BinaryOpenWrite Filename;16117
SYSLISP PROCEDURE BinaryWrite(Filedescriptor, BinaryWord);17239
SYSLISP PROCEDURE BinaryRead Filedescriptor;17536
SYSLISP PROCEDURE BinaryReadBlock(Filedescriptor, BlockBase, BlockSize);17859
SYSLISP PROCEDURE BinaryWriteBlock(Filedescriptor, BlockBase, BlockSize);18176
SYSLISP PROCEDURE BinaryClose Filedescriptor;18438
SYSLISP PROCEDURE BinaryPositionFile(Filedescriptor, 18681

PS:<PSL.KERNEL.68.APOLLO>BYTE.RED.0
00170,RLISP
SYSLISP PROCEDURE BinaryReadByte Filedescriptor;50
SYSLISP PROCEDURE BinaryWrite(Filedescriptor, BinaryByte);353

PS:<PSL.KERNEL.68.APOLLO>CONVERT.RED.0
00167,RLISP
procedure convert s;20
procedure SysOpenRead(channel,filename);273
procedure BinaryOpenRead filename;345

PS:<PSL.KERNEL.68.APOLLO>FLOATS.RED.0
00355,RLISP
Lap '(846
Lap '(1886
Lap '(3097
Lap '(4466
Lap '(5836
Lap '(7220
Lap '(8608
Lap '(10839
Lap '(12104
Lap '(13369
Lap '(14681
Lap '(15264
Lap '(16616
Lap '(17880
Lap '(19145
Lap '(20402
Lap '(21659
Lap '(22916
Lap '(24173
Lap '(25432
lap '(26465
lap '(26790

PS:<PSL.KERNEL.68.APOLLO>GLOBAL-DATA.RED.0
00060,RLISP

PS:<PSL.KERNEL.68.APOLLO>MAILBOX.RED.0
00802,RLISP
Symbolic Procedure MBX_Close(handle);225
Symbolic Procedure MBX_Cond_Get_Rec_Chan(handle,channel,bufferptr,bufferlen);723
Symbolic Procedure MBX_Create_Server(name,namelen,bufsize,maxchan);1736
Symbolic Procedure MBX_Deallocater(handle,channel);2556
Symbolic Procedure MBX_Get_Cond(handle,bufptr,buflen);3073
Symbolic Procedure MBX_Get_EC(handle,key);3957
Symbolic Procedure MBX_Get_Rec(handle,bufptr,buflen);4625
Symbolic Procedure MBX_Get_Rec_Chan(handle,chan,bufptr,buflen);5520
Symbolic Procedure MBX_Open(name,namelen,bufptr,buflen);6473
Symbolic Procedure MBX_Put_Chr(handle,bufptr,buflen);7253
Symbolic Procedure MBX_Put_Rec(handle,bufptr,buflen);7867
Symbolic Procedure MBX_Put_Rec_Cond(handle,bufptr,buflen);8479

PS:<PSL.KERNEL.68.APOLLO>MAIN-START.RED.0
00199,RLISP
lap '((!*entry APOLLO_MAIN expr 0)1212
syslsp procedure Reset();1541
syslsp procedure pre!-main();1602
syslsp procedure Main();1728

PS:<PSL.KERNEL.68.APOLLO>READMAP.RED.0
00500,RLISP
symbolic procedure SkipLine(channel);337
symbolic procedure PrintLine(channel);506
symbolic procedure FindGlobals(channel);725
symbolic procedure ReadOffsetValue(channel);1092
symbolic procedure ReadOffset(channel);1761
symbolic procedure BuildOffsetTable(MapFilename);2579
symbolic procedure PrintLoaderOffsets Name;3368
symbolic procedure SaveLoaderOffsets(Filename);3530
symbolic procedure ReadLoaderOffsets(Filename);3985

PS:<PSL.KERNEL.68.APOLLO>STASHSYSTEM.RED.0
00108,RLISP
symbolic Procedure StashSystem(FileName);1591

PS:<PSL.KERNEL.68.APOLLO>SYSTEM-EXTRAS.RED.0
00241,RLISP
syslisp procedure SystemEnd();393
syslisp procedure timc();443
lisp procedure DisplayHelpFile x;515
lisp procedure prettyprint x;611
lisp procedure returnaddressp x;664

PS:<PSL.KERNEL.68.APOLLO>SYSTEM-IO.RED.0
00770,RLISP
syslsp procedure FindFreeChannel();3863
syslsp procedure SystemOpenFileForInput FileName;4244
syslsp procedure SystemOpenFileForOutput FileName;4913
syslsp procedure SystemOpenFileSpecial FileName;5626
syslsp procedure TestLegalChannel Channel;5767
syslsp procedure IndependentReadChar Channel;6330
syslsp procedure IndependentWriteChar (Channel, Chr);7303
Procedure FlushBuffer Channel;7828
syslsp procedure SystemMarkAsClosedChannel Channel;8405
syslsp procedure IndependentCloseChannel Channel;8685
Syslsp procedure ClearOneChannel(Chn,Bufflen,How);8851
syslsp procedure ClearIO();9158
syslsp procedure TerminalInputHandler Channel;9627
SysLsp Procedure FlushStdoutChannel();10416

PS:<PSL.KERNEL.68.APOLLO>WRITE-FLOAT.RED.0
00117,RLISP
procedure NewChannelWriteFloat (Channel, FloatNum);354

PS:<PSL.KERNEL.68.APOLLO>WRITE-REAL.RED.0
00376,RLISP
Procedure InitWriteFloats(MinEx,MaxEx,NDig);1111
Procedure FindExponent(Flt);1973
Procedure FindMantissa(Flt);2533
Procedure FloatPower10(n);2656
Procedure Flt2String(Flt);2906
Procedure ScaledFloat2String(Flt,Ndigits,Scale, MinNice,MaxNice);3024
procedure Int2String N;4925
Procedure Int2List N;5018

PS:<PSL.KERNEL.68.HP>32-BIT.RED.0
00195,RLISP
LAP '(783
lap '(1496
LAP '(1795
LAP '(2319
lap '(3229
lap '(3858
lap '(5685
LAP '(7431
LAP '(9909
LAP '(12131
LAP '(14415

PS:<PSL.KERNEL.68.HP>68000-32-BIT-ARITHMETIC.RED.0
00080,RLISP
LAP '(843

PS:<PSL.KERNEL.68.HP>APPLY-LAP.RED.0
00511,RLISP
lap '((!*entry CodeApply expr 2)%. CodeApply(CodePointer, ArgList)929
lap '((!*entry CodeEvalApply expr 2)%. CodeApply(CodePointer, EvLis Args)2565
lap '((!*entry BindEval expr 2) %. BindEval(FormalsList, ArgsToBeEvaledList);5544
lap '((!*entry CompiledCallingInterpreted expr 0)%. link for lambda8146
lap '((!*entry FastApply expr 0)%. Apply with arguments loaded11782
lap '((!*entry UndefinedFunction expr 0)%. Error Handler for non code12904

PS:<PSL.KERNEL.68.HP>DUMPLISP.RED.0
00341,RLISP
syslsp procedure System!-Address(name);808
syslsp procedure GetMem(addr);990
syslsp procedure DumpLisp(filename);1057
syslsp procedure GetFirstSysDef ();1414
syslsp procedure GetNextSysDef (ptr);1490
syslsp procedure GetName(ptr) ;1563
syslsp procedure GetAddress(ptr);1701

PS:<PSL.KERNEL.68.HP>FASLOUT.RED.0
00659,RLISP
lisp procedure DfPrintFasl U;1023
    LAP U >>1772
lisp procedure FaslPreEvalLoadTime U;2677
procedure FFFlag U;3004
procedure FPProgN U;3262
procedure FPLAP U;3392
lisp procedure SaveUncompiledExpression U;3585
lisp procedure FaslOut FIL;3698
lisp procedure FaslEnd;4231
lisp procedure ComFile Filename;4578
lisp procedure CompileUncompiledExpressions();5898
lisp procedure CodeFileHeader();6121
lisp procedure FindIDNumber U;6309
lisp procedure CodeFileTrailer();6614
lisp procedure UpdateBitTable(NumberOfEntries, FirstEntry);7488
lisp procedure AllocateFaslSpaces();7951

PS:<PSL.KERNEL.68.HP>FAST-BINDER.RED.0
00191,RLISP
lap '((!*Entry FastBind expr 0)% Bind IDs to values500
lap '((!*Entry FastUnBind expr 0)%. Unbind last N entries in bind stack2507

PS:<PSL.KERNEL.68.HP>FIXUP.RED.0
00239,RLISP
lap '(170
syslsp procedure MakeRelocWord(RelocTag, RelocInf);3876
syslsp procedure MakeRelocInf(RelocTag, RelocInf);3979
syslsp procedure MakeRelocHalfWord(RelocTag, RelocInf);4088

PS:<PSL.KERNEL.68.HP>FUNCTION-PRIMITIVES.RED.0
00474,RLISP
lap '((!*entry PlantUnbound expr 1)1777
lap '((!*entry PlantLambdaLink expr 1)2151
lap '((!*entry PlantCodePointer expr 1)2521
syslsp procedure FUnBoundP U;2915
syslsp procedure FLambdaLinkP U;3067
syslsp procedure FCodeP U;3213
syslsp procedure MakeFUnBound U;3386
syslsp procedure MakeFLambdaLink U;3554
syslsp procedure MakeFCode(U, CodePtr);3734
syslsp procedure GetFCodePointer U;3938

PS:<PSL.KERNEL.68.HP>GC.RED.0
00047,RLISP

PS:<PSL.KERNEL.68.HP>GLOBAL-DATA.RED.0
00056,RLISP

PS:<PSL.KERNEL.68.HP>HP-DYNAMIC-PASLOAD.RED.0
00351,RLISP
syslsp procedure PasEditor () ;527
syslsp procedure PasFiler () ;778
syslsp procedure PasEmulate () ;1027
syslsp procedure Pasload (FileName) ;1300
syslsp procedure Pasload!-and!-unload (FileName) ;1908
syslsp procedure PasUnload () ;2500
syslsp procedure ExitLisp () ;2672

PS:<PSL.KERNEL.68.HP>IO-DATA.RED.0
00052,RLISP

PS:<PSL.KERNEL.68.HP>MAIN-START.RED.0
00191,RLISP
lap '((!*entry HP_MAIN expr 0)1480
syslsp procedure Reset();1817
syslsp procedure pre!-main();1878
syslsp procedure Main();2026

PS:<PSL.KERNEL.68.HP>SCAN-TABLE.RED.0
00055,RLISP

PS:<PSL.KERNEL.68.HP>SYSTEM-EXTRAS.RED.0
00606,RLISP
lisp procedure Quit;2416
syslsp procedure BinaryGetFIBptr(FilePointer);2521
syslsp procedure BinaryGetPositionFile(FilePointer);2709
syslsp procedure BinarySetPositionFile(FilePointer, FilePosition);2881
syslsp procedure BinaryReadHalfWord(FilePointer);3021
syslsp procedure BinaryWriteHalfWord(FilePointer, N);3170
syslsp procedure BinaryReadVector(FilePointer, Vector, Count);3290
syslsp procedure BinaryWriteVector(FilePointer, Vector, Count);3465
syslsp procedure ReturnAddressP X;3612
lap '((!*entry StackCheck expr 0)4270

PS:<PSL.KERNEL.68.HP>SYSTEM-FASLIN.RED.0
00679,RLISP
syslsp procedure DepositValueCellLocation X;1383
syslsp procedure DepositExtraRegLocation X;1858
syslsp procedure DepositFunctionCellLocation X;2353
syslsp procedure BinaryOpenRead FileName;2910
syslsp procedure BinaryOpenWrite FileName;3357
syslsp procedure BinaryWrite(FilePointer, N);3781
syslsp procedure BinaryRead(FilePointer);4020
syslsp procedure BinaryReadBlock(FilePointer, BlockBase, BlockSize);4261
syslsp procedure BinaryWriteBlock(FilePointer, BlockBase, BlockSize);4393
syslsp procedure BinaryClose FilePointer;4498
syslsp procedure BinaryPositionFile(FilePointer, FilePosition);4657

PS:<PSL.KERNEL.68.HP>SYSTEM-FASLOUT.RED.0
00339,RLISP
smacro procedure RelocRightHalfTag X;1176
smacro procedure RelocRightHalfInf X;1238
smacro procedure RelocInfTag X;1295
smacro procedure RelocInfInf X;1351
smacro procedure RelocWordTag X;1410
smacro procedure RelocWordInf X;1467
macro procedure PutRightHalf B;1524

PS:<PSL.KERNEL.68.HP>SYSTEM-GC.RED.0
00155,RLISP
syslsp smacro procedure BeforeGCSystemHook();645
syslsp smacro procedure AfterGCSystemHook();876

PS:<PSL.KERNEL.68.HP>SYSTEM-IO.RED.0
00683,RLISP
syslsp procedure FindFreeChannel();3441
syslsp procedure SystemOpenFileForInput FileName;3822
syslsp procedure SystemOpenFileForOutput FileName;4491
syslsp procedure SystemOpenFileSpecial FileName;5204
syslsp procedure TestLegalChannel Channel;5377
syslsp procedure IndependentReadChar Channel;5938
syslsp procedure IndependentWriteChar (Channel, Chr);6839
syslsp procedure SystemMarkAsClosedChannel Channel;8032
syslsp procedure IndependentCloseChannel Channel;8312
Syslsp procedure ClearOneChannel(Chn,Bufflen,How);8478
syslsp procedure ClearIO();8785
syslsp procedure TerminalInputHandler Channel;9425

PS:<PSL.KERNEL.68.HP>TIMC.RED.0
00077,RLISP
lisp procedure TimC();331

PS:<PSL.KERNEL.68.HP>TRAP.RED.0
00049,RLISP

PS:<PSL.KERNEL.68.HP>WRITE-FLOAT.RED.0
00056,RLISP

PS:<PSL.KERNEL.68.HP>XXX-SYSTEM-IO.RED.0
00586,RLISP
syslsp procedure SysClearIo;1156
syslsp procedure HPString Sstring;1288
syslsp procedure HPlength Sstring;1394
syslsp procedure SysOpenRead(Channel,FileName);1502
syslsp procedure SysOpenWrite(Channel,FileName);1914
syslsp procedure SysReadRec(FileDescriptor,StringBuffer);2144
syslsp procedure  SysWriteRec (FileDescriptor, StringToWrite, StringLength);2549
syslsp procedure SysClose (FileDescriptor);2791
syslsp procedure SysMaxBuffer(FileDesc);2929
lisp procedure ContOpenError(FileName, AccessMode);3007

PS:<PSL.KERNEL.68.WICAT>FLOATS.RED.0
00197,RLISP
Lap '(1099
Lap '(1623
Lap '(2214
Lap '(3082
Lap '(3967
Lap '(4870
Lap '(5763
Lap '(6890
Lap '(7814
Lap '(8738
Lap '(9634

PS:<PSL.KERNEL.68.WICAT>GLOBAL-DATA.RED.0
00059,RLISP

PS:<PSL.KERNEL.68.WICAT>MAIN-START.RED.0
00197,RLISP
lap '((!*entry WICAT_MAIN expr 0)1148
syslsp procedure Reset();1477
syslsp procedure pre!-main();1538
syslsp procedure Main();1759

PS:<PSL.KERNEL.68.WICAT>SYSTEM-EXTRAS.RED.0
00061,RLISP

PS:<PSL.KERNEL.68.WICAT>SYSTEM-IO.RED.0
00629,RLISP
syslsp procedure FindFreeChannel();3594
syslsp procedure SystemOpenFileForInput FileName;3941
syslsp procedure SystemOpenFileForOutput FileName;4356
syslsp procedure SystemOpenFileSpecial FileName;4823
syslsp procedure TestLegalChannel Channel;4964
syslsp procedure IndependentReadChar Channel;5527
syslsp procedure IndependentWriteChar (Channel, Chr);5746
syslsp procedure SystemMarkAsClosedChannel Channel;6227
syslsp procedure IndependentCloseChannel Channel;6507
syslsp procedure ClearIO();6617
syslsp procedure TerminalInputHandler Channel;6795

PS:<PSL.KERNEL.68.WICAT>WICAT-ARITH.RED.0
00059,RLISP

PS:<PSL.KERNEL.68.WICAT>WICAT-SYSTEM-IO.RED.0
00947,RLISP
syslsp procedure SysClearIO();2205
syslsp procedure SysReadRec FileDescriptor;3091
syslsp procedure SysWriteRec(FileDescriptor,  Character);3766
syslsp procedure TimC();4209
syslsp procedure SysOpenRead(Channel, PslString);4337
syslsp procedure SysOpenWrite(Channel, PslString);4768
syslsp procedure SysClose  FileDescriptor;5217
Lap '((!*Entry Quit Expr 0)5395
syslsp procedure BinaryOpenRead FileName;5698
syslsp procedure BinaryOpenWrite FileName;6132
syslsp procedure BinaryWrite(FileDescriptor, BinaryWord);6574
syslsp procedure BinaryRead FileDescriptor;6992
syslsp procedure BinaryReadBlock(FileDescriptor, BlockBase, BlockSize);7413
syslsp procedure BinaryWriteBlock(FileDescriptor, BlockBase, BlockSize);7846
syslsp procedure BinaryClose FileDescriptor;8254
syslsp procedure BinaryPositionFile(FileDescriptor, NastySystemDependentNumber);8521

PS:<PSL.KERNEL.68.WICAT>WRITE-FLOAT.RED.0
00059,RLISP

PS:<PSL.KERNEL.CRAY>APPLY-LAP.RED.0
00303,RLISP
lap '((!*entry CodePrimitive expr 0)	% actually indefinite # of args685
lap '((!*entry CompiledCallingInterpreted expr 0)	% indefinite args825
lap '((!*entry FastApply expr 0)	% indefinite args979
lap '((!*entry UndefinedFunction expr 0)1120

PS:<PSL.KERNEL.CRAY>BINARY.RED.0
00526,RLISP
syslsp procedure BinaryOpenRead FileName;104
syslsp procedure BinaryOpenWrite FileName;548
syslsp procedure BinaryWrite(FilePointer, N);981
syslsp procedure BinaryRead FilePointer;1079
syslsp procedure BinaryReadBlock(FilePointer, BlockBase, BlockSize);1215
syslsp procedure BinaryWriteBlock(FilePointer, BlockBase, BlockSize);1335
syslsp procedure BinaryClose FilePointer;1428
syslsp procedure BinaryPositionFile(FilePointer, NastySystemDependentNumber);1597

PS:<PSL.KERNEL.CRAY>CRAY-GLOBAL-DATA.RED.0
00060,RLISP

PS:<PSL.KERNEL.CRAY>NEW-XXX-SYSTEM-IO.RED.0
01451,RLISP
syslsp procedure CrayFileName S;1188
syslsp procedure CrayString S;1289
syslsp procedure Craylength S;1344
syslsp procedure MyCTCLRIO;1745
syslsp procedure MyCTIOC u;1787
syslsp procedure MyCTOPENR (a, b);1836
syslsp procedure MyCTOPENW (a, b);1890
syslsp procedure MyCTREADR (a, b, c);1947
syslsp procedure MyCTWRITER (a, b, c);2008
syslsp procedure MyCTCLOSE (a);2063
syslsp procedure MyCTCKERR (a);2111
syslsp procedure MyCTTERMR (sz, strng);2167
syslsp procedure MyCTTERMW (strng, sz);2231
syslsp procedure SysClearIo;2707
syslsp procedure SysOpenRead(Channel, FileName);2878
syslsp procedure SysOpenWrite (Channel,FileName);3937
syslsp procedure SysReadRec (FileDescriptor, StringBuffer);5383
syslsp procedure SysWriteRec (FileDescriptor, StringToWrite, StringLength);5842
syslsp procedure SysClose (FileDescriptor);6403
syslsp procedure SysMaxBuffer(FileDesc);6610
syslsp procedure BinaryOpenRead FileName;8332
syslsp procedure BinaryOpenWrite FileName;8776
syslsp procedure BinaryWrite(FilePointer, N);9209
syslsp procedure BinaryRead FilePointer;9307
syslsp procedure BinaryReadBlock(FilePointer, BlockBase, BlockSize);9443
syslsp procedure BinaryWriteBlock(FilePointer, BlockBase, BlockSize);9563
syslsp procedure BinaryClose FilePointer;9656
syslsp procedure BinaryPositionFile(FilePointer, NastySystemDependentNumber);9825

PS:<PSL.KERNEL.CRAY>SYSTEM-IO.RED.0
00719,RLISP
syslsp procedure FindFreeChannel();3318
syslsp procedure SystemOpenFileForInput FileName;3699
syslsp procedure SystemOpenFileForOutput FileName;4368
syslsp procedure SystemOpenFileSpecial FileName;5098
syslsp procedure TestLegalChannel Channel;5239
syslsp procedure IndependentReadChar Channel;5800
syslsp procedure IndependentWriteChar (Channel, Chr);6702
Procedure FlushBuffer Channel;7230
syslsp procedure SystemMarkAsClosedChannel Channel;7805
syslsp procedure IndependentCloseChannel Channel;8085
Syslsp procedure ClearOneChannel(Chn,Bufflen,How);8251
syslsp procedure ClearIO();8605
syslsp procedure TerminalInputHandler Channel;9068

PS:<PSL.KERNEL.CRAY>XXX-GC.RED.0
00050,RLISP

PS:<PSL.KERNEL.CRAY>XXX-HEADER.RED.0
00831,RLISP
syslsp procedure InitHeap();2419
syslsp procedure CTSSmain;3515
Procedure Init();4102
Procedure GetC();4298
Procedure TimC();4441
procedure PutC x;4579
procedure Quit;4690
procedure Date;4756
Procedure VersionName;4801
procedure PutInt I;4847
LAP '((!*entry !%Store!-Jcall Expr 2) % CodeAddress, Storage Address5329
LAP '((!*entry !%copy!-function!-cell Expr 2) % from to5687
LAP '((!*ENTRY UndefinedFunction expr 1) % For missing Function6383
LAP '((!*ENTRY FLAG expr 2)      % Dummy for INIT6730
Procedure Wquotient(x,y);6910
Procedure Wremainder(x,y);6985
procedure LongTimes(x,y);7049
procedure LongDiv(x,y);7084
procedure LongRemainder(x,y);7136
Procedure Byte(WordAddress, I);7191
Procedure PutByte(WordAddress, I, ByteArg);7335

PS:<PSL.KERNEL.CRAY>XXX-SYSTEM-GC.RED.0
00158,RLISP
syslsp smacro procedure BeforeGCSystemHook();384
syslsp smacro procedure AfterGCSystemHook();442

PS:<PSL.KERNEL.CRAY>XXX-SYSTEM-IO.RED.0
01019,RLISP
syslsp procedure CrayFileName S;1188
syslsp procedure CrayString S;1289
syslsp procedure Craylength S;1344
syslsp procedure MyCTCLRIO;1745
syslsp procedure MyCTIOC u;1787
syslsp procedure MyCTOPENR (a, b);1836
syslsp procedure MyCTOPENW (a, b);1890
syslsp procedure MyCTREADR (a, b, c);1947
syslsp procedure MyCTWRITER (a, b, c);2008
syslsp procedure MyCTCLOSE (a);2063
syslsp procedure MyCTCKERR (a);2111
syslsp procedure MyCTTERMR (sz, strng);2167
syslsp procedure MyCTTERMW (strng, sz);2231
syslsp procedure SysClearIo;2707
syslsp procedure SysOpenRead(Channel, FileName);3058
syslsp procedure SysOpenWrite (Channel,FileName);4200
syslsp procedure SysReadRec (FileDescriptor, StringBuffer);5729
syslsp procedure SysWriteRec (FileDescriptor, StringToWrite, StringLength);6424
syslsp procedure SysClose (FileDescriptor);7029
syslsp procedure SysMaxBuffer(FileDesc);7285
procedure MyContError (ErrNum, ErrMsg, Exp);7340

PS:<PSL.KERNEL.VAX>APPLY-LAP.RED.0
00515,RLISP
lap '((!*entry CodeApply expr 2)	%. CodeApply(CodePointer, ArgList)892
lap '((!*entry CodeEvalApply expr 2)	%. CodeApply(CodePointer, EvLis Args)2747
lap '((!*entry BindEval expr 2)	 %. BindEval(FormalsList, ArgsToBeEvaledList);5998
lap '((!*entry CompiledCallingInterpreted expr 0)	%. link for lambda8665
lap '((!*entry FastApply expr 0)	%. Apply with arguments loaded12651
lap '((!*entry UndefinedFunction expr 0)	%. Error Handler for non code13781

PS:<PSL.KERNEL.VAX>DUMPLISP.RED.0
00092,RLISP
syslsp procedure DumpLisp Filename;640

PS:<PSL.KERNEL.VAX>FAST-BINDER.RED.0
00206,RLISP
lap '((!*Entry FastBind expr 0)		%. Bind IDs to values in registers521
lap '((!*Entry FastUnBind expr 0)	%. Unbind last N entries in bind stack2693

PS:<PSL.KERNEL.VAX>FUNCTION-PRIMITIVES.RED.0
00472,RLISP
lap '((!*entry PlantUnbound expr 1)1694
lap '((!*entry PlantLambdaLink expr 1)2135
lap '((!*entry PlantCodePointer expr 1)2565
syslsp procedure FUnBoundP U;2895
syslsp procedure FLambdaLinkP U;3049
syslsp procedure FCodeP U;3196
syslsp procedure MakeFUnBound U;3371
syslsp procedure MakeFLambdaLink U;3541
syslsp procedure MakeFCode(U, CodePtr);3723
syslsp procedure GetFCodePointer U;3931

PS:<PSL.KERNEL.VAX>GC.RED.0
00045,RLISP

PS:<PSL.KERNEL.VAX>GLOBAL-DATA.RED.0
00054,RLISP

PS:<PSL.KERNEL.VAX>IO-DATA.RED.0
00050,RLISP

PS:<PSL.KERNEL.VAX>MAIN-START.RED.0
00192,RLISP
lap '((!*entry !_!m!a!i!n expr 0)1072
syslsp procedure Reset();1601
syslsp procedure pre!-main();1662
syslsp procedure Main();2113

PS:<PSL.KERNEL.VAX>MINI-TRACE.RED.0
00053,RLISP

PS:<PSL.KERNEL.VAX>SCAN-TABLE.RED.0
00053,RLISP

PS:<PSL.KERNEL.VAX>SYMBOL-VALUES.RED.0
00200,RLISP
syslsp procedure UnboundP U;286
syslsp procedure MakeUnbound U;458
syslsp procedure ValueCell U;621
syslsp procedure Set(Exp, Val);1123

PS:<PSL.KERNEL.VAX>SYSTEM-EXTRAS.RED.0
00811,RLISP
syslsp procedure Quit();923
syslsp procedure Date();1021
syslsp procedure ReturnAddressP X;1750
lap '((!*entry ExitLisp expr 0)		%. Quit and don't keep process2231
syslisp procedure EchoOff();2668
syslisp procedure EchoOn();2749
syslisp procedure CharsInInputBuffer();2837
syslisp procedure FlushStdOutputBuffer();3023
syslisp procedure channelFlush( Chnl );3095
syslisp procedure importForeignString( c_s );3534
lisp procedure init!-file!-string( program!-name );3966
syslisp procedure user!-homedir!-string();4166
syslsp procedure getEnv S;4309
syslsp procedure cd S;4598
syslsp procedure pwd;4837
syslsp macro procedure vecBase U;5011
syslisp procedure getUnixArgs( ArgC, ArgV );5237
procedure getStartupName();5532

PS:<PSL.KERNEL.VAX>SYSTEM-FASLIN.RED.0
00664,RLISP
syslsp procedure DepositValueCellLocation X;337
syslsp procedure DepositExtraRegLocation X;819
syslsp procedure DepositFunctionCellLocation X;1321
syslsp procedure BinaryOpenRead FileName;1885
syslsp procedure BinaryOpenWrite FileName;2142
syslsp procedure BinaryWrite(Channel, N);2401
syslsp procedure BinaryRead Channel;2464
syslsp procedure BinaryReadBlock(Channel, BlockBase, BlockSize);2551
syslsp procedure BinaryWriteBlock(Channel, BlockBase, BlockSize);2666
syslsp procedure BinaryClose Channel;2754
syslsp procedure BinaryPositionFile(Channel, NastySystemDependentNumber);2852

PS:<PSL.KERNEL.VAX>SYSTEM-FASLOUT.RED.0
00330,RLISP
smacro procedure RelocRightHalfTag X;644
smacro procedure RelocRightHalfInf X;707
smacro procedure RelocInfTag X;765
smacro procedure RelocInfInf X;821
smacro procedure RelocWordTag X;879
smacro procedure RelocWordInf X;936
macro procedure PutRightHalf B;993

PS:<PSL.KERNEL.VAX>SYSTEM-GC.RED.0
00153,RLISP
syslsp smacro procedure BeforeGCSystemHook();452
syslsp smacro procedure AfterGCSystemHook();523

PS:<PSL.KERNEL.VAX>SYSTEM-IO.RED.0
00644,RLISP
syslsp procedure FindFreeChannel();651
syslsp procedure VaxReadChar Channel;887
syslsp procedure VaxWriteChar(Channel, Chr);1111
syslsp procedure SystemOpenFileForInput FileName;1250
syslsp procedure SystemOpenFileForOutput FileName;1842
syslsp procedure ClearIO();2518
syslsp procedure RDTTY(InputBuffer, Limit, Prompt, Channel);2789
syslsp procedure TerminalInputHandler Chn;3172
syslsp procedure SystemMarkAsClosedChannel FileDes;3654
syslsp procedure VaxCloseChannel Channel;3742
syslsp procedure SystemOpenFileSpecial FileName;3839
syslsp procedure System S;4015

PS:<PSL.KERNEL.VAX>TIMC.RED.0
00128,RLISP
lap '((!*entry TimC expr 0)	% times() system call gets runtime in 1/60 secs346

PS:<PSL.KERNEL.VAX>TRAP.RED.0
00151,RLISP
lisp procedure !*SigSetup(SigName, ErrorString);349
lap '((!*entry InitializeInterrupts expr 0)1060

PS:<PSL.KERNEL.VAX>WRITE-FLOAT.RED.0
00134,RLISP
lap '((!*entry WriteFloat1 expr 2)390
syslsp procedure WriteFloat(B, F);609

PS:<PSL.NEW>AD-HOC-OOL.RED.0
00547,RLISP
Procedure ObjectP x;1035
procedure Define!-Object(Type,Slots,Default!-Object);1123
Procedure Object!-TypeP x;1381
procedure Create!-Object(Object!-type);1458
procedure Lookup(Object,Slot);1637
procedure Lookup1(Object,Slot);2121
procedure Enter(Object,Slot,Value);2477
Procedure Send(Object,Form);2938
Procedure Dispatch1(Object,FnName,Default);3281
Procedure Dispatch2(Object1,Object2,FnName, Default);3706
procedure Show!-object x;4259
procedure Default!-Show!-Object x;4345

PS:<PSL.NEW>COMPILER.RED.0
12007,RLISP
SYMBOLIC PROCEDURE !&MKFUNC FN;7904
SYMBOLIC PROCEDURE WARRAYP X;7949
SYMBOLIC PROCEDURE WVARP X;8018
SYMBOLIC PROCEDURE WCONSTP X;8068
SYMBOLIC PROCEDURE !&ANYREGP X;8147
macro procedure LocalF U;8198
SYMBOLIC PROCEDURE COMPILE X;8540
SYMBOLIC PROCEDURE COMPD(NAME!&,TY,EXP);9156
SYMBOLIC PROCEDURE !&PASS1 EXP;11382
SYMBOLIC PROCEDURE PA1ERR(X);11489
lisp procedure !&Pa1(U, Vbls);11588
SYMBOLIC PROCEDURE !&PA1V(U,VBLS, VAR);11701
SYMBOLIC PROCEDURE !&PA1X(U,VBLS,VAR);11945
SYMBOLIC PROCEDURE !&PALIS(U,VBLS);14571
SYMBOLIC PROCEDURE !&PALISV(U,VBLS, VAR);14643
SYMBOLIC PROCEDURE ISAWCONST X;14726
SYMBOLIC PROCEDURE !&CONSTTAG();14844
SYMBOLIC PROCEDURE MKWCONST X;14922
SYMBOLIC PROCEDURE !&PAWCONST(U, VBLS);15139
SYMBOLIC PROCEDURE NONLOCAL X;15195
SYMBOLIC PROCEDURE NONLOCALLISP X;15320
SYMBOLIC PROCEDURE NONLOCALSYS X;15538
SYMBOLIC PROCEDURE !&PANONLOCAL(X, VBLS);15671
SYMBOLIC PROCEDURE MKNONLOCAL U;16344
SYMBOLIC PROCEDURE !&MKNAM U;16679
SYMBOLIC PROCEDURE !&MKPROGN U;16882
SYMBOLIC PROCEDURE !&EQP U;16966
SYMBOLIC PROCEDURE !&EQVP U;17090
SYMBOLIC PROCEDURE !&EQPL U;17323
SYMBOLIC PROCEDURE !&MAKEADDRESS U;17405
SYMBOLIC PROCEDURE !&DOOP U;17971
SYMBOLIC PROCEDURE !&ALLCONST L;18240
lisp procedure !&PaReformWTimes2 U;18377
SYMBOLIC PROCEDURE !&ASSOCOP(U,VBLS);18762
SYMBOLIC PROCEDURE !&ASSOCOPV(U,VBLS,VAR);19058
SYMBOLIC PROCEDURE !&ASSOCOP1(OP,ARGS);19965
SYMBOLIC PROCEDURE !&ASSOCOP2(OP,ARG);20100
SYMBOLIC PROCEDURE !&INSOP(OP,L);20204
SYMBOLIC PROCEDURE !&INSOP1(NEW, RL, OP);20460
SYMBOLIC PROCEDURE !&GROUP(U,VBLS);20574
SYMBOLIC PROCEDURE !&GROUPV(U,VBLS,VAR);21062
SYMBOLIC PROCEDURE !&MAKEXP(ARGS,INVARGS,FNS);23128
SYMBOLIC PROCEDURE !&GETGROUPARGS(FNS,EXP,INVFLG,RES);23399
SYMBOLIC PROCEDURE !&GETGROUPARGS1(THING,INVFLG,RES);23894
SYMBOLIC PROCEDURE !&GETGROUPARGS2(FNS,ARGS,INVFLG,RES);24038
SYMBOLIC PROCEDURE !&DELARG(ARG,ARGS);24200
lisp procedure !&PaApply(U, Vars);24469
SYMBOLIC PROCEDURE !&PAASSOC(U,VARS);24861
SYMBOLIC PROCEDURE !&PAASSOC1(ASSOCVAR,ASSOCLIST);24969
SYMBOLIC PROCEDURE !&PACOND(U,VBLS);25170
lisp procedure !&PaCatch(U, Vbls);25908
SYMBOLIC PROCEDURE !&PADIFF(U,VARS);26476
SYMBOLIC PROCEDURE !&PAEQUAL(U,VARS);26618
SYMBOLIC PROCEDURE !&PAEQUAL1(LEFT,RIGHT);26718
SYMBOLIC PROCEDURE !&PAFUNCTION(U,VBLS);26983
SYMBOLIC PROCEDURE !&PAGETMEM(U,VBLS);27193
SYMBOLIC PROCEDURE !&PAIDENT(U,VBLS);27270
SYMBOLIC PROCEDURE !&PACASE(U,VBLS);27384
SYMBOLIC PROCEDURE !&PALAMBDA(U,VBLS);27543
SYMBOLIC PROCEDURE !&PALESSP(U,VARS);27719
SYMBOLIC PROCEDURE !&PALIST(U, VBLS);27856
lisp procedure !&PaNth(U, Vbls);28203
lisp procedure !&PaPNth(U, Vbls);28314
lisp procedure !&PaNths(U, Vbls, FnTable);28459
SYMBOLIC PROCEDURE !&PAMAP(U, VBLS);28814
SYMBOLIC PROCEDURE !&PAMAPC(U, VBLS);28883
SYMBOLIC PROCEDURE !&PAMAPDO(U, VBLS, CARFLAG);28960
SYMBOLIC PROCEDURE !&PAMAPLIST(U, VBLS);29508
SYMBOLIC PROCEDURE !&PAMAPCAR(U, VBLS);29584
SYMBOLIC PROCEDURE !&PAMAPCOLLECT(U, VBLS, CARFLAG);29671
SYMBOLIC PROCEDURE !&PAMAPCON(U, VBLS);30477
SYMBOLIC PROCEDURE !&PAMAPCAN(U, VBLS);30550
SYMBOLIC PROCEDURE !&PAMAPCONC(U, VBLS, CARFLAG);30631
SYMBOLIC PROCEDURE !&PAMEMBER(U,VARS);31574
SYMBOLIC PROCEDURE !&PAMEMBER1(THING,LST);31676
SYMBOLIC PROCEDURE !&PAINTERN(U, VBLS);31889
SYMBOLIC PROCEDURE !&PAMINUS(U,VBLS);32128
SYMBOLIC PROCEDURE !&REFORMLOC U;32368
SYMBOLIC PROCEDURE !&REFORMNULL U;32498
SYMBOLIC PROCEDURE !&PAPLUS2(U,VARS);33143
SYMBOLIC PROCEDURE !&PAPROG(U,VBLS);33371
SYMBOLIC PROCEDURE !&PAPROGBOD(U,VBLS);33517
SYMBOLIC PROCEDURE !&PAPUTMEM(U,VBLS);33625
SYMBOLIC PROCEDURE !&PAPUTLISPVAR(U, VBLS);33728
SYMBOLIC PROCEDURE !&PALISPVAR(U, VBLS);33829
SYMBOLIC PROCEDURE !&PASETQ(U,VBLS);33896
SYMBOLIC PROCEDURE !&INSTALLDESTROY(NAME!&);34674
SYMBOLIC PROCEDURE !&COMPROC(EXP,NAME!&);35716
lisp procedure !&IReg N;37155
SYMBOLIC PROCEDURE !&WCONSTP X;37423
SYMBOLIC PROCEDURE !&PASS2 EXP;37729
SYMBOLIC PROCEDURE !&COMVAL(EXP,STATUS!&);37792
SYMBOLIC PROCEDURE !&COMVAL1(EXP,STOMAP!&,STATUS!&);38876
Symbolic Procedure !&Alloctemp(Exp);40100
SYMBOLIC PROCEDURE !&CALL(FN,ARGS,STATUS!&);40656
SYMBOLIC PROCEDURE !&CALL1(FN,ARGS,STATUS!&);40775
SYMBOLIC PROCEDURE !&COMLIS EXP;41640
SYMBOLIC PROCEDURE !&COMLIS1 EXP;41760
SYMBOLIC PROCEDURE !&SAVER1;43200
SYMBOLIC PROCEDURE !&COMPLY(FN,ARGS,STATUS!&);43635
SYMBOLIC PROCEDURE !&LOADARGS(ARGS,STATUS!&,PREGS!&);44583
SYMBOLIC PROCEDURE !&LOADOPENEXP(DESTREG!&,ARG,STATUS!&,PREGS!&);45054
SYMBOLIC PROCEDURE !&REMOPEN(DESTREG!&,ARGS);45962
SYMBOLIC PROCEDURE !&ARGLOC ARG;46045
SYMBOLIC PROCEDURE !&MEMADDRESS ARG;46780
SYMBOLIC PROCEDURE !&CALLOPEN(OPFN,DEST!&,ARGS,OP);47270
SYMBOLIC PROCEDURE !&MATCHES(PAT,SUBJ);47985
SYMBOLIC PROCEDURE !&ANY U;48323
SYMBOLIC PROCEDURE !&DEST U;48357
SYMBOLIC PROCEDURE !&USESDEST U;48448
SYMBOLIC PROCEDURE !&USESDESTL U;48531
SYMBOLIC PROCEDURE !&REGFP U;48636
SYMBOLIC PROCEDURE !&REGN U;48698
SYMBOLIC PROCEDURE !&MEM U;48780
SYMBOLIC PROCEDURE !&NOTANYREG U;48913
SYMBOLIC PROCEDURE !&SUBARGS(MAC,ARGS,PARAMS);48988
SYMBOLIC PROCEDURE !&SUBARG(ARG,ARGS,PARAMS);49097
SYMBOLIC PROCEDURE !&ARG1(ARG,ARGS,PARAMS);49465
SYMBOLIC PROCEDURE !&ARG2(ARG,ARGS,PARAMS);49533
SYMBOLIC PROCEDURE !&ARG3(ARG,ARGS,PARAMS);49602
SYMBOLIC PROCEDURE !&ARG4(ARG,ARGS,PARAMS);49672
SYMBOLIC PROCEDURE !&PARAM1(ARG,ARGS,PARAMS);49745
SYMBOLIC PROCEDURE !&PARAM2(ARG,ARGS,PARAMS);49808
SYMBOLIC PROCEDURE !&PARAM3(ARG,ARGS,PARAMS);49872
SYMBOLIC PROCEDURE !&PARAM4(ARG,ARGS,PARAMS);49937
SYMBOLIC PROCEDURE !&GETTEMP(TNAME,ARGS,PARAMS);50006
SYMBOLIC PROCEDURE !&GETTEMPLBL(LNAME,ARGS,PARAMS);50266
SYMBOLIC PROCEDURE !&GENSYM();50491
SYMBOLIC PROCEDURE !&COMPERROR U;50765
SYMBOLIC PROCEDURE !&COMPWARN U;50870
SYMBOLIC PROCEDURE !&EMITMAC MAC;50964
SYMBOLIC PROCEDURE !&EMITLOAD M;51384
SYMBOLIC PROCEDURE !&EMITSTORE M;51447
SYMBOLIC PROCEDURE !&EMITJUMP M;51513
SYMBOLIC PROCEDURE !&EMITLBL M;51567
SYMBOLIC PROCEDURE !&EMITMEMMOD M;51624
SYMBOLIC PROCEDURE !&NOANYREG ARGS;51984
SYMBOLIC PROCEDURE !&NOANYREG1 ARG;52153
SYMBOLIC PROCEDURE !&INREG ARGS;52275
SYMBOLIC PROCEDURE !&REGMEM ARGS;52383
SYMBOLIC PROCEDURE !&DESTMEM ARGS;52570
SYMBOLIC PROCEDURE !&DESTMEMA ARGS;53040
SYMBOLIC PROCEDURE !&LOADTEMP1 U;53938
SYMBOLIC PROCEDURE !&LOADTEMP2 U;54036
SYMBOLIC PROCEDURE !&CONSARGS ARGS;54143
SYMBOLIC PROCEDURE !&LOADTEMPREG ARG;54366
SYMBOLIC PROCEDURE !&FIXREGTEST(OP,ARGS);54614
SYMBOLIC PROCEDURE !&FIXREGTEST1(OP, A1, A2);54712
SYMBOLIC PROCEDURE !&SETREGS1(OP, ARGS);55238
SYMBOLIC PROCEDURE !&LOCATE X;55332
SYMBOLIC PROCEDURE !&LOCATEL U;56493
SYMBOLIC PROCEDURE !&LREG(REG,VAL);56696
SYMBOLIC PROCEDURE !&LREG1(X);56968
SYMBOLIC PROCEDURE !&JUMPT LAB;57040
SYMBOLIC PROCEDURE !&JUMPNIL LAB;57133
SYMBOLIC PROCEDURE !&VARBIND(VARS,LAMBP);57289
SYMBOLIC PROCEDURE !&FREERSTR(ALSTS!&,STATUS!&);58759
SYMBOLIC PROCEDURE !&ATTACH U;58959
SYMBOLIC PROCEDURE !&STORELOCAL(U,REG);59032
SYMBOLIC PROCEDURE !&CLRSTR VAR;59603
SYMBOLIC PROCEDURE !&COMTST(EXP,LABL);59975
SYMBOLIC PROCEDURE !&COMOPENTST(PAT,EXP,DESTLAB,PREGS!&);61137
SYMBOLIC PROCEDURE !&REMVARL VARS;61586
SYMBOLIC PROCEDURE !&PROTECT U;61740
SYMBOLIC PROCEDURE !&RSTVARL(VARS,LST);62079
SYMBOLIC PROCEDURE !&RSTVAR(VAR,VAL);62258
SYMBOLIC PROCEDURE !&UNPROTECT VAL;62422
SYMBOLIC PROCEDURE !&STOREVAR(U,V);62528
SYMBOLIC PROCEDURE !&REFERENCES(EXP,VAR);62870
SYMBOLIC PROCEDURE !&REFERENCESL(EXP,VAR);63081
SYMBOLIC PROCEDURE !&CFNTYPE FN;63207
SYMBOLIC PROCEDURE !&GENLBL;63394
SYMBOLIC PROCEDURE !&GETLBL LABL;63554
SYMBOLIC PROCEDURE !&ATTLBL LBL;63755
SYMBOLIC PROCEDURE !&ATTJMP LBL;63902
SYMBOLIC PROCEDURE !&TRANSFERP X;64176
SYMBOLIC PROCEDURE !&DEFEQLBL(LAB1,LAB2);64347
SYMBOLIC PROCEDURE !&DEFEQLBL1(LABS,LAB1,LAB2);64445
SYMBOLIC PROCEDURE !&LABCLASS(LAB);64787
SYMBOLIC PROCEDURE !&DELCLASS(LAB,LABS);64990
SYMBOLIC PROCEDURE !&LBLEQ(LAB1,LAB2);65113
SYMBOLIC PROCEDURE !&FRAME U;65177
SYMBOLIC PROCEDURE !&GETFRM U;65520
SYMBOLIC PROCEDURE !&ANYREG U;65922
SYMBOLIC PROCEDURE !&ANYREGL U;66531
SYMBOLIC PROCEDURE !&ANYREGFNP U;66620
SYMBOLIC PROCEDURE !&OPENP U;66761
SYMBOLIC PROCEDURE !&OPENPL U;66873
SYMBOLIC PROCEDURE !&OPENFNP U;66953
SYMBOLIC PROCEDURE !&CONSTP U;67011
SYMBOLIC PROCEDURE !&VARP U;67120
SYMBOLIC PROCEDURE !&REGP U;67240
SYMBOLIC PROCEDURE !&NOSIDEEFFECTP U;67316
SYMBOLIC PROCEDURE !&NOSIDEEFFECTPL U;67683
SYMBOLIC PROCEDURE !&RVAL(R,RGS);67973
SYMBOLIC PROCEDURE !&REGVAL R;68184
SYMBOLIC PROCEDURE !&ADDRVALS(REG,RGS,VALS);68322
SYMBOLIC PROCEDURE !&MKREG NUM;68586
SYMBOLIC PROCEDURE !&MKFRAME NUM;68937
SYMBOLIC PROCEDURE !&RASSOC(VAL,RGS);69312
SYMBOLIC PROCEDURE !&REPASC(REG,VAL,REGL);69572
SYMBOLIC PROCEDURE !&RMERGE U;69811
SYMBOLIC PROCEDURE !&INALL(THING,RG,LST);70465
SYMBOLIC PROCEDURE !&TEMPREG();70580
SYMBOLIC PROCEDURE !&REMREGS U;71088
SYMBOLIC PROCEDURE !&GETFVAR (V,SMAP);71291
SYMBOLIC PROCEDURE !&REMREGSL U;71473
SYMBOLIC PROCEDURE !&ALLARGS ARGLST;71569
SYMBOLIC PROCEDURE !&ALLARGS1(FIRSTARGS,RESTARGS);71804
SYMBOLIC PROCEDURE !&REMMREFS();71988
SYMBOLIC PROCEDURE !&REMMREFS1 L;72094
SYMBOLIC PROCEDURE !&REFMEMORY EXP;72236
SYMBOLIC PROCEDURE !&REFMEMORYL L;72390
SYMBOLIC PROCEDURE !&REMVREFS;72491
SYMBOLIC PROCEDURE !&REMVREFS1 L;72983
SYMBOLIC PROCEDURE !&REFEXTERNAL EXP;73106
SYMBOLIC PROCEDURE !&REFEXTERNALL EXPS;73292
SYMBOLIC PROCEDURE !&EXTERNALVARP U;73418
SYMBOLIC PROCEDURE !&REMREFS V;73490
SYMBOLIC PROCEDURE !&REMREFS1(X,LST);73725
SYMBOLIC PROCEDURE !&TSTANDOR(EXP,LABL);74096
SYMBOLIC PROCEDURE !&COMANDOR(EXP,STATUS!&);75729
SYMBOLIC PROCEDURE !&COMAPPLY(EXP,STATUS);76204
SYMBOLIC PROCEDURE !&COMCOND(EXP,STATUS!&);77137
SYMBOLIC PROCEDURE !&COMCONS(EXP,STATUS!&);78960
SYMBOLIC PROCEDURE !&COMGO(EXP,STATUS!&);79444
SYMBOLIC PROCEDURE !&COMCASE(EXP,STATUS!&);79614
SYMBOLIC PROCEDURE !&INSTBL(TBL,I,L);81927
SYMBOLIC PROCEDURE !&GETNUM X;82148
SYMBOLIC PROCEDURE !&COMPROG(EXP,STATUS!&);82305
SYMBOLIC PROCEDURE !&COMPROGN(EXP,STATUS!&);83385
SYMBOLIC PROCEDURE !&COMRETURN(EXP,STATUS!&);83701
SYMBOLIC PROCEDURE !&DELMAC X;84079
SYMBOLIC PROCEDURE !&PASS3;84368
SYMBOLIC PROCEDURE !&INSERTMAC(PLACE,MAC);85273
SYMBOLIC PROCEDURE !&DELETEMAC(PLACE);85362
SYMBOLIC PROCEDURE !&REMCODE(KEEPTOP);85431
SYMBOLIC PROCEDURE !&UNUSEDLBLS(KEEPTOP);85659
SYMBOLIC PROCEDURE !&CLASSMEMBER(LAB,CLASSES);86170
SYMBOLIC PROCEDURE !&REMUNUSEDMAC(UNUSEDLABS);86316
lisp procedure !&FixLinks();86684
SYMBOLIC PROCEDURE !&PEEPHOLEOPT;87468
SYMBOLIC PROCEDURE !&STOPT U;87811
SYMBOLIC PROCEDURE !&LBLOPT U;88182
SYMBOLIC PROCEDURE !&JUMPOPT U;88769
SYMBOLIC PROCEDURE !&FIXCHAINS();88890
SYMBOLIC PROCEDURE !&MOVEJUMP(LABCODE,JUMPCODE);89273
SYMBOLIC PROCEDURE !&FIXFRM(OLDSTOMAP,OLDCODE,HIGHREG);89954
SYMBOLIC PROCEDURE !&GETFRAMES(CODE,OLDCODE,RES);91729
SYMBOLIC PROCEDURE !&GETFRAMES1(MACARGS,RES);91877
SYMBOLIC PROCEDURE !&GETFRAMES2(MACARG,RES);92017
SYMBOLIC PROCEDURE !&HIGHEST(START,STOP,HIGHREG,EXITFLAG);92286
SYMBOLIC PROCEDURE !&HIGHEST1(H,ARGS);93128
SYMBOLIC PROCEDURE !&HIGHEST2(H,ARG);93259
SYMBOLIC PROCEDURE !&REFORMMACROS;93508
SYMBOLIC PROCEDURE !&FIXLABS();93727
SYMBOLIC PROCEDURE !&MACROSUBST(MAC,ALIST);94217
SYMBOLIC PROCEDURE !&MACROSUBST1(ARGS,ALIST);94309
SYMBOLIC PROCEDURE !&MACROSUBST2(ARG,ALIST);94415
SYMBOLIC PROCEDURE !&REMTAGS();94642
SYMBOLIC PROCEDURE !&REMTAGS1 MAC;94729
SYMBOLIC PROCEDURE !&REMTAGS2 U;94894
SYMBOLIC PROCEDURE !&REMTAGS3 U;94979
SYMBOLIC PROCEDURE !&REMTAGS4 U;95160
SYMBOLIC PROCEDURE !&ONEREG U;95280
SYMBOLIC PROCEDURE !&TWOREG U;95364
SYMBOLIC PROCEDURE !&THREEREG U;95458

PS:<PSL.NEW>COPYING-GC.RED.0
00738,RLISP
syslsp smacro procedure PointerTagP X;1197
syslsp smacro procedure WithinOldHeapPointer X;1278
syslsp smacro procedure Mark X;1403
syslsp smacro procedure Marked X;1465
syslsp smacro procedure MarkID X;1525
syslsp smacro procedure MarkedID X;1627
syslsp smacro procedure ClearIDMark X;1699
syslsp procedure Reclaim();2228
syslsp procedure !%Reclaim();2279
syslsp procedure MarkAndCopyFromID X;3383
syslsp procedure CopyFromAllBases();3667
syslsp procedure CopyFromRange(Lo, Hi);4235
syslsp procedure CopyFromBase P;4403
syslsp procedure CopyItem X;4459
syslsp procedure CopyItem1 S;4918
syslsp procedure MakeIDFreeList();5936
syslsp procedure GCStats();6503

PS:<PSL.NEW>FASLOUT.RED.0
00566,RLISP
lisp procedure DfPrintFasl U;1459
	    LAP U >>2241
lisp procedure FaslPreEvalLoadTime U;3181
lisp procedure SaveUncompiledExpression U;4762
lisp procedure FaslOut FIL;4875
lisp procedure FaslEnd;5413
lisp procedure FaslAbort;5876
lisp procedure CompileUncompiledExpressions();6160
lisp procedure CodeFileHeader();6389
lisp procedure FindIDNumber U;6577
lisp procedure CodeFileTrailer();6885
lisp procedure UpdateBitTable(NumberOfEntries, FirstEntry);7789
lisp procedure AllocateFaslSpaces();8254

PS:<PSL.NEW>HP-COMP.RED.0
00162,RLISP
lisp procedure !*LamBind(Regs, FLst);4842
lisp procedure !*JumpOn(Register,LowerBound, UpperBound, LabelList);5804

PS:<PSL.NEW>IO-DATA.RED.0
00043,RLISP

PS:<PSL.NEW>MKFIL.RED.0
00147,RLISP
SYMBOLIC PROCEDURE MKFIL U;612
SYMBOLIC PROCEDURE DownCaseString U;804
procedure DownCaseChar C;953

PS:<PSL.NEW>NCOMPILER.RED.0
09668,RLISP
PROCEDURE !&MKFUNC FN;7604
PROCEDURE WARRAYP X;7732
PROCEDURE WVARP X;7840
PROCEDURE WCONSTP X;7916
PROCEDURE !&ANYREGP X;8025
MACRO PROCEDURE LocalF U;8102
PROCEDURE COMPILE X;8376
PROCEDURE COMPD(NAME!&,TY,EXP);8788
PROCEDURE !&PASS1 EXP;11274
PROCEDURE PA1ERR(X);11372
PROCEDURE !&Pa1(U, Vbls);11483
PROCEDURE !&PA1V(U,VBLS, VAR);11581
PROCEDURE !&PA1X(U,VBLS,VAR);11943
PROCEDURE !&PALIS(U,VBLS);14660
PROCEDURE !&PALISV(U,VBLS, VAR);14750
PROCEDURE ISAWCONST X;14855
PROCEDURE !&CONSTTAG();14959
PROCEDURE MKWCONST X;15084
PROCEDURE !&PAWCONST(U, VBLS);15296
PROCEDURE NONLOCAL X;15363
PROCEDURE NONLOCALLISP X;15496
PROCEDURE NONLOCALSYS X;15743
PROCEDURE !&PANONLOCAL(X, VBLS);15915
PROCEDURE MKNONLOCAL U;16440
PROCEDURE !&MKNAM U;16938
PROCEDURE !&MKPROGN U;17067
PROCEDURE !&EQP U;17199
PROCEDURE !&EQVP U;17302
PROCEDURE !&EQPL U;17460
PROCEDURE !&MAKEADDRESS U;17572
PROCEDURE !&DOOP U;18129
PROCEDURE !&ALLCONST L;18389
PROCEDURE !&PaReformWTimes2 U;18575
PROCEDURE !&ASSOCOP(U,VBLS);19061
PROCEDURE !&ASSOCOPV(U,VBLS,VAR);19351
PROCEDURE !&ASSOCOP1(OP,ARGS);20300
PROCEDURE !&ASSOCOP2(OP,ARG);20449
PROCEDURE !&INSOP(OP,L);20567
PROCEDURE !&INSOP1(NEW, RL, OP);20814
PROCEDURE !&GROUP(U,VBLS);20940
PROCEDURE !&GROUPV(U,VBLS,VAR);21420
PROCEDURE !&MAKEXP(ARGS,INVARGS,FNS);23498
PROCEDURE !&GETGROUPARGS(FNS,EXP,INVFLG,RES);23803
PROCEDURE !&GETGROUPARGS1(THING,INVFLG,RES);24312
PROCEDURE !&GETGROUPARGS2(FNS,ARGS,INVFLG,RES);24460
PROCEDURE !&DELARG(ARG,ARGS);24626
PROCEDURE !&PaApply(U, Vars);24939
PROCEDURE !&PAASSOC(U,VARS);25375
PROCEDURE !&PAASSOC1(ASSOCVAR,ASSOCLIST);25513
PROCEDURE !&PACOND(U,VBLS);25727
PROCEDURE !&PaCatch(U, Vbls);26635
PROCEDURE !&PADIFF(U,VARS);27244
PROCEDURE !&PAEQUAL(U,VARS);27424
PROCEDURE !&PAEQUAL1(LEFT,RIGHT);27557
PROCEDURE !&PAFUNCTION(U,VBLS);27741
PROCEDURE !&PAGETMEM(U,VBLS);28044
PROCEDURE !&PAIDENT(U,VBLS);28160
PROCEDURE !&PACASE(U,VBLS);28252
PROCEDURE !&PALAMBDA(U,VBLS);28433
PROCEDURE !&PALESSP(U,VARS);28682
PROCEDURE !&PALIST(U, VBLS);28853
PROCEDURE !&PaNth(U, Vbls);29318
PROCEDURE !&PaPNth(U, Vbls);29475
PROCEDURE !&PaNths(U, Vbls, FnTable);29695
PROCEDURE !&PAMAP(U, VBLS);30073
PROCEDURE !&PAMAPC(U, VBLS);30221
PROCEDURE !&PAMAPDO(U, VBLS, CARFLAG);30378
PROCEDURE !&PAMAPLIST(U, VBLS);30956
PROCEDURE !&PAMAPCAR(U, VBLS);31115
PROCEDURE !&PAMAPCOLLECT(U, VBLS, CARFLAG);31284
PROCEDURE !&PAMAPCON(U, VBLS);32115
PROCEDURE !&PAMAPCAN(U, VBLS);32270
PROCEDURE !&PAMAPCONC(U, VBLS, CARFLAG);32433
PROCEDURE !&PAMEMBER(U,VARS);33369
PROCEDURE !&PAMEMBER1(THING,LST);33525
PROCEDURE !&PAINTERN(U, VBLS);33672
PROCEDURE !&PAMINUS(U,VBLS);33969
PROCEDURE !&REFORMLOC U;34254
PROCEDURE !&REFORMNULL U;34407
PROCEDURE !&PAPLUS2(U,VARS);35100
PROCEDURE !&PAPROG(U,VBLS);35317
PROCEDURE !&PAPROGBOD(U,VBLS);35499
PROCEDURE !&PAPUTMEM(U,VBLS);35627
PROCEDURE !&PAPUTLISPVAR(U, VBLS);35819
PROCEDURE !&PALISPVAR(U, VBLS);36014
PROCEDURE !&PASETQ(U,VBLS);36160
PROCEDURE !&INSTALLDESTROY(NAME!&);37289
PROCEDURE !&COMPROC(EXP,NAME!&);38230
PROCEDURE !&IReg N;39754
PROCEDURE !&WCONSTP X;40192
PROCEDURE !&PASS2 EXP;40566
PROCEDURE !&COMVAL(EXP,STATUS!&);40734
PROCEDURE !&COMVAL1(EXP,STOMAP!&,STATUS!&);41694
PROCEDURE !&Alloctemp(Exp);42776
PROCEDURE !&CALL(FN,ARGS,STATUS!&);43604
PROCEDURE !&CALL1(FN,ARGS,STATUS!&);43780
PROCEDURE !&COMLIS EXP;44625
PROCEDURE !&COMLIS1 EXP;44743
PROCEDURE !&SAVER1;46303
PROCEDURE !&COMPLY(FN,ARGS,STATUS!&);46760
PROCEDURE !&LOADARGS(ARGS,STATUS!&,PREGS!&);47818
PROCEDURE !&LOADOPENEXP(DESTREG!&,ARG,STATUS!&,PREGS!&);48440
PROCEDURE !&REMOPEN(DESTREG!&,ARGS);49565
PROCEDURE !&ARGLOC ARG;49690
PROCEDURE !&MEMADDRESS ARG;50523
PROCEDURE !&CALLOPEN(OPFN,DEST!&,ARGS,OP);51112
PROCEDURE !&MATCHES(PAT,SUBJ);52087
PROCEDURE !&ANY U;52464
PROCEDURE !&DEST U;52508
PROCEDURE !&USESDEST U;52587
PROCEDURE !&USESDESTL U;52743
PROCEDURE !&REGFP U;52863
PROCEDURE !&REGN U;52952
PROCEDURE !&MEM U;53065
PROCEDURE !&NOTANYREG U;53219
PROCEDURE !&SUBARGS(MAC,ARGS,PARAMS);53320
PROCEDURE !&SUBARG(ARG,ARGS,PARAMS);53457
PROCEDURE !&ARG1(ARG,ARGS,PARAMS);53896
PROCEDURE !&ARG2(ARG,ARGS,PARAMS);53984
PROCEDURE !&ARG3(ARG,ARGS,PARAMS);54073
PROCEDURE !&ARG4(ARG,ARGS,PARAMS);54163
PROCEDURE !&PARAM1(ARG,ARGS,PARAMS);54256
PROCEDURE !&PARAM2(ARG,ARGS,PARAMS);54344
PROCEDURE !&PARAM3(ARG,ARGS,PARAMS);54433
PROCEDURE !&PARAM4(ARG,ARGS,PARAMS);54523
PROCEDURE !&GETTEMP(TNAME,ARGS,PARAMS);54617
PROCEDURE !&GETTEMPLBL(LNAME,ARGS,PARAMS);54931
PROCEDURE !&GENSYM();55210
PROCEDURE !&COMPERROR U;55498
PROCEDURE !&COMPWARN U;55734
PROCEDURE !&EMITMAC MAC;55871
PROCEDURE !&EMITLOAD M;56380
PROCEDURE !&EMITSTORE M;56463
PROCEDURE !&EMITJUMP M;56550
PROCEDURE !&EMITLBL M;56624
PROCEDURE !&EMITMEMMOD M;56702
PROCEDURE !&NOANYREG ARGS;57101
PROCEDURE !&NOANYREG1 ARG;57316
PROCEDURE !&INREG ARGS;57452
PROCEDURE !&REGMEM ARGS;57593
PROCEDURE !&DESTMEM ARGS;57821
PROCEDURE !&DESTMEMA ARGS;58282
PROCEDURE !&LOADTEMP1 U;59171
PROCEDURE !&LOADTEMP2 U;59260
PROCEDURE !&CONSARGS ARGS;59358
PROCEDURE !&LOADTEMPREG ARG;59612
PROCEDURE !&FIXREGTEST(OP,ARGS);59851
PROCEDURE !&FIXREGTEST1(OP, A1, A2);60129
PROCEDURE !&SETREGS1(OP, ARGS);60482
PROCEDURE !&LOCATE X;60575
PROCEDURE !&LOCATEL U;62028
PROCEDURE !&LREG(REG,VAL);62127
PROCEDURE !&LREG1(X);62525
PROCEDURE !&JUMPT LAB;62618
PROCEDURE !&JUMPNIL LAB;62719
PROCEDURE !&VARBIND(VARS,LAMBP);62895
PROCEDURE !&FREERSTR(ALSTS!&,STATUS!&);64352
PROCEDURE !&ATTACH U;64513
PROCEDURE !&STORELOCAL(U,REG);64610
PROCEDURE !&CLRSTR VAR;65229
PROCEDURE !&COMTST(EXP,LABL);65683
PROCEDURE !&COMOPENTST(PAT,EXP,DESTLAB,PREGS!&);66826
PROCEDURE !&REMVARL VARS;67052
PROCEDURE !&PROTECT U;67508
PROCEDURE !&RSTVARL(VARS,LST);67773
PROCEDURE !&RSTVAR(VAR,VAL);68090
PROCEDURE !&UNPROTECT VAL;68407
PROCEDURE !&STOREVAR(U,V);68506
PROCEDURE !&REFERENCES(EXP,VAR);68808
PROCEDURE !&REFERENCESL(EXP,VAR);69010
PROCEDURE !&CFNTYPE FN;69153
PROCEDURE !&GENLBL;69385
PROCEDURE !&GETLBL LABL;69581
PROCEDURE !&ATTLBL LBL;69821
PROCEDURE !&ATTJMP LBL;70053
PROCEDURE !&TRANSFERP X;70380
PROCEDURE !&DEFEQLBL(LAB1,LAB2);70627
PROCEDURE !&DEFEQLBL1(LABS,LAB1,LAB2);70768
PROCEDURE !&LABCLASS(LAB);71125
PROCEDURE !&DELCLASS(LAB,LABS);71357
PROCEDURE !&LBLEQ(LAB1,LAB2);71519
PROCEDURE !&FRAME U;71628
PROCEDURE !&GETFRM U;71997
PROCEDURE !&ANYREG U;72447
PROCEDURE !&ANYREGL U;73047
PROCEDURE !&ANYREGFNP U;73166
PROCEDURE !&OPENP U;73298
PROCEDURE !&OPENPL U;73425
PROCEDURE !&OPENFNP U;73540
PROCEDURE !&CONSTP U;73615
PROCEDURE !&VARP U;73715
PROCEDURE !&REGP U;73826
PROCEDURE !&NOSIDEEFFECTP U;73952
PROCEDURE !&NOSIDEEFFECTPL U;74310
PROCEDURE !&RVAL(R,RGS);74628
PROCEDURE !&REGVAL R;74830
PROCEDURE !&ADDRVALS(REG,RGS,VALS);74959
PROCEDURE !&MKREG NUM;75214
PROCEDURE !&MKFRAME NUM;75573
PROCEDURE !&RASSOC(VAL,RGS);75954
PROCEDURE !&REPASC(REG,VAL,REGL);76205
PROCEDURE !&RMERGE U;76435
PROCEDURE !&INALL(THING,RG,LST);77078
PROCEDURE !&TEMPREG();77234
PROCEDURE !&REMREGS U;77831
PROCEDURE !&GETFVAR (V,SMAP);78076
PROCEDURE !&REMREGSL U;78298
PROCEDURE !&ALLARGS ARGLST;78409
PROCEDURE !&ALLARGS1(FIRSTARGS,RESTARGS);78698
PROCEDURE !&REMMREFS();78897
PROCEDURE !&REMMREFS1 L;79044
PROCEDURE !&REFMEMORY EXP;79201
PROCEDURE !&REFMEMORYL L;79392
PROCEDURE !&REMVREFS;79508
PROCEDURE !&REMVREFS1 L;80071
PROCEDURE !&REFEXTERNAL EXP;80210
PROCEDURE !&REFEXTERNALL EXPS;80412
PROCEDURE !&EXTERNALVARP U;80554
PROCEDURE !&REMREFS V;80642
PROCEDURE !&REMREFS1(X,LST);80868
PROCEDURE !&TSTANDOR(EXP,LABL);81230
PROCEDURE !&COMANDOR(EXP,STATUS!&);82923
PROCEDURE !&COMAPPLY(EXP,STATUS);83418
PROCEDURE !&COMCOND(EXP,STATUS!&);84354
PROCEDURE !&COMCONS(EXP,STATUS!&);86274
PROCEDURE !&COMGO(EXP,STATUS!&);86812
PROCEDURE !&COMCASE(EXP,STATUS!&);87047
PROCEDURE !&INSTBL(TBL,I,L);89454
PROCEDURE !&GETNUM X;89701
PROCEDURE !&COMPROG(EXP,STATUS!&);89888
PROCEDURE !&COMPROGN(EXP,STATUS!&);91037
PROCEDURE !&COMRETURN(EXP,STATUS!&);91375
PROCEDURE !&DELMAC X;91850
PROCEDURE !&PASS3;92153
PROCEDURE !&INSERTMAC(PLACE,MAC);93049
PROCEDURE !&DELETEMAC(PLACE);93162
PROCEDURE !&REMCODE(KEEPTOP);93255
PROCEDURE !&UNUSEDLBLS(KEEPTOP);93520
PROCEDURE !&CLASSMEMBER(LAB,CLASSES);94053
PROCEDURE !&REMUNUSEDMAC(UNUSEDLABS);94219
PROCEDURE !&FixLinks();94629
PROCEDURE !&PEEPHOLEOPT;95404
PROCEDURE !&STOPT U;95756
PROCEDURE !&LBLOPT U;96163
PROCEDURE !&JUMPOPT U;96783
PROCEDURE !&FIXCHAINS();96945
PROCEDURE !&MOVEJUMP(LABCODE,JUMPCODE);97346
PROCEDURE !&FIXFRM(OLDSTOMAP,OLDCODE,HIGHREG);98071
PROCEDURE !&GETFRAMES(CODE,OLDCODE,RES);99859
PROCEDURE !&GETFRAMES1(MACARGS,RES);100020
PROCEDURE !&GETFRAMES2(MACARG,RES);100172
PROCEDURE !&HIGHEST(START,STOP,HIGHREG,EXITFLAG);100451
PROCEDURE !&HIGHEST1(H,ARGS);101327
PROCEDURE !&HIGHEST2(H,ARG);101469
PROCEDURE !&REFORMMACROS;101728
PROCEDURE !&FIXLABS();101977
PROCEDURE !&MACROSUBST(MAC,ALIST);102487
PROCEDURE !&MACROSUBST1(ARGS,ALIST);102592
PROCEDURE !&MACROSUBST2(ARG,ALIST);102711
PROCEDURE !&REMTAGS();102950
PROCEDURE !&REMTAGS1 MAC;103077
PROCEDURE !&REMTAGS2 U;103253
PROCEDURE !&REMTAGS3 U;103348
PROCEDURE !&REMTAGS4 U;103539
PROCEDURE !&ONEREG U;103712
PROCEDURE !&TWOREG U;103827
PROCEDURE !&THREEREG U;103952

PS:<PSL.NEW>SCAN-TABLE.RED.0
00046,RLISP

PS:<PSL.NEW>VAX-LAP.RED.0
03166,RLISP
smacro procedure LabelP X;1614
lisp procedure Lap U;1698
lisp procedure SaveEntry X;2433
lisp procedure DefineEntries();3178
lisp procedure DepositInstruction X;3319
lisp procedure DepositByteBranchInstruction X;4637
lisp procedure DepositHalfWordBranchInstruction X;4793
procedure DepositByteFirstInstruction X;4943
lisp procedure DepositOperand X;5315
lisp procedure DepositNumericOperand N;5691
lisp procedure DepositByteOperand X;5874
lisp procedure DepositNumericByteOperand N;6262
lisp procedure DepositImmediate X;6441
lisp procedure DepositRegisterOperand(X, AddressingTypeMask);6803
lisp procedure DepositRegister X;7177
lisp procedure DepositAutoDecrement X;7322
lisp procedure DepositDisplacementOperand(Displacement, Register, DeferredBit);7530
lisp procedure DepositRelativeOperand(Displacement, DeferredBit);8239
lisp procedure DepositDisplacement X;8912
lisp procedure DepositDeferred X;9074
lisp procedure DepositAutoIncrement X;9499
lisp procedure DepositIndexed X;9660
lisp procedure DepositAbsolute X;9842
lisp procedure DepositFluid X;10002
lisp procedure DepositExtraReg X;10249
lisp procedure DepositEntry X;10411
lisp procedure DepositForeignEntry X;10578
lisp procedure DepositRelative X;10951
lisp procedure DepositWordBlock X;11031
lisp procedure DepositHalfWordBlock X;11193
lisp procedure DepositByteBlock X;11359
lisp procedure DepositString X;11500
lisp procedure DepositFloat X;11735
lisp procedure MakeExpressionRelative(Exp, OffsetFromHere);11997
lisp procedure MakeInternalEntryRelative(Nam, OffsetFromHere);12435
lisp procedure LabelOffset L;13025
lisp procedure OptimizeBranches BranchCodeList!*;13378
lisp procedure DeleteAllButLabels X;13735
lisp procedure BuildOffsetTable();14014
lisp procedure FindLongBranches();14675
lisp procedure FindDisplacement InstructionOffsetPair;14975
lisp procedure FindLabelOffset L;15124
lisp procedure FindEntryOffset L;15384
lisp procedure MakeLongBranch AList;15564
lisp procedure IncreaseAllOffsets(X, N);16664
lisp procedure GeneralBranchInstructionP X;16811
lisp procedure InstructionLength X;16913
lisp procedure ByteFirstLength X;17271
lisp procedure InlineConstantLength X;17573
lisp procedure LapStringLength X;17724
lisp procedure OperandListLength X;17973
lisp procedure OperandLength X;18098
lisp procedure ByteOperandLength X;18407
lisp procedure ImmediateLength X;19134
lisp procedure IndexedLength X;19341
lisp procedure DeferredLength X;19442
lisp procedure DisplacementLength X;19547
lisp procedure DepositByte X;19756
lisp procedure DepositHalfWord X;19926
lisp procedure DepositWord X;20101
lisp procedure DepositWordExpression X;20274
lisp procedure DepositHalfWordExpression X;20619
lisp procedure DepositItem(TagPart, InfPart);21091
lisp procedure DepositHalfWordIDNumber X;21930
lisp procedure SystemFaslFixup();22277
syslsp procedure MakeRelocWord(RelocTag, RelocInf);23260
syslsp procedure MakeRelocInf(RelocTag, RelocInf);23363
syslsp procedure MakeRelocHalfWord(RelocTag, RelocInf);23471

PS:<PSL.SUPPORT.20>GETFTP.RED.0
00128,RLISP
Procedure ConcatStrings1 L;329
Procedure MakeFtp(Site,LString,Dstring);479

PS:<PSL.SUPPORT.APOLLO>CAL_SYSCALLS.RED.0
00883,RLISP
Symbolic Procedure CAL_Decode_ASCII_Time(TimeString);2215
Symbolic Procedure CAL_ecode_ASCII_Date(DateString);3116
Symbolic Procedure CAL_decode_ascii_tzdif(DateString);4011
Symbolic Procedure CAL_Decode_Time(HighPrecisionClock);5000
Symbolic Procedure CAL_Encode_Time(TimeRecord);5689
Symbolic Procedure CAL_Decode_Time();6163
Symbolic Procedure CAL_WeekDay(Year, Month, Day);6750
Symbolic Procedure CAL_Apply_Local_Offset(TimeClockT);7102
Symbolic Procedure CAL_Get_Local_Time();7366
Symbolic Procedure CAL_Sec_to_Clock(NumberOfSeconds);7870
Symbolic Procedure CAL_Clock_to_Sec(TimeClockT);8203
Symbolic Procedure CAL_add_Clock(Clock1,Clock2);8946
Symbolic Procedure CAL_Sub_Clock(Clock1,Clock2);9195
Symbolic Procedure CAL_Cmp_Clock(Clock1,Clock2);9434
Symbolic Procedure Time_Clock();10439

PS:<PSL.SUPPORT.APOLLO>CORE_SYSCALLS.RED.0
03125,RLISP
Symbolic Procedure Core_DSel_View_Surf(surface_name);145
Symbolic Procedure Core_Init(Out_Level, In_Level, Dimension);529
Symbolic Procedure Core_Init_View_Surf(surface_name, surface_type, display_mode);1104
Symbolic Procedure Core_Select_View_Surf(surface_name);1603
Symbolic Procedure Core_Term;1926
Symbolic Procedure Core_Term_View_Surf(surface_name);2239
Symbolic Procedure Core_Set_CharPath(char_path);2677
Symbolic Procedure Core_Set_CharPlane(x_component, y_component, z_component);3041
Symbolic Procedure Core_Set_CharPrec(char_precision);3483
Symbolic Procedure Core_Set_CharSize(char_width, char_height);3842
Symbolic Procedure Core_Set_CharSpace(char_space);4228
Symbolic Procedure Core_Set_CharUP_2(x_component, y_component);4577
Symbolic Procedure Core_Set_CharUP_3(x_component, y_component, z_component);4990
Symbolic Procedure Core_Set_Display_Mode mode;5424
Symbolic Procedure Core_Set_Fill_NDX index;5753
Symbolic Procedure Core_Set_Font new_font_id;6081
Symbolic Procedure Core_Set_Line_NDX index;6409
Symbolic Procedure Core_Set_Mark_Sym marker_symbol_id;6746
Symbolic Procedure Core_Set_Pgon_Edge_Style edge_style;7095
Symbolic Procedure Core_Set_Pick_ID pick_id;7434
Symbolic Procedure Core_Set_Text_NDX index;7761
Symbolic Procedure Core_Move_ABS_2( x_component, y_component);8106
Symbolic Procedure Core_Move_ABS_3(x_component, y_component, z_component);8515
Symbolic Procedure Core_Move_Rel_2( x_coordinate, y_coordinate);8965
Symbolic Procedure Core_Move_Rel_3( x_coordinate, y_coordinate, z_coordinate);9380
Symbolic Procedure Core_Line_ABS_2( x_component, y_component);9831
Symbolic Procedure Core_Line_ABS_3(x_component, y_component, z_component);10240
Symbolic Procedure Core_Line_Rel_2( x_coordinate, y_coordinate);10690
Symbolic Procedure Core_Line_Rel_3( x_coordinate, y_coordinate, z_coordinate);11105
Symbolic Procedure Core_PLine_ABS_3( x_array, y_array, z_array, point_count);11571
Symbolic Procedure Core_Set_Coord_System_Type(coord_type);12058
Symbolic Procedure Core_Set_NDC_Space_3(width, height, depth);12501
Symbolic Procedure Core_Term_View_Surf(surface_name);12929
Symbolic Procedure Core_Begin_Batch_Of_Updates;13270
Symbolic Procedure Core_End_Batch_Of_Updates;13593
Symbolic Procedure Core_Set_View_Ref_Pt(x_component, y_component, z_component);13948
Symbolic Procedure Core_Set_View_Plane_Norm( x_component, y_component, z_component);14423
Symbolic Procedure Core_Set_View_Up_3(x_component, y_component, z_component);14895
Symbolic Procedure Core_Set_Proj( projection_type, x_component, y_component, z_component);15374
Symbolic Procedure Core_Set_Window( x_min, x_max, y_min, y_max);15880
Symbolic Procedure Core_Set_ViewPort_3(x_min, x_max, y_min, y_max, z_min, z_max);16374
Symbolic Procedure Core_Create_Temp_Seg;16921
Symbolic Procedure Core_Close_Temp_Seg;17231
Symbolic Procedure Core_Create_Ret_Seg(segment_name);17554
Symbolic Procedure Core_Close_Ret_Seg(segment_name);17930
Symbolic Procedure Core_New_Frame;18289

PS:<PSL.SUPPORT.APOLLO>DATE.RED.0
00100,RLISP
Procedure Int2Str i;207
procedure Date();278

PS:<PSL.SUPPORT.APOLLO>DUMPLISP1.RED.0
00176,RLISP
Lap '(1592
Lap '(2194
Procedure AddressOfFunction(FunctionName);3906
symbolic Procedure DumpLisp(FileName);4214

PS:<PSL.SUPPORT.APOLLO>GPR1_SYSCALLS.RED.0
00060,RLISP

PS:<PSL.SUPPORT.APOLLO>GPR2_SYSCALLS.RED.0
00105,RLISP
symbolic Procedure Gpr_Inq_Raster_Ops;6790

PS:<PSL.SUPPORT.APOLLO>MBX_SYSCALLS.RED.0
00813,RLISP
Symbolic Procedure MBX_Close(handle);476
Symbolic Procedure MBX_Cond_Get_Rec_Chan(handle,channel,bufferptr,bufferlen);1003
Symbolic Procedure MBX_Create_Server(name,namelen,bufsize,maxchan);2073
Symbolic Procedure MBX_Deallocater(handle,channel);2922
Symbolic Procedure MBX_Get_Conditional(handle,bufptr,buflen);3446
Symbolic Procedure MBX_Get_EC(handle,key);4332
Symbolic Procedure MBX_Get_Rec(handle,bufptr,buflen);5029
Symbolic Procedure MBX_Get_Rec_Chan(handle,chan,bufptr,buflen);5938
Symbolic Procedure MBX_Open(name,namelen,bufptr,buflen);6920
Symbolic Procedure MBX_Put_Chr(handle,bufptr,buflen);7729
Symbolic Procedure MBX_Put_Rec(handle,bufptr,buflen);8343
Symbolic Procedure MBX_Put_Rec_Cond(handle,bufptr,buflen);8955

PS:<PSL.SUPPORT.APOLLO>NAME_SYSCALLS.RED.0
00636,RLISP
Symbolic Procedure NAME_Add_LINK(LinkName,LinkText);475
Symbolic Procedure NAME_Create_Directory(DirectoryName);1323
Symbolic Procedure NAME_Create_File(FileName);1885
Symbolic Procedure NAME_Delete_Directory(DirectoryName);2412
Symbolic Procedure NAME_Delete_File(FileName);2974
Symbolic Procedure NAME_Get_NDIR();3571
Symbolic Procedure NAME_Set_NDIR(PathName);4398
Symbolic Procedure NAME_Get_WDIR();4987
Symbolic Procedure NAME_Set_WDIR(PathName);5752
Symbolic Procedure NAME_Drop_LINK(LinkName);6351
Symbolic Procedure NAME_Read_LINK(LinkName);7076

PS:<PSL.SUPPORT.APOLLO>PAD_SYSCALLS.RED.0
01222,RLISP
Symbolic Procedure PAD_Clear_Frame(StreamID,Seek_Key);464
Symbolic Procedure PAD_Close_Frame(StreamID);882
Symbolic Procedure PAD_Cooked(StreamID);1232
Symbolic Procedure PAD_CPR_Enable(StreamID,Report_Type);1593
Symbolic Procedure PAD_Create(PadName,2001
Symbolic Procedure PAD_Create_Window(PathName, WindowType, Window);3206
Symbolic Procedure PAD_Create_Frame(StreamID, Width, Height);4073
Symbolic Procedure PAD_Def_PFK(StreamID,4546
Symbolic Procedure PAD_Delete_Frame(StreamID);5248
Symbolic Procedure PAD_DM_CMD(StreamID,5598
Symbolic Procedure Pad_Edit_Wait(StreamID);6185
Symbolic Procedure Pad_INQ_Font(StreamID);6535
Symbolic Procedure Pad_INQ_Position(StreamID);7805
Symbolic Procedure Pad_INQ_Windows(StreamID);8411
Procedure PAD_Load_Font(StreamID,PathName);9159
Symbolic Procedure Pad_Locate(StreamID);9811
Symbolic Procedure Pad_Move(StreamID,RelOrAbs, Xposition, Yposition);10549
Symbolic Procedure PAD_Raw(StreamID);11064
Symbolic Procedure Pad_SET_SCALE(StreamID,Xscale,Yscale);11422
Symbolic Procedure PAD_Set_Tabs(StreamID,TabStopVector);11906
Symbolic Procedure PAD_Use_Font(StreamID,FontID);12553

PS:<PSL.SUPPORT.APOLLO>PASCAL_COMPAT.RED.0
01189,RLISP
Symbolic Procedure Gpr_Package_Init;838
Symbolic Procedure L_Erase;2997
Symbolic Procedure L_Move(x,y);3076
Symbolic Procedure L_Draw(x,y);3165
Symbolic Procedure L_Text(string);3264
Symbolic Procedure L_Inq_Position(StreamId);3394
Symbolic Procedure L_Initplot;3760
Symbolic Procedure L_Inq_Text_Extent(String);3882
Symbolic Procedure L_quit;3995
Symbolic Procedure L_EndPlot;4116
Symbolic procedure L_Inq_Cur;4475
Symbolic procedure L_Raw(PaneStreamID);4631
Symbolic procedure L_Cooked(PaneStreamID);4730
Symbolic Procedure L_Set_Draw_Value(Number);4845
Symbolic Procedure L_Set_Text_Value(Number);4960
Symbolic Procedure L_Load_Font_File(FontName);5068
Symbolic Procedure L_UnLoad_Font_File(FontIndex);5210
Symbolic Procedure L_Set_Text_Font(FontIndex);5326
Symbolic Procedure L_Pad_Create(FileName, Type, Side, PaneSize);5462
Symbolic Procedure L_Define_Program_Function_Key(TheStream, WhichKey, Definition);5642
Symbolic procedure L_Invoke_shell();7141
symbolic procedure L_InitBitPad();8739
symbolic procedure L_GetPuckPosition();8992
symbolic procedure L_CloseBitPad();9533

PS:<PSL.SUPPORT.APOLLO>PROC1_SYSCALLS.RED.0
00061,RLISP

PS:<PSL.SUPPORT.APOLLO>STREAM_SYSCALLS.RED.0
00832,RLISP
Symbolic Procedure Stream_Close(StreamID);464
Procedure Stream_Create(PathName,Access,Concurrency);822
Procedure Stream_Create_Here(PathName,Access,Concurrency, LocationName);1581
Symbolic Procedure Stream_Delete(StreamID);2531
Symbolic Procedure Stream_Get_Conditional(StreamID,2888
Symbolic Procedure Stream_Get_EC(StreamID, StreamKey);3983
Symbolic Procedure Stream_Get_Prior_Rec(StreamID,4581
Symbolic Procedure Stream_Get_Rec(StreamID,5667
Procedure Stream_Open(PathName,Access,Concurrency);7159
Symbolic Procedure Stream_PUT_CHR(StreamID,7889
Symbolic Procedure Stream_PUT_REC(StreamID,8686
Symbolic Procedure Stream_Replace(StreamID,9907
Symbolic Procedure Stream_Seek(StreamID,10701
Symbolic Procedure Stream_Truncate(StreamID);11443

PS:<PSL.SUPPORT.APOLLO>WRITE-FLOAT.RED.0
00111,RLISP
procedure ChannelWriteFloat (Channel, FloatNum);48

PS:<PSL.TESTS>CRAY-TIME.RED.0
00104,RLISP
syslsp procedure IFAC n;164
procedure NCALL(N,M);284

PS:<PSL.TESTS>FIELD.RED.0
00349,RLISP
Procedure FirstCall;113
Procedure AShiftTest TestVal;956
Procedure FieldTest(x);1367
Procedure LshiftTest x;2261
Procedure Msg5(C1,C2,C3,C4,C5);3209
Procedure TestNum X;3305
Procedure TestErr X;3430
Procedure TestOk X;3534
Procedure MakeMask(N);3673
Procedure Extract(Z,sbit,lfld);3748

PS:<PSL.TESTS>IO-DATA.RED.0
00045,RLISP

PS:<PSL.TESTS>LAPTEST.RED.0
00216,RLISP
procedure foo1 x;178
procedure foo2 x;204
procedure foo3 x;230
procedure foo4 x;258
procedure foo5 x;293
procedure foo6a(Flu1,Flu2);382
procedure foo6();512

PS:<PSL.TESTS>MAIN0.RED.0
00095,RLISP
LAP '((!*ENTRY DummyFunctionDefinition Expr 1)171

PS:<PSL.TESTS>MAIN1.RED.0
00285,RLISP
Procedure FirstCall;114
procedure terpri();607
Procedure TestFact();651
Procedure ArithmeticTest (N);782
procedure TestTak();936
syslsp procedure Fact (N);1083
syslsp procedure Ifact u;1169
procedure UndefinedFunctionAux;1412

PS:<PSL.TESTS>MAIN2.RED.0
00121,RLISP
syslsp Procedure FirstCall;301
syslsp procedure UndefinedFunctionAux;1994

PS:<PSL.TESTS>MAIN3.RED.0
00245,RLISP
syslsp Procedure FirstCall;204
syslsp procedure CaseTest;400
syslsp procedure CTest N;696
syslsp procedure Show(N,S);883
Procedure CONStest();1019
syslsp procedure UndefinedFunctionAux;1230

PS:<PSL.TESTS>MAIN4.RED.0
00327,RLISP
Procedure FirstCall;278
Procedure MoreStuff;1581
procedure FunctionTest();1757
Procedure Compiled1;3522
Procedure Compiled2;3594
Procedure Compiled3(A1,A2,A3,A4);3678
syslsp procedure UndefinedFunctionAuxAux ;3967
syslsp procedure CompiledCallingInterpretedAux();4297

PS:<PSL.TESTS>MAIN5.RED.0
00234,RLISP
Procedure FirstCall;286
syslsp procedure TestSeries();1241
syslsp procedure TestGet();1336
syslsp procedure TestUndefined;1684
procedure UnbindN N;1794
procedure Lbind1(x,y);1862

PS:<PSL.TESTS>MAIN6.RED.0
00411,RLISP
Procedure FirstCall;340
Procedure TESTSERIES();1292
Procedure BindingTest;1398
Procedure InterpTest();1788
LAP '((!*entry TestFastApply expr 0) 2826
Procedure TestApply(Msg,Fn,Answer);3019
Procedure Compiled1(xxx,yyy);3266
Procedure Compiled2(xxx,yyy);3388
Procedure CompBindTest();3546
procedure Cbind1(x,CFL1,CFL2);3866
Procedure Cbind2();4210

PS:<PSL.TESTS>MAIN7.RED.0
00093,RLISP
Procedure FirstCall;360
Procedure Iotest;1452

PS:<PSL.TESTS>MAIN8.RED.0
00069,RLISP
Procedure FirstCall;431

PS:<PSL.TESTS>MAIN9.RED.0
00069,RLISP
Procedure FirstCall;415

PS:<PSL.TESTS>MINI-ALLOCATORS.RED.0
00201,RLISP
syslsp procedure GtHEAP N;463
syslsp procedure GtSTR N;945
syslsp procedure GtVECT N;1189
Procedure GtWarray N;1357
Procedure GtID();1422

PS:<PSL.TESTS>MINI-ARITHMETIC.RED.0
00275,RLISP
Procedure Plus2(x,y);77
Procedure Minus(x);211
Procedure Add1 N;310
Procedure SUB1 N;410
Procedure GreaterP(N1,N2);521
Procedure LessP(N1,N2);625
Procedure DIFFERENCE(N1,N2);731
Procedure TIMES2(N1,N2);886

PS:<PSL.TESTS>MINI-CARCDR.RED.0
00141,RLISP
Procedure Caar x;135
Procedure Cadr x;169
Procedure Cdar x;203
Procedure Cddr x;237

PS:<PSL.TESTS>MINI-CHAR-IO.RED.0
00117,RLISP
Procedure ChannelWriteChar(chn,x);56
Procedure WriteChar Ch;94

PS:<PSL.TESTS>MINI-COMP-SUPPORT.RED.0
00189,RLISP
procedure List2(A1,A2);107
procedure List3(A1,A2,A3);158
procedure List4(A1,A2,A3,A4);217
procedure List5(A1,A2,A3,A4,A5);282

PS:<PSL.TESTS>MINI-CONS-MKVECT.RED.0
00193,RLISP
procedure HardCons(x,y);127
procedure Cons(x,y);246
procedure Xcons(x,y);289
procedure Ncons x;329
syslsp procedure MkVect N;380

PS:<PSL.TESTS>MINI-DSKIN.RED.0
00122,RLISP
Procedure TypeFile F;41
Procedure DskIn F;231
procedure Lapin F;497

PS:<PSL.TESTS>MINI-EASY-NON-SL.RED.0
00250,RLISP
Procedure Atsoc(x,y);66
Procedure GEQ(N1,N2);226
Procedure LEQ(N1,N2);266
Procedure EqCar(x,y);308
procedure COPYD(newId,OldId);370
Procedure Delatq(x,y);601
procedure MkQuote x;786

PS:<PSL.TESTS>MINI-EASY-SL.RED.0
00541,RLISP
Procedure Atom x;175
procedure ConstantP U;212
Procedure Null U;263
fexpr Procedure De(x);398
fexpr Procedure Df(x);462
fexpr Procedure Dn(x);527
fexpr Procedure Dm(x);592
Fexpr Procedure SETQ a;692
fexpr procedure Progn x;784
procedure EvProgn fl;825
procedure EvCond fl;1002
fexpr procedure Cond x;1182
procedure Not U;1215
Procedure append(U,V);1277
Procedure MemQ(x,y);1362
Procedure REVERSE U;1465
procedure Evlis x;1628
Fexpr Procedure Quote a;1716

PS:<PSL.TESTS>MINI-EQUAL.RED.0
00076,RLISP
Procedure EqStr(s1,S2);58

PS:<PSL.TESTS>MINI-ERROR-ERRORSET.RED.0
00192,RLISP
syslsp procedure ErrorHeader;68
syslsp procedure Error s;129
syslsp procedure ErrorTrailer s;206
syslsp procedure Prin2L s;297

PS:<PSL.TESTS>MINI-ERROR-HANDLERS.RED.0
00126,RLISP
syslsp procedure FatalError s;94
syslsp procedure StdError m;180

PS:<PSL.TESTS>MINI-EVAL-APPLY.RED.0
00309,RLISP
Procedure InitEval;92
syslsp procedure Eval x;440
procedure Apply(fn,a);1378
Procedure LambdaApply(x,a);1941
Procedure LambdaEvalApply(x,y);2072
Procedure DoLambda(vars,body,args);2138
Procedure LambdaP(x);2479
Procedure GetLambda(fn);2527

PS:<PSL.TESTS>MINI-FLUID-GLOBAL.RED.0
00180,RLISP
procedure fluid u;54
procedure FluidP  U;98
procedure global u;128
procedure GlobalP u;173
procedure Unfluid U;204

PS:<PSL.TESTS>MINI-GC.RED.0
00126,RLISP
Procedure !%Reclaim();166
Procedure Reclaim();245
Procedure HeapInfo();322

PS:<PSL.TESTS>MINI-IO-ERRORS.RED.0
00116,RLISP
Procedure IoError M;44
procedure ContOpenError(fil,how);161

PS:<PSL.TESTS>MINI-LOOP-MACROS.RED.0
00084,RLISP
fexpr procedure While fl;51

PS:<PSL.TESTS>MINI-OBLIST.RED.0
00418,RLISP
syslsp procedure Intern s;144
syslsp procedure NewId S;358
Syslsp procedure InitNewId(D,s);419
Syslsp procedure LookupString(s);708
Syslsp procedure MapObl(Fn);1251
Syslsp procedure PrintFexprs;1338
Syslsp procedure Print1Fexpr(x);1397
Syslsp procedure PrintFunctions;1461
Syslsp procedure Print1Function(x);1526
syslisp procedure InitObList();1596

PS:<PSL.TESTS>MINI-OPEN-CLOSE.RED.0
00111,RLISP
Procedure Open(FileName,How);94
Procedure Close N;266

PS:<PSL.TESTS>MINI-OTHERS-SL.RED.0
00106,RLISP
procedure Length U;56
procedure Length1(U, N);138

PS:<PSL.TESTS>MINI-PRINTERS.RED.0
00586,RLISP
syslsp procedure Prin1 x;141
syslsp procedure Prin2 x;324
syslsp procedure Print x;507
syslsp procedure Prin2t x;565
syslsp procedure Pblank;634
syslsp procedure Prin1Int x;684
Procedure Prin1IntX x;843
syslsp procedure Prin1ID x;974
syslsp procedure Prin2Id x;1066
syslsp procedure Prin1String x;1115
syslsp procedure Prin2String x;1228
syslsp procedure Prin1Pair x;1368
syslsp procedure Prin2Pair x;1641
syslsp procedure terpri();1911
syslsp procedure PrtItm x;1958
Procedure ChannelPrin2(chn,x);2138

PS:<PSL.TESTS>MINI-PRINTF.RED.0
00212,RLISP
procedure PrintF(FMT, A1,A2,A3,A4,A5,A6);62
procedure errorprintf(FMT,a1,a2,a3,a4);262
procedure BLDMSG(FMT,A1,A2,A3,A4,A5,A6);355
procedure ErrPrin U;434

PS:<PSL.TESTS>MINI-PROPERTY-LIST.RED.0
00187,RLISP
Procedure Prop x;80
Procedure Get(x,y);151
Procedure Put(x,y,z);319
Procedure RemProp(x,y);566
Procedure GetFnType x;782

PS:<PSL.TESTS>MINI-PUTD-GETD.RED.0
00166,RLISP
Procedure Getd(fn);84
Procedure PutD(fn,type,body);562
syslsp procedure code!-number!-of!-arguments cp;1382

PS:<PSL.TESTS>MINI-RDS-WRS.RED.0
00093,RLISP
Procedure RDS N;63
Procedure WRS N;190

PS:<PSL.TESTS>MINI-READ.RED.0
00121,RLISP
Procedure READ;142
Procedure READ1(x);230
Procedure ReadList(x);377

PS:<PSL.TESTS>MINI-SEQUENCE.RED.0
00089,RLISP
syslsp procedure MkString(L, C);115

PS:<PSL.TESTS>MINI-SYMBOL-VALUES.RED.0
00080,RLISP
Procedure Set(x,y);47

PS:<PSL.TESTS>MINI-TOKEN.RED.0
00577,RLISP
Procedure InitRead;270
Procedure SetRaise x;554
Procedure Ratom;603
Procedure ClearWhite();1276
Procedure ClearComment();1387
Procedure ReadInt;1494
Procedure BufferToString n;1758
Procedure ReadStr;1948
Procedure ReadID;2196
Procedure RaiseChar c;2501
Procedure WhiteP x;2684
Procedure DigitP x;2802
Procedure AlphaP(x);2858
Procedure UpperCaseP x;2918
Procedure LowerCaseP x;2975
Procedure EscapeP x;3041
Procedure AlphaEscP x;3085
Procedure AlphaNumP x;3136
Procedure AlphaNumEscP x;3192

PS:<PSL.TESTS>MINI-TOP-LOOP.RED.0
00073,RLISP
Procedure Time();40

PS:<PSL.TESTS>MINI-TYPE-CONVERSIONS.RED.0
00125,RLISP
syslsp procedure Sys2Int N;73
syslsp procedure SYS2FIXN N;232

PS:<PSL.TESTS>MINI-TYPE-ERRORS.RED.0
00705,RLISP
procedure TypeError(Offender, Fn, Typ);119
procedure UsageTypeError(Offender, Fn, Typ, Usage);355
procedure IndexError(Offender, Fn);630
procedure NonPairError(Offender, Fn);732
procedure NonIdError(Offender, Fn);811
procedure NonNumberError(Offender, Fn);901
procedure NonIntegerError(Offender, Fn);987
procedure NonPositiveIntegerError(Offender, Fn);1083
procedure NonCharacterError(Offender, Fn);1185
procedure NonStringError(Offender, Fn);1273
procedure NonVectorError(Offender, Fn);1358
procedure NonWords(Offender, Fn);1437
procedure NonSequenceError(Offender, Fn);1530
procedure NonIOChannelError(Offender, Fn);1620

PS:<PSL.TESTS>NBTEST.RED.0
00346,RLISP
procedure fact N;135
syslsp procedure Ifact N;259
syslsp procedure ftest(n,m);371
syslsp procedure Iftest(n,m);428
procedure Ntest0;490
procedure show0 n;705
procedure Ntest1;776
procedure show1 n;1014
procedure NType0 x;1108
procedure NType1 x;1254
procedure show(N,v,pred);1506

PS:<PSL.TESTS>NEW-SYM.RED.0
00182,RLISP
lisp procedure ASMEnd;294
lisp procedure ReadSymFile();728
lisp procedure WriteSymFile();838
lisp procedure WriteSaveFile();1286

PS:<PSL.TESTS>NEW-TEST-CASE.RED.0
00878,RLISP
procedure readtest(name,fil);590
procedure readalltests;856
Procedure Show body;1601
procedure Lookup(Body,Facet);1911
procedure ShowTotal Body;2047
Procedure Total body;2363
procedure Ratio(Body1,Body2);2843
procedure ratio20 body;3575
procedure Ratio780 body;3625
procedure Ratio750 body;3676
procedure Ratiohp9836 body;3730
procedure MapTest(Fns,TestList);3791
Procedure ApplyFns(Fns,Args);3948
procedure MapBody(Fns,Body);4079
procedure MapBody1(Fn,Body);4274
Procedure Invert Body;4418
Procedure Inverted x;4473
procedure Logarithm Body;4511
procedure summary();4559
Procedure MapAll;4723
procedure MapFileAll(fil,Fns);5363
procedure MakePowers(Base,M);5530
Procedure FLTRND(N,fld);5689
Procedure NiceNum N;5765
Procedure PADNM(Num,n,m);5858
procedure TrimBlanks S;6360

PS:<PSL.TESTS>P-ALLOCATORS.RED.0
00601,RLISP
syslsp procedure GtHEAP N;693
syslsp procedure DelHeap(LowPointer, HighPointer);1191
syslsp procedure GtSTR N;1281
syslsp procedure GtConstSTR N;1528
syslsp procedure GtHalfWords N;1809
syslsp procedure GtVECT N;1997
syslsp procedure GtEVECT N;2170
syslsp procedure GtWRDS N;2345
syslsp procedure GtFIXN();2518
syslsp procedure GtFLTN();2681
syslsp procedure GtID();2845
syslsp procedure GtBPS N;3276
syslsp procedure DelBPS(Bottom, Top);3651
syslsp procedure GtWArray N;3754
syslsp procedure DelWArray(Bottom, Top);4116

PS:<PSL.TESTS>P-APPLY-LAP.RED.0
00466,RLISP
syslsp procedure CodeApply(CodePtr, ArgList);2155
lap '((!*entry CodeEvalApply expr 2)5659
syslsp procedure CodeEvalApplyAux(CodePtr, ArgList, P);6004
syslsp procedure BindEval(Formals, Args);8559
syslsp procedure BindEvalAux(Formals, Args, N);8646
syslsp procedure CompiledCallingInterpretedAux();9011
syslsp procedure FastLambdaApply();9199
syslsp procedure CompiledCallingInterpretedAuxAux Fn;9339

PS:<PSL.TESTS>P-COMP-GC.RED.0
01740,RLISP
syslsp smacro procedure PointerTagP X;2352
syslsp smacro procedure WithinHeapPointer X;2430
syslsp smacro procedure Mark X;2616
syslsp smacro procedure SetMark X;2711
syslsp smacro procedure ClearMark X;2822
syslsp smacro procedure Marked X;2950
syslsp smacro procedure MarkID X;3051
syslsp smacro procedure MarkedID X;3153
syslsp smacro procedure ClearIDMark X;3225
syslsp smacro procedure SkipLength X;3354
syslsp smacro procedure PutSkipLength(X, L);3439
syslsp smacro procedure SegmentNumber X;3745
syslsp smacro procedure OffsetInSegment X;3870
syslsp smacro procedure MovementWithinSegment X;3995
syslsp smacro procedure PutMovementWithinSegment(X, M);4093
syslsp smacro procedure ClearMovementWithinSegment X;4192
syslsp smacro procedure SegmentMovement X;4379
syslsp smacro procedure PutSegmentMovement(X, M);4465
syslsp smacro procedure Reloc X;4604
syslsp procedure Reclaim();5371
syslsp procedure !%Reclaim();5470
syslsp procedure MarkFromAllBases();6291
syslsp procedure MarkFromSymbols();6536
syslsp procedure MarkFromOneSymbol X;6855
syslsp procedure MarkFromRange(Low, High);7146
syslsp procedure MarkFromBase Base;7245
syslsp procedure CheckAndSetMark P;7896
syslsp procedure MarkFromVector Info;8291
syslsp procedure MakeIDFreeList();8529
syslsp procedure BuildRelocationFields();9110
syslsp procedure UpdateAllBases();11164
syslsp procedure UpdateSymbols();11417
syslsp procedure UpdateRegion(Low, High);11678
syslsp procedure UpdateHeap();11769
syslsp procedure UpdateItem Ptr;13099
syslsp procedure CompactHeap();13329
syslsp procedure GCError(Message, P);14365
syslsp procedure GCMessage();14519

PS:<PSL.TESTS>P-FAST-BINDER.RED.0
00118,RLISP
syslsp procedure LamBind V;474
syslsp procedure ProgBind V;679

PS:<PSL.TESTS>P-FUNCTION-PRIMITIVES.RED.0
00626,RLISP
smacro procedure SymFncBase D;2232
syslsp procedure FUnBoundP Fn;2488
syslsp procedure MakeFUnBound(D);2827
syslsp procedure FLambdaLinkP fn;3060
syslsp procedure MakeFlambdaLink D;3284
syslsp procedure FcodeP Fn;3546
syslsp procedure MakeFCode(U, CodePtr);3730
syslsp procedure GetFCodePointer U;3975
LAP '((!*entry CodePrimitive expr 15)4362
LAP '((!*entry CompiledCallingInterpreted expr 15)5049
LAP '((!*entry FastApply expr 0)5689
syslsp procedure SaveRegisters(A1, A2, A3, A4, A5, 7520
LAP '((!*ENTRY UndefinedFunctionAux expr 0) 8047

PS:<PSL.TESTS>PASCAL-SUPPORT.RED.0
00339,RLISP
 Procedure XXX_Init(var c:integer);175
 Procedure XXX_PutC(var c:integer);332
 Procedure XXX_GetC(var c:integer);415
 Procedure XXX_TimC(var c:integer);530
 Procedure XXX_Quit(var c:integer);724
 Procedure XXX_Err(var c:integer);899
 Procedure XXX_PutI(var c:integer);1023

PS:<PSL.TESTS>STUBS2.RED.0
00070,RLISP
procedure Flag(x, y);61

PS:<PSL.TESTS>STUBS3.RED.0
00044,RLISP

PS:<PSL.TESTS>STUBS4.RED.0
00153,RLISP
procedure SpaceD(M);96
procedure DasheD(M);161
procedure DotteD(M);240
Procedure ShouldBe(M,v,e);327

PS:<PSL.TESTS>STUBS5.RED.0
00184,RLISP
syslsp procedure UndefinedFunctionAuxAux;137
syslsp procedure INF x;523
syslsp procedure TAG x;560
syslsp procedure MKITEM(x,y);603

PS:<PSL.TESTS>STUBS6.RED.0
00074,RLISP
Procedure FUNCALL(FN,I);120

PS:<PSL.TESTS>STUBS7.RED.0
00044,RLISP

PS:<PSL.TESTS>STUBS8.RED.0
00118,RLISP
procedure Known!-free!-space();74
procedure ContinuableError(x,y);115

PS:<PSL.TESTS>STUBS9.RED.0
00094,RLISP
procedure MkQuote x;36
procedure flag(x,y);78

PS:<PSL.TESTS>SUB2.RED.0
00042,RLISP

PS:<PSL.TESTS>SUB3.RED.0
00042,RLISP

PS:<PSL.TESTS>SUB4.RED.0
00042,RLISP

PS:<PSL.TESTS>SUB5A.RED.0
00043,RLISP

PS:<PSL.TESTS>SUB5B.RED.0
00043,RLISP

PS:<PSL.TESTS>SUB6.RED.0
00042,RLISP

PS:<PSL.TESTS>SUB7.RED.0
00042,RLISP

PS:<PSL.TESTS>SUB8.RED.0
00042,RLISP

PS:<PSL.TESTS>SUB9.RED.0
00042,RLISP

PS:<PSL.TESTS>SYSTEM-IO.RED.0
00713,RLISP
syslsp procedure FindFreeChannel();3318
syslsp procedure SystemOpenFileForInput FileName;3699
syslsp procedure SystemOpenFileForOutput FileName;4368
syslsp procedure SystemOpenFileSpecial FileName;5098
syslsp procedure TestLegalChannel Channel;5239
syslsp procedure IndependentReadChar Channel;5800
syslsp procedure IndependentWriteChar (Channel, Chr);6702
Procedure FlushBuffer Channel;7230
syslsp procedure SystemMarkAsClosedChannel Channel;7805
syslsp procedure IndependentCloseChannel Channel;8085
Syslsp procedure ClearOneChannel(Chn,Bufflen,How);8251
syslsp procedure ClearIO();8605
syslsp procedure TerminalInputHandler Channel;9068

PS:<PSL.TESTS>WRITE-REAL-IN-PSL.RED.0
00372,RLISP
Procedure InitWriteFloats(MinEx,MaxEx,NDig);1113
Procedure FindExponent(Flt);1975
Procedure FindMantissa(Flt);2535
Procedure FloatPower10(n);2658
Procedure Flt2String(Flt);2908
Procedure ScaledFloat2String(Flt,Ndigits,Scale, MinNice,MaxNice);3026
procedure Int2String N;4927
Procedure Int2List N;5020

PS:<PSL.TESTS.20>20-TEST-GLOBAL-DATA.RED.0
00060,RLISP

PS:<PSL.TESTS.20>MAIN0.RED.0
00097,RLISP
Procedure FirstCall;112
procedure terpri();322

PS:<PSL.TESTS.20>MINI-KNOWN-TO-COMP-SL.RED.0
00244,RLISP
Procedure Car x;49
Procedure Cdr x;120
procedure CodeP x;194
Procedure Pairp x;228
Procedure Idp x;259
procedure Eq(x,y);290
procedure Null x;323
procedure Not x;356

PS:<PSL.TESTS.20>XXX-GC.RED.0
00047,RLISP

PS:<PSL.TESTS.20>XXX-HEADER.RED.0
00673,RLISP
syslsp procedure InitHeap();1704
lap '((!*entry Main!. expr 0)2348
Procedure Init();3072
Procedure GetC();3199
Procedure TimC();3340
procedure PutC x;3415
procedure Quit;3524
procedure ExitLisp;3593
Procedure Reset();3628
procedure Date;3707
Procedure VersionName;3752
procedure PutInt I;3801
LAP '((!*entry !%Store!-Jcall Expr 2) % CodeAddress, Storage Address3913
LAP '((!*entry !%copy!-function!-cell Expr 2) % from to4132
LAP '((!*ENTRY UndefinedFunction expr 0) % For missing Function4350
procedure LongTimes(x,y);4589
procedure LongDiv(x,y);4624
procedure LongRemainder(x,y);4665

PS:<PSL.TESTS.20>XXX-SYSTEM-GC.RED.0
00155,RLISP
syslsp smacro procedure BeforeGCSystemHook();384
syslsp smacro procedure AfterGCSystemHook();442

PS:<PSL.TESTS.20>XXX-SYSTEM-IO.RED.0
00561,RLISP
lap '((!*entry SysClearIO expr 0)1057
syslsp procedure SysOpenRead(Channel,FileName);1459
syslsp procedure SysOpenWrite(Channel,FileName);1975
lap '((!*entry Dec20Open expr 3)2293
syslsp procedure SysReadRec(FileDescriptor,StringBuffer);2898
lap '((!*entry Dec20ReadChar expr 1)3358
syslsp procedure  SysWriteRec (FileDescriptor, StringToWrite, StringLength);4233
lap '((!*entry Dec20WriteChar expr 2)4485
lap '((!*entry SysClose expr 1)4919
syslsp procedure SysMaxBuffer(FileDesc);5114

PS:<PSL.TRASH>LOAD.RED.0
00230,RLISP
macro procedure Load U;2547
lisp procedure EvLoad U;2610
macro procedure ReLoad U;2672
lisp procedure EvReLoad U;2739
lisp procedure Load1 U;2843
lisp procedure Imports L;3841

PS:<PSL.TRASH>MINI-PATCH.RED.0
00102,RLISP
LISP PROCEDURE !%SCAN;41
PROCEDURE UNREADCH U;118

PS:<PSL.TRASH>NONREC-GC.RED.0
00779,RLISP
syslsp smacro procedure PointerTagP X;888
syslsp smacro procedure WithinOldHeapPointer X;969
syslsp smacro procedure Mark X;1093
syslsp smacro procedure Marked X;1155
syslsp smacro procedure MarkID X;1215
syslsp smacro procedure MarkedID X;1317
syslsp smacro procedure ClearIDMark X;1389
syslsp procedure Reclaim();1923
syslsp procedure !%Reclaim();1974
syslsp procedure MarkAndCopyFromID X;2971
syslsp procedure CopyFromAllBases();3255
syslsp procedure CopyFromNewHeap();3833
syslsp procedure CopyFromRange(Lo, Hi);4207
syslsp procedure CopyFromBase P;4373
syslsp procedure CopyItem X;4429
syslsp procedure CopyItem1 S;4884
syslsp procedure MakeIDFreeList();5839
syslsp procedure GCStats();6394

PS:<PSL.TRASH>OLD-STRING-GENSYM.RED.0
00128,RLISP
lisp procedure StringGenSym();485
lisp procedure StringGenSym1 N;569

PS:<PSL.TRASH>PRINTF.RED.0
00520,RLISP
lisp procedure PrintF(FormatForPrintF!*, A1, A2, A3, A4, A5,842
lap '((!*entry PrintF1 expr 15)1118
syslsp procedure PrintF2 PrintFArgs;1587
syslsp procedure ErrorPrintF(Format, A1, A2, A3, A4);4929
syslsp procedure ToStringWriteChar(Channel, Ch);5260
syslsp procedure BldMsg(Format, Arg1, Arg2, Arg3, Arg4);5764
syslsp procedure ErrPrin U;6160
lisp procedure Prin2L Itm;6295
syslsp procedure ChannelPrintF(OUT!*, Format, A1, A2, A3, A4, A5, A6, A7, A8,6699

PS:<PSL.TRASH>RAWIO.RED.0
00732,RLISP
lisp procedure BITS1 U;761
macro procedure BITS U;883
lap '((!*entry PBIN expr 0)1126
lap '((!*entry PBOUT expr 1)1325
lap '((!*entry CharsInInputBuffer expr 0)1505
lap '((!*entry RFMOD expr 1)1951
lap '((!*entry RFCOC expr 1)2151
lap '((!*entry RTIW expr 1)2654
lisp procedure SaveInitialTerminalModes();2953
lap '((!*entry SFMOD expr 2)3186
lap '((!*entry STPAR expr 2)3454
lap '((!*entry SFCOC expr 3)3721
lap '((!*entry STIW expr 2)4112
lisp procedure EchoOff();4377
lisp procedure EchoOn();5417
Symbolic Procedure FlushStdOutputBuffer();6151
Symbolic Procedure PBIN();6440
Symbolic Procedure PBOUT(chr);6608
Symbolic Procedure rawio_break();6806

PS:<PSL.TRASH>TOKEN-SCANNER.RED.0
01390,RLISP
syslsp smacro procedure TokenTypeOfChar Ch;2087
syslsp smacro procedure CurrentDiphthongIndicator();2202
syslsp smacro procedure ResetBuf();2294
syslsp smacro procedure BackupBuf();2357
syslsp procedure ReadInBuf();2432
syslsp smacro procedure UnReadLastChar();2898
syslsp smacro procedure LowerCaseChar Ch;2983
syslsp smacro procedure RaiseChar Ch;3062
syslsp smacro procedure RaiseLastChar();3136
syslsp procedure MakeBufIntoID();3270
syslsp procedure MakeBufIntoString();3602
syslsp procedure MakeBufIntoSysNumber(Radix, Sign);3803
syslsp procedure MakeBufIntoLispInteger(Radix, Sign);4004
syslsp procedure MakeBufIntoFloat(Exponent, MinusP);4456
syslsp procedure ChannelReadToken Channel;5467
syslsp procedure RAtom();15503
syslsp procedure DigitToNumber D;15609
syslsp procedure MakeStringIntoLispInteger(S, Radix, Sign);15825
syslsp procedure MakeStringIntoSysInteger(Strng, Radix, Sign);15946
syslsp procedure MakeStringIntoBitString(Strng, Radix, RadixExponent, Sign);16621
syslsp procedure SysPowerOf2P Num;16947
syslsp procedure ScannerError Message;17116
syslsp procedure ScanPossibleDiphthong(Channel, StartChar);17246
syslsp procedure ReadLine();17610
syslsp procedure ChannelReadLine Chn;17716
syslsp procedure Package U;18169
syslsp procedure MakeInputAvailable();18285

PS:<PSL.UTIL>BIGBIG.RED.0
02224,RLISP
lisp procedure setbits x;1327
lisp procedure BignumP (V);1950
lisp procedure NonBigNumError(V,L);2048
lisp procedure BSize V;2137
lisp procedure GtPOS N;2196
lisp procedure GtNeg N;2352
lisp procedure TrimBigNum V3;2514
lisp procedure TrimBigNum1(V3,L3);2667
lisp procedure big2sys U;3064
lisp procedure TwoPower N;3540
lisp procedure BTwoPower N;3595
lisp procedure BZeroP V1;4014
lisp procedure BOneP V1;4080
lisp procedure BAbs V1;4168
lisp procedure BMax(V1,V2);4239
lisp procedure BMin(V1,V2);4310
lisp procedure BExpt(V1,N);4377
lisp procedure BLOr(V1,V2);4881
lisp procedure BLXor(V1,V2);5428
lisp procedure BLAnd(V1,V2);6585
lisp procedure BLNot(V1);7272
lisp procedure BLShift(V1,V2);7332
lisp procedure BMinus V1;7736
lisp procedure BMinusP V1;8034
lisp procedure AddCarry A;8156
lisp procedure BPlus2(V1,V2);8347
lisp procedure BPlusA2(V1,V2,Sn1);8634
lisp procedure BDifference(V1,V2);9231
lisp procedure SubCarry A;9532
Lisp procedure BDifference2(V1,V2,Sn1);9720
lisp procedure BTimes2(V1,V2);10423
Lisp procedure BDigitTimes2(V1,V2,L1,I,V3);10978
Lisp procedure BSmallTimes2(V1,C);11743
lisp procedure BQuotient(V1,V2);12397
lisp procedure BRemainder(V1,V2);12456
smacro procedure BSimpleQuotient(V1,L1,C,SnC);12673
smacro procedure BSimpleRemainder(V1,L1,C,SnC);12758
lisp procedure BDivide(V1,V2);12826
lisp procedure BSimpleDivide(V1,L1,C,SnC);13477
lisp procedure BHardDivide(U,Lu,V,Lv);13965
lisp procedure BHardBug(msg,U,V,R,Q);19516
lisp procedure BGreaterP(U,V);19889
lisp procedure BLessp(U,V);20076
lisp procedure BGeq(U,V);20261
lisp procedure BLeq(U,V);20436
lisp procedure BUnsignedGreaterP(U,V);20624
symbolic procedure BUnsignedGeq(U,V);21037
lisp procedure BAdd1 V;21447
lisp procedure BSub1 U;21492
lisp procedure FloatFromBigNum V;21626
lisp procedure BChannelPrin2(Channel,V);22410
lisp procedure BRead(s,radix,sn);23291
lisp procedure BReadAdd(V, radix, ch);23975
lisp procedure BSmallAdd(V,C);24070
lisp procedure BNum N;24526
lisp procedure BSmallDiff(V,C);24778
lisp procedure int2B n;25242
lisp procedure bigfromfloat X;25996

PS:<PSL.UTIL>BIGFACE.RED.0
01626,RLISP
smacro procedure PutBig(b,i,val);697
smacro procedure GetBig(b,i);749
lisp procedure BignumP (V);878
lisp procedure NonBigNumError(V,L);987
lisp procedure BSize V;1076
lisp procedure GtPOS N;1144
lisp procedure GtNeg N;1269
lisp procedure TrimBigNum V3;1400
lisp procedure TrimBigNum1(B,L3);1550
lisp procedure BigAsVec B;1781
lisp procedure VecAsBig V;1826
Lisp Procedure RecursiveChannelPrin1(Channel,U,Level);2401
Lisp Procedure RecursiveChannelPrin2(Channel,U,level);2553
lisp procedure big2sys U;2677
smacro procedure checkifreallybig U;3005
smacro procedure checkifreallybigpair U;3214
smacro procedure checkifreallybigornil U;3330
lisp procedure BigPlus2(U,V);3481
lisp procedure BigDifference(U,V);3553
lisp procedure BigTimes2(U,V);3624
lisp procedure BigDivide(U,V);3691
lisp procedure BigQuotient(U,V);3764
lisp procedure BigRemainder(U,V);3836
lisp procedure BigLAnd(U,V);3904
lisp procedure BigLOr(U,V);3966
lisp procedure BigLXOr(U,V);4028
lisp procedure BigLShift(U,V);4093
lisp procedure BigGreaterP(U,V);4162
lisp procedure BigLessP(U,V);4235
lisp procedure BigAdd1 U;4301
lisp procedure BigSub1 U;4358
lisp procedure BigLNot U;4415
lisp procedure BigMinus U;4473
lisp procedure FloatBigArg U;4535
lisp procedure BigMinusP U;4587
lisp procedure MakeStringIntoLispInteger(Str,Radix,Sn);4704
procedure floatfix U;4836
procedure MakeFixNum N;4962
syslsp procedure StaticIntBig Arg;5085
syslsp procedure StaticBigFloat Arg;5169
procedure Int2Sys N;5283
 syslsp procedure IsInum U;5380

PS:<PSL.UTIL>BR-UNBR.RED.0
00305,RLISP
lisp procedure TrMakeArgList N;644
lisp procedure Br!.Prc(PN, B, A);1452
lisp procedure Br!.1 Nam;2353
lisp procedure UnBr!.1 Nam;3204
macro procedure Br L;3534
expr procedure EvBr L;3619
macro procedure UnBr L;3679
expr procedure EvUnBr L;3770

PS:<PSL.UTIL>BUILD.RED.0
00165,RLISP
Lisp Procedure MakeBuildFileName(ModuleName,ExtList);1382
lisp procedure Build X;1746
Lisp Procedure BuildAux X;1966

PS:<PSL.UTIL>DATETIME.RED.0
00350,RLISP
Procedure SegmentString(S,ch);148
Procedure NextCh(Ch,S,s1,s2);538
Procedure NextNonCh(Ch,S,s1,s2);637
Procedure Month2Integer m;1171
Procedure DateTime2IntegerList(wdate,wtime);1244
 procedure MakeNumeric(L);1545
 procedure String2Integer S;1662
procedure CompareIntegerLists(L1,L2);1837

PS:<PSL.UTIL>DEBUG.RED.0
05116,RLISP
SYMBOLIC PROCEDURE !-GETPROPERTYLIST U;1951
SYMBOLIC SMACRO PROCEDURE !-SLOWLINKS;2340
smacro procedure alias(x, y);9686
    macro procedure x u;9712
lisp procedure !-ADD1 X;10045
SYMBOLIC PROCEDURE !-LPRIE U;10128
SYMBOLIC PROCEDURE !-LPRIM U;10215
SYMBOLIC PROCEDURE !-PAD(L, N);10560
SYMBOLIC PROCEDURE !-IDLISTP L;10826
SYMBOLIC PROCEDURE !-CIRLIST(U,N);10907
SYMBOLIC PROCEDURE !-FIRSTN(N,L);11156
SYMBOLIC PROCEDURE !-LISTOFATOMS L;11320
SYMBOLIC PROCEDURE !-!-PUTD(NAME,TYPE,BODY);11453
SYMBOLIC PROCEDURE !-LABELNAME();12783
SYMBOLIC PROCEDURE !-FINDENTRIES A;12891
SYMBOLIC PROCEDURE !-PRINTPASS A;13392
SYMBOLIC PROCEDURE !-PRINS(A,L);14507
SYMBOLIC PROCEDURE PRINTX A;14806
SYMBOLIC PROCEDURE !-TRGET(ID,IND);15336
SYMBOLIC PROCEDURE !-TRGETX(L,IND);15412
SYMBOLIC PROCEDURE !-TRFLAGP(ID,IND);15603
SYMBOLIC PROCEDURE !-TRPUT(ID,IND,VAL);15681
SYMBOLIC PROCEDURE !-TRPUTX(L,IND,VAL);15782
SYMBOLIC PROCEDURE !-TRPUTX1(L,IND,VAL);15881
SYMBOLIC PROCEDURE !-TRFLAG(L,IND);16083
SYMBOLIC PROCEDURE !-TRFLAG1(ID,IND);16167
SYMBOLIC PROCEDURE !-TRREMPROP(ID,IND);16313
SYMBOLIC PROCEDURE !-TRREMPROPX(L,IND);16480
SYMBOLIC PROCEDURE !-TRREMFLAG(L,IND);16632
SYMBOLIC PROCEDURE !-TRREMFLAG1(ID,IND);16723
SYMBOLIC PROCEDURE !-TRINSTALL(NAM,ARGNUM);16965
SYMBOLIC PROCEDURE !-TRINSTALLIST U;19338
SYMBOLIC PROCEDURE !-ARGNAMES(FN,DEFN,TYPE,NM);19429
SYMBOLIC PROCEDURE !-ARGNAMES1 FN;20385
SYMBOLIC PROCEDURE !-TRRESTORE U;21249
SYMBOLIC PROCEDURE REDEFINED!-PUTD(NAM,TYP,BOD);21597
SYMBOLIC PROCEDURE TROUT U;22519
SYMBOLIC PROCEDURE STDTRACE;22686
SYMBOLIC MACRO PROCEDURE !-OUTRACE U;22812
SYMBOLIC PROCEDURE !-OUTRACE1 !-U;23113
SYMBOLIC PROCEDURE !-DUMPTRACEBUFF DELFLG;23397
SYMBOLIC PROCEDURE NEWTRBUFF N;24011
SYMBOLIC PROCEDURE !-TRACEDCALL(!-NAM,!-ARGS);24219
SYMBOLIC PROCEDURE !-ERRAPPLY(!-FN,!-ARGS,!-NAM);26884
SYMBOLIC PROCEDURE TRACECOUNT N;27337
SYMBOLIC PROCEDURE TRACEWITHIN L;27689
SYMBOLIC PROCEDURE TRACE L;28053
SYMBOLIC PROCEDURE UNTRACE L;28325
SYMBOLIC PROCEDURE !-ENTERPRI;28670
SYMBOLIC PROCEDURE !-EXITPRI !-STATE;28903
SYMBOLIC PROCEDURE !-TRINDENT !-INDNT;29217
SYMBOLIC PROCEDURE !-TRACEPRI1(!-NAM,!-LEV,!-INDNT);29485
SYMBOLIC PROCEDURE !-TRACENTRYPRI(!-NAM,!-ARGS,!-LEV,!-INDNT);29701
SYMBOLIC PROCEDURE !-TRACENTRYPRI1(!-NAM,!-ARGS,!-LEV,!-INDNT,!-S);29897
SYMBOLIC PROCEDURE !-TRACEXPANDPRI(!-NAM,!-EXP,!-LEV,!-INDNT);30475
SYMBOLIC PROCEDURE !-TRACEXITPRI(!-NAM,!-VAL,!-LEV,!-INDNT);30680
SYMBOLIC PROCEDURE TRACESET L;30928
SYMBOLIC PROCEDURE UNTRACESET L;31469
SYMBOLIC PROCEDURE !-TRSTPRI(!-NAM,!-VAL);31699
SYMBOLIC PROCEDURE !-TRSTPRI1(!-NAM,!-VAL,!-INDNT);31820
SYMBOLIC PROCEDURE !-MKTRST U;32037
SYMBOLIC PROCEDURE !-MKTRST1 U;32516
SYMBOLIC PROCEDURE !-TRSTSETQ U;32642
symbolic procedure !-TrstCond u;32835
SYMBOLIC PROCEDURE !-TRSTPROG U;32931
SYMBOLIC PROCEDURE !-BTRPUSH(!-NAM,!-ARGS);33160
SYMBOLIC PROCEDURE !-BTRPOP !-PTR;33322
SYMBOLIC PROCEDURE !-BTRDUMP;33830
SYMBOLIC PROCEDURE BTRACE L;34624
SYMBOLIC PROCEDURE !-BTRNEWSTK;34763
SYMBOLIC PROCEDURE !-EMBSUBST(NAM,FN,NEW);35006
SYMBOLIC MACRO PROCEDURE !-EMBCALL !-U;35211
SYMBOLIC PROCEDURE EMBFN(NAM,VARS,BOD);35297
SYMBOLIC PROCEDURE EMBEDFNS U;35766
SYMBOLIC PROCEDURE UNEMBEDFNS U;35989
SYMBOLIC PROCEDURE !-HISTOGRAM;36203
SYMBOLIC PROCEDURE !-CLEARCOUNT;37199
SYMBOLIC PROCEDURE !-TR1(L,FN);38115
MACRO PROCEDURE TR U;38313
SYMBOLIC PROCEDURE EVTR U;38376
MACRO PROCEDURE UNTR U;38463
procedure UnTrAll();38522
SYMBOLIC PROCEDURE EVUNTR U;38610
MACRO PROCEDURE RESTR U;38865
SYMBOLIC PROCEDURE EVRESTR U;38933
MACRO PROCEDURE TRIN U;39301
SYMBOLIC PROCEDURE EVTRIN U;39368
MACRO PROCEDURE TRST U;39418
SYMBOLIC PROCEDURE EVTRST U;39485
MACRO PROCEDURE UNTRST U;39534
SYMBOLIC PROCEDURE EVUNTRST U;39605
MACRO PROCEDURE BTR U;39653
SYMBOLIC PROCEDURE EVBTR U;39718
SYMBOLIC PROCEDURE RESBTR;39801
MACRO PROCEDURE EMBED U;39844
SYMBOLIC PROCEDURE EVEMBED U;39913
MACRO PROCEDURE UNEMBED U;39963
SYMBOLIC PROCEDURE EVUNEMBED U;40036
MACRO PROCEDURE TRCNT U;40086
SYMBOLIC PROCEDURE EVTRCNT U;40155
lisp procedure TrMakeArgList N;41168
lisp procedure Br!.Prc(PN, B, A);41974
lisp procedure Br!.1 Nam;42885
lisp procedure UnBr!.1 Nam;44157
macro procedure Br L;44561
expr procedure EvBr L;44646
macro procedure UnBr L;44746
expr procedure EvUnBr L;44837
expr procedure UnBrAll();44901
MACRO PROCEDURE STUB U;45591
SYMBOLIC PROCEDURE EVSTUB FNLIS;45662
MACRO PROCEDURE FSTUB U;46121
SYMBOLIC PROCEDURE EVFSTUB FNLIS;46194
SYMBOLIC PROCEDURE !-MKSTUB(NAME, VARLIS, TYPE);46673
SYMBOLIC PROCEDURE !-STUB1(!-PNAME, !-ANAMES, !-AVALS, !-TYPE);46922
SYMBOLIC PROCEDURE !-REDREADER;47603
MACRO PROCEDURE PLIST U;47719
SYMBOLIC PROCEDURE EVPLIST U;47788
SYMBOLIC PROCEDURE !-PLIST1 U;48167
MACRO PROCEDURE PPF U;49242
SYMBOLIC PROCEDURE EVPPF FLIS;49310
SYMBOLIC PROCEDURE !-PPF1 FN;49556
SYMBOLIC PROCEDURE !-GETC U;51455

PS:<PSL.UTIL>DEFSTRUCT.RED.0
00776,RLISP
lisp procedure DefstructP( Name );1246
lisp procedure DefstructType( Struct );1371
lisp procedure SubTypeP( I1, I2 );1524
fexpr procedure Defstruct( Spec );1929
lisp procedure ProcessSlot( SlotSpec, Prefix, SlotNum );5016
lisp procedure ProcessOptions( OptList, OptVarList );6743
lisp procedure GetDefstruct( StructId );7352
lisp procedure IdConcat( I1, I2 );7601
lisp procedure MkStructMac( MacName, GenericMac, StructName );8129
lisp  procedure MkStructPred( FnName, StructName );8472
lisp procedure MkSelector( Name, Slotnum );8751
lisp procedure MkDepositor( Name, Slotnum );8928
macro procedure Make( ArgList );9460
macro procedure Alter( ArgList );10264
macro procedure Create( ArgList );11272

PS:<PSL.UTIL>DEMO-DEFSTRUCT.RED.0
00051,RLISP

PS:<PSL.UTIL>F-DSTRUCT.RED.0
00145,RLISP
lisp procedure MkSelector( Name, Slotnum );314
lisp procedure MkDepositor( Name, Slotnum );669

PS:<PSL.UTIL>FAST-ARITH.RED.0
00431,RLISP
SYSLSP PROCEDURE FASTPLUS2(I1,I2);120
SYSLSP PROCEDURE FASTTIMES2(I1,I2);293
SYSLSP PROCEDURE FASTDIFFERENCE(I1,I2);472
SYSLSP PROCEDURE FASTADD1 I1;645
SYSLSP PROCEDURE FASTSUB1 I1;788
SYSLSP PROCEDURE FASTZerop I1;932
SYSLSP PROCEDURE FASTMinusp I1;1019
SYSLSP PROCEDURE FASTGreaterp(I1,I2);1116
SYSLSP PROCEDURE FASTlessP(I1,I2);1229
lisp procedure Faster;1339

PS:<PSL.UTIL>FAST-VECTOR.RED.0
00048,RLISP

PS:<PSL.UTIL>FIND.RED.0
00453,RLISP
Lisp Procedure FindPrefix(TestString!*);216
Lisp procedure FindPrefix1 x;520
Lisp Procedure FindSuffix(TestString!*);651
Lisp procedure FindSuffix1 x;955
Lisp procedure IsPrefixString(s1,s2);1083
Lisp procedure IsSuffixString(s1,s2);1379
procedure StringMatch(p,s);1705
procedure StringMatch1(p,p1,p2,s,s1,s2);1791
Lisp Procedure Find(TestString!*);2765
Lisp procedure FindStringMatch x;3078

PS:<PSL.UTIL>FORMAT.RED.0
00466,RLISP
lisp procedure Format(Stream, FormatForFormat!*, A1, A2, A3, A4, A5,654
lap '((!*entry Format1 expr 15)928
syslsp procedure Format2(Stream, FormatArgs);1402
lisp procedure format!-freshline Stream;3465
lisp procedure Ferror(Condition, FMT, A1, A2, A3, A4, A5, A6,3629
lisp procedure string!-write!-char(stream, ch);3824
lisp procedure clear!-string!-write();4103
lisp procedure return!-string!-write();4244

PS:<PSL.UTIL>GSORT.RED.0
01711,RLISP
lisp procedure StringCompare(S1,S2);614
lisp procedure IdCompare(D1,D2);1060
lisp procedure SlowIdSort DList;1196
lisp procedure InsertId(D,DL);1345
lisp smacro procedure NewNode(Elem);1749
lisp smacro procedure VAL Node;1819
lisp smacro procedure LNode Node;1897
lisp smacro procedure RNode Node;1947
lisp smacro procedure NewLeftNode(Node,Elem);2009
lisp smacro procedure NewRightNode(Node,Elem);2092
lisp procedure IdSort LST;2155
lisp procedure IdTreeSort LST;2297
lisp smacro procedure IdPlaceToLeft (Elem1,Elem2);2561
lisp procedure IdPutTree(Elem,Node);2673
lisp procedure Tree2LST(Tree,LST);3008
lisp procedure GenSort(LST,Fn);3250
lisp procedure GenTreeSort(LST,Fn);3383
lisp procedure GenPutTree(Elem,Node,SortFn);3645
lisp procedure GSort(LST,SortFn);4044
lisp procedure GTreeSort LST;4250
lisp procedure GPutTree(Elem,Node);4498
lisp procedure IdSortFn(Elem1,Elem2);4868
lisp procedure NumberSortFn(Elem1,Elem2);4990
lisp procedure NumberSort Lst;5048
lisp procedure StringSortFn(Elem1,Elem2);5123
lisp procedure StringSort Lst;5196
lisp procedure NoSortFn(Elem1,Elem2);5267
lisp procedure AtomSortFn(E1,E2);5317
lisp procedure AtomSort Lst;5719
lisp procedure StringLengthFn(S1,S2);5787
procedure IdLengthFn(e1,e2);5898
syslsp procedure SC1(S1,S2);5991
syslsp procedure IdC1(e1,e2);6420
syslsp procedure SC2(S1,S2);6488
syslsp procedure IdC2(e1,e2);7009
Lisp procedure GsortP(Lst,SortFn);7098
Lisp procedure GMergeLists(L1,L2,SortFn);7335
Lisp procedure MidPoint(Lst1,Lst2,M);7584
Lisp procedure GMergeSort(Lst,SortFn);7797
Lisp procedure GMergeSort1(Lst1,Lst2,M,SortFn);7890

PS:<PSL.UTIL>H-STATS-1.RED.0
00196,RLISP
syslsp procedure HeapStats(Results);1074
Syslsp procedure Histo(Template,Table,Value,SpaceTab,Space);4338
SysLsp procedure FillVector(v,k);4840

PS:<PSL.UTIL>HELP.RED.0
00769,RLISP
lisp procedure ReloadHelpTable();1368
lisp procedure DisplayHelpFile F;1566
fexpr procedure Help U;2004
lisp procedure HelpTopicList U;2215
lisp procedure HelpHelp();2605
lisp procedure FindHelpTopics();2794
lisp procedure TestHelpTopic X;3065
lisp procedure HelpTopLoop();3298
lisp procedure DefineSwitch(Name, Info);3758
lisp procedure Show1Switch(Name);3931
lisp procedure ShowSwitches L;4190
lisp procedure TestShowSwitch X;4361
lisp procedure DefineGlobal(Name, Info);4492
lisp procedure Show1Global Name;4650
lisp procedure TestShowGlobal X;4880
lisp procedure Show1State Name;4990
lisp procedure ShowGlobals L;5171
lisp procedure ShowState L;5336
lisp procedure TestShowState X;5503

PS:<PSL.UTIL>IF-SYSTEM.RED.0
00150,RLISP
macro procedure if_system U;346
expr procedure do_if_system(system_name, true_case, false_case);485

PS:<PSL.UTIL>INSPECT.RED.0
00389,RLISP
Procedure Inspect X;871
Procedure InspectOut;1114
Procedure InspectEnd;1657
Procedure InspectPrint U;1976
procedure InspectForm U;2505
Procedure InspectProc(Nam,Ty);3755
Procedure InspectLap U;3938
Procedure GetFiles1 L;4176
procedure InspectToFile F;4291
procedure InspectAllFiles Files;4650
Procedure InspectAllPU();4760

PS:<PSL.UTIL>INUM.RED.0
00513,RLISP
smacro procedure InumTwoArg IName;358
lisp procedure IName(Arg1, Arg2);393
smacro procedure InumTwoArgBool IName;602
lisp procedure IName(Arg1, Arg2);637
smacro procedure InumOneArg IName;777
lisp procedure IName Arg;804
smacro procedure InumOneArgBool IName;981
lisp procedure IName Arg;1008
lisp procedure Inum2Error(Arg1, Arg2, Name);1134
lisp procedure Inum1Error(Arg, Name);1247
macro procedure IFor U;1800
SYMBOLIC PROCEDURE ParseIFOR X;1923

PS:<PSL.UTIL>MATHLIB.RED.0
01781,RLISP
lisp procedure mod(M,N);2248
lisp procedure Floor X;2594
lisp procedure Ceiling X;2967
lisp procedure Round X;3297
lisp procedure DegreesToRadians x;3774
lisp procedure RadiansToDegrees x;3839
lisp procedure RadiansToDMS x;3904
lisp procedure DMStoRadians(Degs,Mins,Sex);4229
lisp procedure sin x;4411
lisp procedure ScaledSine x;5068
lisp procedure cos x;5329
lisp procedure ScaledCosine x;5914
lisp procedure tan x;6156
lisp procedure cot x;6845
lisp procedure ScaledTangent x;7544
lisp procedure ScaledCotangent x;7821
lisp procedure sec x;8072
lisp procedure csc x;8109
lisp procedure sinD x;8147
lisp procedure cosD x;8198
lisp procedure tanD x;8249
lisp procedure cotD x;8300
lisp procedure secD x;8351
lisp procedure cscD x;8402
lisp procedure asin x;8453
lisp procedure acos x;8728
lisp procedure CheckedArcCosine x;8997
lisp procedure atan x;9267
lisp procedure acot x;9517
lisp procedure CheckedArcTangent x;9779
lisp procedure asec x;10046
lisp procedure acsc x;10086
lisp procedure asinD x;10127
lisp procedure acosD x;10180
lisp procedure atanD x;10233
lisp procedure acotD x;10286
lisp procedure asecD x;10339
lisp procedure acscD x;10392
lisp procedure sqrt N;10526
lisp procedure exp x;11375
lisp procedure log x;11928
lisp procedure CheckedLogarithm x;12681
lisp procedure log2 x;12924
lisp procedure log10 x;12973
lisp procedure next!-random!-number;13933
lisp procedure Random(N);14104
procedure FACTORIAL N;14383
lisp procedure Atan2D( Y, X );14557
lisp procedure Atan2( Y, X );14627
lisp procedure TransferSign( S, Val );15122
lisp procedure DMStoDegrees(Degs,Mins,Sex);15305
lisp procedure DegreesToDMS x;15463

PS:<PSL.UTIL>MINI-SUPPORT.RED.0
01581,RLISP
SYMBOLIC PROCEDURE MINI U;3191
SYMBOLIC PROCEDURE INVOKE U;3703
SYMBOLIC PROCEDURE FAIL!-NOT U;4323
SYMBOLIC PROCEDURE RULE!-DEFINE U;4576
SYMBOLIC PROCEDURE MPRINT U;4780
SYMBOLIC PROCEDURE ERROR!-PRINT;4911
SYMBOLIC PROCEDURE SCAN!-TERM;5360
SYMBOLIC PROCEDURE ADDKEY U;5764
SYMBOLIC PROCEDURE ADDGTERM U;5931
SYMBOLIC PROCEDURE ADDRTERM U;6092
SYMBOLIC PROCEDURE DIPBLD U;6298
SYMBOLIC PROCEDURE UNDIPBLD U;6677
SYMBOLIC PROCEDURE STRIP!! U;6957
SYMBOLIC PROCEDURE PUSH U;7149
SYMBOLIC PROCEDURE REF U;7247
SYMBOLIC PROCEDURE STACK!-UNDERFLOW;7476
SYMBOLIC PROCEDURE STACK!-ERROR;7617
SYMBOLIC PROCEDURE SCAN!-STACK (U, STK);7780
SYMBOLIC PROCEDURE EXTRACT U;7987
SYMBOLIC PROCEDURE FETCH!-STACK (U, STK);8205
SYMBOLIC PROCEDURE STK!-LENGTH;8793
SYMBOLIC PROCEDURE BUILD!-REPEAT U;8965
SYMBOLIC PROCEDURE GET!-TOK U;9567
SYMBOLIC PROCEDURE NEXT!-TOK;10227
SYMBOLIC PROCEDURE T!-NTOK;10778
SYMBOLIC PROCEDURE EQTOK(X);10833
SYMBOLIC PROCEDURE EQTOK!-NEXT(X);10928
SYMBOLIC PROCEDURE ID;11117
SYMBOLIC PROCEDURE ANYID;11455
SYMBOLIC PROCEDURE ANYTOK;11690
SYMBOLIC PROCEDURE NUM;11889
SYMBOLIC PROCEDURE STR;12019
SYMBOLIC PROCEDURE GENLAB U;12231
LISP PROCEDURE PUSH!-LAB;12492
LISP PROCEDURE POP!-LAB;12631
SYMBOLIC PROCEDURE RBMATCH (SUBLIST, RULESLIST, INITENV);13010
SYMBOLIC PROCEDURE PEVAL(P, S, ENV);14516
SYMBOLIC PROCEDURE PEVALL (P, S, ENVL);14865
SYMBOLIC PROCEDURE TST!-SINGLE (P, S, ENV);15052
SYMBOLIC PROCEDURE TST!# (P, S, ENV);15438

PS:<PSL.UTIL>MINI-SUPPORT-PATCH.RED.0
00109,RLISP
LISP PROCEDURE !%SCAN;41
PROCEDURE UNREADCH U;118

PS:<PSL.UTIL>NARITH.RED.0
01223,RLISP
syslsp macro procedure IsInumMac U;1349
expr procedure NameGen Name;1691
macro procedure DefArith2Entry U;1780
expr procedure GENERIC(x,y);2304
expr procedure GEN0(x, y, z);2411
expr procedure HARDGEN(x, y);2488
macro procedure DefArithPred2Entry U;2780
expr procedure GENERIC(x,y);3304
expr procedure HARDGEN(x, y);3399
macro procedure DefInt2Entry U;3677
expr procedure GENERIC(x,y);4144
expr procedure GEN0(x, y, z);4251
expr procedure HARDGEN(x, y);4328
macro procedure DefArith1Entry U;4604
expr procedure GENERIC x;5125
expr procedure GEN0(x, z);5207
expr procedure HARDGEN x;5276
macro procedure DefArithPred1Entry U;5535
expr procedure GENERIC x;6056
expr procedure HARDGEN x;6128
smacro procedure DefFloatEntry(Name, Prim);6352
procedure Name(x, y);6375
procedure Coerce2(X, Y, F);6553
procedure StaticIntFloat X;7677
procedure NonInteger2Error(X, Y, F);7784
procedure NonNumber1Error(X, F);7921
procedure FloatGreaterP(X, Y);8557
procedure FloatLessP(X, Y);8725
procedure FloatFix X;9362
procedure Float X;9424
procedure IntFloat X;9645
syslsp procedure ReturnNil U;10000
syslsp procedure IsInum U;10040

PS:<PSL.UTIL>NBARITH.RED.0
01368,RLISP
expr procedure BetaP x;2095
expr procedure BetaRangeP w;2229
expr procedure Beta2P(x,y);2384
expr procedure Sys2Big W;2514
expr procedure NameGen(Name,Part);2952
smacro procedure NextArg();3084
smacro procedure Prologue();3179
macro procedure DefArith2Entry U;3431
expr procedure GENERIC(x,y);3653
expr procedure HARDGEN(x, y);3801
macro procedure DefArithPred2Entry U;4184
expr procedure GENERIC(x,y);4406
expr procedure HARDGEN(x, y);4495
macro procedure DefInt2Entry U;4809
expr procedure GENERIC(x,y);5021
expr procedure HARDGEN(x, y);5176
macro procedure DefArith1Entry U;5444
expr procedure GENERIC x;5663
expr procedure HARDGEN x;5798
macro procedure DefArithPred1Entry U;6060
expr procedure GENERIC x;6279
expr procedure HARDGEN x;6352
smacro procedure DefFloatEntry(Name, Prim);6577
procedure Name(x, y);6600
procedure Coerce1(X, F);6820
procedure Coerce2(X, Y, F);7247
procedure StaticIntFloat X;8478
procedure NonInteger2Error(X, Y, F);8585
procedure NonNumber1Error(X, F);8722
procedure NonNumber2Error(X, Y, F);8851
	procedure FloatGreaterP(X, Y);9554
	procedure FloatLessP(X, Y);9725
        procedure Fdummy(x,y);9837
	procedure FloatFix X;10553
	procedure Float X;10616
	procedure IntFloat X;10839
	syslsp procedure ReturnNil U;11194

PS:<PSL.UTIL>NBIG0.RED.0
03256,RLISP
smacro procedure PutBig(b,i,val);4043
smacro procedure GetBig(b,i);4126
procedure setbits x;4196
procedure NonBigNumError(V,L);5261
procedure BSize V;5345
procedure GtPOS N;5446
procedure GtNeg N;5588
procedure TrimBigNum V3;5736
procedure TrimBigNum1(B,L3);5880
procedure BigAsVec B;6106
procedure VecAsBig V;6172
Procedure BIG2Sys U;6215
procedure Big2SysAux U;6425
procedure TwoPower N;6924
procedure BTwoPower N;6974
procedure BZeroP V1;7382
procedure BOneP V1;7443
procedure BAbs V1;7526
procedure BMax(V1,V2);7592
procedure BMin(V1,V2);7658
procedure BExpt(V1,N);7720
procedure BLOr(V1,V2);8218
procedure BLXor(V1,V2);8760
procedure BLAnd(V1,V2);9907
procedure BLNot(V1);10589
procedure BLShift(V1,V2);10644
procedure BMinus V1;11043
procedure BMinusP V1;11336
procedure AddCarry A;11453
procedure BPlus2(V1,V2);11639
procedure BPlusA2(V1,V2,Sn1);11921
procedure BDifference(V1,V2);12513
procedure SubCarry A;12809
Procedure BDifference2(V1,V2,Sn1);12992
procedure BTimes2(V1,V2);13690
Procedure BDigitTimes2(V1,V2,L1,I,V3);14240
Procedure BSmallTimes2(V1,C);15000
procedure BQuotient(V1,V2);15649
procedure BRemainder(V1,V2);15703
smacro procedure BSimpleQuotient(V1,L1,C,SnC);15920
smacro procedure BSimpleRemainder(V1,L1,C,SnC);16005
procedure BDivide(V1,V2);16068
procedure BSimpleDivide(V1,L1,C,SnC);16714
procedure BHardDivide(U,Lu,V,Lv);17197
procedure BHardBug(msg,U,V,R,Q);22743
procedure BGreaterP(U,V);23111
procedure BLessp(U,V);23293
procedure BGeq(U,V);23473
procedure BLeq(U,V);23643
procedure BUnsignedGreaterP(U,V);23826
procedure BUnsignedGeq(U,V);24230
procedure BAdd1 V;24635
procedure BSub1 U;24676
procedure FloatFromBigNum V;24806
procedure BChannelPrin2(Channel,V);25686
procedure BRead(s,radix,sn);26559
procedure BReadAdd(V, radix, ch);27238
procedure BSmallAdd(V,C);27328
procedure BNum N;27781
procedure BNumAux N;27908
procedure BSmallDiff(V,C);28163
syslsp procedure int2Big n;28648
procedure bigfromfloat X;28937
syslsp procedure SetUpGlobals;29694
Procedure RecursiveChannelPrin1(Channel,U,Level);30197
Procedure RecursiveChannelPrin2(Channel,U,level);30341
procedure checkifreallybig UU;30469
procedure checkifreallybigpair VV;30696
procedure checkifreallybigornil UU;30814
procedure BigPlus2(U,V);30981
procedure BigDifference(U,V);31048
procedure BigTimes2(U,V);31114
procedure BigDivide(U,V);31176
procedure BigQuotient(U,V);31244
procedure BigRemainder(U,V);31311
procedure BigLAnd(U,V);31374
procedure BigLOr(U,V);31431
procedure BigLXOr(U,V);31488
procedure BigLShift(U,V);31548
procedure Lshift(U,V);31622
procedure BigGreaterP(U,V);31930
procedure BigLessP(U,V);31998
procedure BigAdd1 U;32059
procedure BigSub1 U;32111
procedure BigLNot U;32163
procedure BigMinus U;32216
procedure BigMinusP U;32271
procedure BigOneP U;32330
procedure BigZeroP U;32388
procedure MakeStringIntoLispInteger(S,Radix,Sn);32497
procedure Int2Sys N;32574
syslsp procedure Sys2Big N;32804
procedure FloatFix U;33821
procedure BetaP x;33979
procedure BetaRangeP x;34135
procedure Beta2P(x,y);34271

PS:<PSL.UTIL>PACKAGE.RED.0
01748,RLISP
Lisp Procedure PACKAGE x;728
Lisp  procedure SymPak d;1251
Lisp  procedure PutSymPak(d,v);1338
Lisp Procedure \SetUpInitialPackage;1544
Lisp Smacro Procedure PackageName x;1850
Lisp Smacro Procedure PackageFather x;1901
Lisp Smacro Procedure PackageGetFn x;1951
Lisp Smacro Procedure PackagePutFn x;2001
Lisp Smacro Procedure PackageRemFn x;2051
Lisp Smacro Procedure PackageMapFn x;2101
Lisp Procedure \PackageP(Name);2177
Lisp Procedure \CreateRawPackage(Name,Father, GetFn, PutFn, RemFn, MapFn);2319
Lisp Procedure \SetPackage(Name);2865
Lisp procedure \PackageError(Name);3121
Lisp Procedure SafeToken(Channel);3354
Lisp Procedure PACKAGE x;3498
lisp Procedure HashFn(S,Htab);3682
Lisp Procedure HashGetFn(S,Htab);4101
Lisp Procedure HashPutFn(S,Htab);4483
Lisp Procedure HashRemFn(S,Htab);5030
Lisp Procedure HashMapFn(F,Htab);5486
Lisp procedure LocalIntern S;5775
Lisp procedure LocalInternP S;6269
Lisp procedure LocalRemOb S;6659
Lisp procedure LocalMapObl F;7052
Lisp procedure PathIntern S;7378
Lisp Procedure PathIntern1(S,CurrentPackage!*);7878
Lisp Procedure AlternatePathIntern S;8243
Lisp procedure PathInternP S;8374
Lisp Procedure PathInternP1(S,CurrentPackage!*);8505
Lisp procedure PathRemOb S;8966
Lisp Procedure PathRemOb1(S,CurrentPackage!*);9089
Lisp procedure PathMapObl F;9545
Lisp procedure PathMapObl1(F,Pack);9648
Lisp Procedure \CreateHashedPackage(Name,Father,n);9970
Lisp Procedure \CreatePackage(Name,Father);10486
Lisp Procedure NewCprin1(Channel,Itm);10693
Lisp Procedure NewCprin2(Channel,Itm);10990
Procedure redef;11310
Procedure GlobalLookup S;11593
Procedure GlobalInstall(S);11801

PS:<PSL.UTIL>PARSER-FIX.RED.0
00430,RLISP
procedure ParErr(x,y);95
procedure ElseError x;188
procedure ThenError x;270
procedure DoError x;414
procedure UntilError x;506
procedure SUMError x;656
procedure STEPError x;739
procedure ProductError x;825
procedure CollectError x;1013
procedure CONCError x;1105
procedure JOINError x;1193
SYMBOLIC PROCEDURE ParseAtomList(U,V,W);1428
procedure a0 x;2172

PS:<PSL.UTIL>PCHECK.RED.0
00186,RLISP
procedure Pcheck F;188
procedure Pcheck1();485
procedure printsome x;657
procedure prinsomelevel(x,l1,l2);731
procedure ListP x;1119

PS:<PSL.UTIL>POLY.RED.0
02508,RLISP
smacro procedure RATNUM X;1562
smacro procedure RATDEN X;1621
smacro procedure MKRAT(X,Y);1662
smacro procedure POLTRM X;1706
smacro procedure POLRED X;1761
smacro procedure MKPOLY(X,Y);1803
smacro procedure TRMPWR X;1846
smacro procedure TRMCOEF X;1902
smacro procedure MKTERM(X,Y);1944
smacro procedure PWRVAR X;1987
smacro procedure PWREXPT X;2043
smacro procedure MKPWR(X,Y);2084
smacro procedure POLVAR X;2127
smacro procedure POLEXPT X;2184
smacro procedure POLCOEF X;2242
procedure VARP X;2360
procedure RAT();2721
procedure ALGG();3375
procedure alginit();4030
procedure cleartoken;4769
procedure inittoken;4800
procedure NTOKEN;5338
procedure RSIMP X;5481
procedure RSIMPL X;5789
procedure PRESIMP X;5895
procedure PRESIMPL X;6191
procedure R!+(A,B);6376
procedure R!-(A,B);6618
procedure R!.NEG A;6682
procedure R!*(A,B);6759
procedure R!.RECIP A;7020
procedure R!/(A,B);7145
procedure R!.LVAR A;7209
procedure R!'(A,X);7398
procedure RCREATE X;7646
procedure MAKERAT(A,B);7805
procedure R!^(A,N);8338
procedure P!+(A,B);8705
procedure PORDERP(A,B);9519
procedure P!*(A,B);9627
procedure PTTIMES(TT,A);9914
procedure PNTIMES(A,N);10095
procedure TTTIMES(TA,TB);10275
procedure ZCONS A;10590
procedure PCREATE1(X);10656
procedure PCREATE X;10753
procedure PGCD(A,B);10906
procedure NUMGCD(A,B);11273
procedure GCDPT(A,B);11368
procedure GCDPP(A,B);11738
procedure DIVIDEOUT(A,B);12581
procedure PDIVIDE(A,B);12655
procedure P!-(A,B);13589
procedure P!.NEG(A);13652
procedure PDIFF(A,X);13774
procedure MKKERNEL X;14166
procedure RPARSE();14702
procedure REXP();15018
procedure RTERM();15350
procedure RPRIMARY();15688
procedure RPRIMARY0();16309
procedure RARGS(X);16815
procedure MKATOM X;17224
procedure PPRINT A;17387
procedure RPREC!* X;18326
procedure RPREC!^ X;18447
procedure SIMPLE X;18629
procedure RATPRINT A;18745
procedure NPRINT A;18919
procedure RAT2PRE X;19086
procedure POL2PRE X;19242
procedure TRM2PRE X;19525
procedure PWR2PRE X;19730
procedure PREPRIN(A,PARENS);19881
procedure PRINARGS A;20140
procedure PREPRINT A;20346
procedure NARYPRIN(OP,ARGS,PARENS);20420
procedure PLUSPRIN(A,PARENS);20757
procedure DIFFERENCEPRIN(A,PARENS);20831
procedure TIMESPRIN(A,PARENS);20900
procedure QUOTPRIN(A,PARENS);20964
procedure EXPPRIN(A,PARENS);21028
procedure OrderP(x,y);21087

PS:<PSL.UTIL>PR-DEMO.RED.0
00044,RLISP

PS:<PSL.UTIL>PR-DRIV.RED.0
04852,RLISP
Procedure FNCOPY(NewName,OldName)$          %. to copy equivalent 783
Procedure HP!.OutChar x;1042
Procedure HP!.OutCharString S;1120
Procedure HP!.grcmd (acmd)$           %. prefix to graphic command1248
Procedure HP!.OutInt X;1376
Procedure HP!.Delay$                  %. Delay to wait for the display1620
Procedure HP!.EraseS()$               %. EraseS graphic diaplay screen1748
Procedure HP!.Erase()$               %. Erase graphic diaplay screen1885
Procedure HP!.NormX XX$               %. absolute position along 2015
Procedure HP!.NormY YY$               %. absolute position along 2176
Procedure HP!.MoveS (XDEST,YDEST)$    %. move pen to absolute location2299
Procedure HP!.DrawS (XDEST,YDEST)$       %. MoveS pen to the pen position2580
Procedure HP!.VWPORT(X1,X2,Y1,Y2)$         %. set the viewport2987
Procedure HP!.GRAPHON();3184
Procedure HP!.GRAPHOFF();3274
Procedure HP!.INIT$                        %. HP device specIfic 3376
Procedure TEK!.OutChar x;4331
Procedure TEK!.EraseS();4371
Procedure TEK!.Erase();4489
Procedure TEK!.4BYTES (XDEST, YDEST)$    %. Convert graphic plot 4705
Procedure HIGHERY YDEST$            %. convert Y to higher order Y.5250
Procedure LOWERY YDEST$             %. convert Y to lower order Y.  5347
Procedure HIGHERX XDEST$            %. convert X to higher order X.5454
Procedure LOWERX XDEST$             %. convert X to lower order X.  5551
Procedure TEK!.MoveS(XDEST,YDEST)$ 5626
Procedure TEK!.DrawS (XDEST,YDEST)$    %. Same as Tek!.MoveS but 5887
Procedure TEK!.NormX DESTX$               %. absolute location along6125
Procedure TEK!.NormY DESTY$               %. absolute location along 6261
Procedure TEK!.VWPORT(X1,X2,Y1,Y2)$       %. set the viewport for6393
Procedure TEK!.Delay();6590
Procedure TEK!.GRAPHON();6626
Procedure TEK!.GRAPHOFF();6758
Procedure TEK!.INIT$                %. TEKTRONIX device specIfic 6880
Procedure TEL!.OutChar x;7961
Procedure TEL!.OutCharString S;8008
Procedure TEL!.NormX X;8094
Procedure TEL!.NormY Y;8135
Procedure  TEL!.ChPrt(X,Y,Ch);8183
Procedure  TEL!.IdPrt(X,Y,Id);8371
Procedure  TEL!.StrPrt   (X,Y,S);8440
Procedure  TEL!.HOME   ();8630
Procedure TEL!.Erase();8723
Procedure TEL!.EraseS();8827
Procedure  TEL!.DDA   (X1,Y1,X2,Y2,dotter);8940
Procedure Tel!.MoveS   (X1,Y1);9690
Procedure Tel!.DrawS   (X1,Y1);9773
Procedure  Idl2chl   (X);9905
Procedure  Texter   (X1,Y1,X2,Y2,Txt);10130
Procedure  Tdotc   (X1,Y1);10292
Procedure  dotc   (X1,Y1);10585
Procedure  TEL!.ChClip   (X1,Y1,Id);10677
Procedure Tel!.VwPort(X1,X2,Y1,Y2);10901
Procedure  Tel!.Wfill   (X1,X2,Y1,Y2,Id);11071
Procedure  TEL!.Wzap   (X1,X2,Y1,Y2);11221
Procedure TEL!.Delay;11281
Procedure TEL!.GRAPHON();11317
Procedure TEL!.GRAPHOFF();11360
Procedure TEL!.INIT  ();11423
Procedure ANN!.OutChar x;12143
Procedure ANN!.OutCharString S;12190
Procedure ANN!.NormX X;12276
Procedure ANN!.NormY Y;12345
Procedure ANN!.XY(X,Y);12436
Procedure  ANN!.ChPrt(X,Y,Ch);13011
Procedure  ANN!.IdPrt(X,Y,Id);13090
Procedure  ANN!.StrPrt(X,Y,S);13156
Procedure ANN!.EraseS();13235
Procedure ANN!.Erase();13415
Procedure  ANN!.DDA(X1,Y1,X2,Y2,dotter);13537
Procedure ANN!.MoveS(X1,Y1);14283
Procedure ANN!.DrawS(X1,Y1);14363
Procedure  Idl2chl(X);14496
Procedure  Texter(X1,Y1,X2,Y2,Txt);14714
Procedure  ANN!.Tdotc(X1,Y1);14879
Procedure  ANN!.dotc(X1,Y1);15163
Procedure  ANN!.ChClip(X1,Y1,Id);15256
Procedure ANN!.VwPort(X1,X2,Y1,Y2);15470
Procedure  ANN!.Wfill(X1,X2,Y1,Y2,Id);15633
Procedure  ANN!.Wzap(X1,X2,Y1,Y2);15779
Procedure ANN!.Delay;15838
Procedure ANN!.GRAPHON();15874
Procedure ANN!.GRAPHOFF();15917
Procedure ANN!.INIT();15975
Procedure MPS!.DrawS (XDEST, YDEST);16871
Procedure MPS!.MoveS (XDEST, YDEST);17022
Procedure MPS!.Delay();17128
Procedure MPS!.EraseS();17192
Procedure MPS!.Erase();17271
Procedure MPS!.VWPORT( X1, X2, Y1, Y2);17413
Procedure MPS!.GRAPHON();17627
Procedure MPS!.GRAPHOFF();17705
Procedure MPS!.INIT$17760
Procedure ST!.OutChar x;18485
Procedure ST!.EraseS();18546
Procedure ST!.Erase();18675
Procedure ST!.GraphOn();18825
Procedure ST!.GraphOff();18923
Procedure ST!.MoveS(XDEST,YDEST)$ 19057
Procedure ST!.DrawS (XDEST,YDEST)$    19244
Procedure ST!.4BYTES (XDEST, YDEST)$    %. Convert graphic plot 19482
Procedure ST!.Delay();19956
Procedure ST!.NormX DESTX$               %. absolute location along20034
Procedure ST!.NormY DESTY$               %. absolute location along 20169
Procedure ST!.VWPORT(X1,X2,Y1,Y2)$       %. set the viewport for20300
Procedure ST!.INIT$                 %. JW's fake TEKTRONIX20532
Procedure SAVEPICT (FIL,PICT,NAM)$         %. save a picture with no 21406

PS:<PSL.UTIL>PR-MAIN.RED.0
03388,RLISP
Procedure LBC X;2025
Procedure REPCOM(TYPE,X);2347
Procedure BSPLINE;3754
Procedure BEZIER;3828
Procedure LINE;3863
Procedure CIRCLE(R);3901
Procedure COLOR N;3942
Procedure REPEATED(COUNT,TRANS);3996
MACRO Procedure OnePoint L$4122
MACRO Procedure MAT16 L;4184
Procedure PNT4(X1,X2,X3,X4);4261
Procedure PRLISPCDR  L$                 %. PRLISPCDR of a list.4548
Procedure CAR1 L$                       %. the Car1 element of 4649
Procedure CAR2 L$                       %. the CAR2 element of 4777
Procedure CAR3 L$                       %. the CAR3 element of4904
Procedure CAR4 L$                       %. the CAR4 element of5031
Procedure V!.COPY V1$                    %. Copy a vector5292
Procedure MKPOINT (POINTLIST)$           %. make a vector form for 5630
Procedure SetUpVariables;6871
Procedure MoveToXY(X,Y)$        %. Move current cursor to x,y of P7720
Procedure DrawToXY(X,Y)$        %. Move cursor to "P" and draw from Previous 7859
Smacro procedure MakeFourClip(X1,Y1,X2,Y2);8128
Procedure InView (L);8245
Procedure CLIP2D (x1,y1,x2,y2);8350
Procedure LOGICAND (P1, P2)$                %. logical "and". 9608
Procedure TESTPOINT(x,y)$                %. test If "P"  9825
Procedure  MAT!*MAT   (V1,V2)$	     %. multiplication of matrices.10762
Procedure PNT!*PNT(U,V)$      %. multiplication of matrices 12146
Procedure PNT!*MAT(U,V)$      %. multiplication of matrices 12385
Procedure WINDOW(EYE,SCREEN)$         %. perspective transformation.13111
Procedure  XMove   (TX)$            %. x translation only13654
Procedure  YMove   (TY)$            %. y translation only 13736
Procedure  ZMove   (TZ)$            %. z translation only13817
Procedure  Move   (TX,TY,TZ)$	     %. Move origin / object$13900
Procedure  XROT   (X)$              %. rotation about  x14472
Procedure  YROT   (X)$              %. rotation about y14553
Procedure  ZROT   (X)$              %. rotation about z14633
Procedure  FROTATE   (THETA,I,J)$   %. scale factor14709
Procedure  XSCALE   (SX)$          %. scaling along X axis only.15347
Procedure  YSCALE   (SY)$          %. scaling along Y axis only.15435
Procedure  ZSCALE   (SZ)$          %. scaling along Z axis only.15523
Procedure  SCALE1(XT,YT,ZT)$       %. scaling transformation15607
Procedure SCALE SFACT;15771
procedure DoColor(Object,N);16660
Procedure DOBEZIER OBJECT$16934
Procedure DOBSPLINE OBJECT$17075
Procedure DOLINE OBJECT$17213
Procedure DOREPEATED(MODEL,REPTFUN)$      %. repeat applying 17517
Procedure SHOW X;18587
Procedure ESHOW ZZ$                       %. erases the screen and19321
Procedure Draw X;19650
Procedure EDraw ZZ$                       %. erases the screen and19774
Procedure Col N;19859
Procedure DrawModel PICT$                %. given picture "PICT" will 20194
Procedure DERROR(MSG,OBJECT);20307
Procedure Draw1 (PICT,CURRENT!.TRANSFORM)$   % Draw PICT with TRANSFORMATION 20465
Procedure DrawGROUP(GRP)$		% Draw a group object21083
Procedure DrawPOINTSET (PNTSET)$21396
Procedure DrawPOINT (PNT)$21983
Procedure PERFORMTRANSFORM(PCTSTF,TRNSFRM)$22783
Procedure DrawCIRCLE(CCNTR,RADIUS);23695
Procedure DrawBSPLINE CONPTS$            %. a closed bspline curve 24301
LISP Procedure DrawBEZIER CNTS;25587
procedure FACT N;26485

PS:<PSL.UTIL>PR-TEXT.RED.0
00359,RLISP
Procedure ShowString(S);4124
Procedure ShowString1(S,Current!.Transform);4244
Procedure C x;4429
Procedure FullTest();4483
Procedure SpeedTest();4609
Procedure SlowTest();4705
Procedure Delay;4825
Procedure Text(S);4873
Procedure DrawText(StartPoint,S);4964
Procedure PositionAt StartPoint;5294

PS:<PSL.UTIL>PR2D-DEMO.RED.0
00046,RLISP

PS:<PSL.UTIL>PR2D-DRIV.RED.0
05438,RLISP
Procedure FNCOPY(NewName,OldName)$          %. to copy equivalent 836
Procedure  DDA   (X1,Y1,X2,Y2,dotter);940
Procedure HP!.OutChar x;1850
Procedure HP!.OutCharString S;1928
Procedure HP!.grcmd (acmd)$           %. prefix to graphic command2056
Procedure HP!.OutInt X;2186
Procedure HP!.Delay$                  %. Delay to wait for the display2430
Procedure HP!.EraseS()$               %. EraseS graphic diaplay screen2558
Procedure HP!.Erase()$               %. EraseS graphic diaplay screen2696
Procedure HP!.NormX XX$               %. absolute position along 2817
Procedure HP!.NormY YY$               %. absolute position along 2978
Procedure HP!.MoveS (XDEST,YDEST)$    %. Move pen to absolute location3101
Procedure HP!.DrawS (XDEST,YDEST)$       %. MoveS pen to the pen position3342
Procedure HP!.VWPORT(X1,X2,Y1,Y2)$         %. set the viewport3656
Procedure HP!.GRAPHON();3853
Procedure HP!.GRAPHOFF();3963
Procedure HP!.INIT$                        %. HP device specIfic 4065
Procedure TEK!.OutChar x;5012
Procedure TEK!.EraseS();5052
Procedure TEK!.EraseS();5227
Procedure TEK!.4BYTES (XDEST, YDEST)$    %. Convert graphic plot 5399
Procedure HIGHERY YDEST$            %. convert Y to higher order Y.5944
Procedure LOWERY YDEST$             %. convert Y to lower order Y.  6039
Procedure HIGHERX XDEST$            %. convert X to higher order X.6146
Procedure LOWERX XDEST$             %. convert X to lower order X.  6243
Procedure TEK!.MoveS(XDEST,YDEST)$ 6318
Procedure TEK!.DrawS (XDEST,YDEST)$    %. Same as Tek!.MoveS but 6622
Procedure TEK!.NormX DESTX$               %. absolute location along6929
Procedure TEK!.NormY DESTY$               %. absolute location along 7065
Procedure TEK!.VWPORT(X1,X2,Y1,Y2)$       %. set the viewport for7197
Procedure TEK!.Delay();7394
Procedure TEK!.GRAPHON();7430
Procedure TEK!.GRAPHOFF();7541
Procedure TEK!.INIT$                %. TEKTRONIX device specIfic 7641
Procedure TEL!.OutChar x;8714
Procedure TEL!.OutCharString S;8761
Procedure TEL!.NormX X;8847
Procedure TEL!.NormY Y;8892
Procedure  TEL!.ChPrt(X,Y,Ch);8945
Procedure  TEL!.IdPrt(X,Y,Id);9133
Procedure  TEL!.StrPrt   (X,Y,S);9202
Procedure  TEL!.HOME   ();9392
Procedure TEL!.EraseS   ();9489
Procedure TEL!.Erase   ();9595
Procedure Tel!.MoveS   (X1,Y1);9710
Procedure Tel!.DrawS   (X1,Y1);9793
Procedure  Idl2chl   (X);9925
Procedure  Texter   (X1,Y1,X2,Y2,Txt);10150
Procedure  TEL!.Tdotc   (X1,Y1);10317
Procedure  TEL!.dotc   (X1,Y1);10615
Procedure  TEL!.ChClip   (X1,Y1,Id);10707
Procedure Tel!.VwPort(X1,X2,Y1,Y2);10931
Procedure  Tel!.Wfill   (X1,X2,Y1,Y2,Id);11101
Procedure  TEL!.Wzap   (X1,X2,Y1,Y2);11251
Procedure TEL!.Delay;11311
Procedure TEL!.GRAPHON();11347
Procedure TEL!.GRAPHOFF();11409
Procedure TEL!.INIT  ();11468
Procedure ANN!.OutChar x;12224
Procedure ANN!.OutCharString S;12271
Procedure ANN!.NormX X;12357
Procedure ANN!.NormY Y;12426
Procedure ANN!.XY(X,Y);12517
Procedure  ANN!.ChPrt(X,Y,Ch);13092
Procedure  ANN!.IdPrt(X,Y,Id);13171
Procedure  ANN!.StrPrt(X,Y,S);13237
Procedure ANN!.EraseS();13316
Procedure ANN!.Erase();13496
Procedure ANN!.MoveS(X1,Y1);13582
Procedure ANN!.DrawS(X1,Y1);13662
Procedure  Idl2chl(X);13790
Procedure  Texter(X1,Y1,X2,Y2,Txt);14008
Procedure  ANN!.Tdotc(X1,Y1);14168
Procedure  ANN!.dotc(X1,Y1);14452
Procedure  ANN!.ChClip(X1,Y1,Id);14545
Procedure ANN!.VwPort(X1,X2,Y1,Y2);14759
Procedure  ANN!.Wfill(X1,X2,Y1,Y2,Id);14922
Procedure  ANN!.Wzap(X1,X2,Y1,Y2);15068
Procedure ANN!.Delay;15127
Procedure ANN!.GRAPHON();15163
Procedure ANN!.GRAPHOFF();15226
Procedure ANN!.INIT();15284
Procedure ST!.OutChar x;16027
Procedure ST!.EraseS();16088
Procedure ST!.Erase();16204
Procedure ST!.GraphOn();16342
Procedure ST!.GraphOff();16440
Procedure ST!.MoveS(XDEST,YDEST)$ 16576
Procedure ST!.DrawS (XDEST,YDEST)$    %. Same as MoveS but 16792
Procedure ST!.4BYTES (XDEST, YDEST)$    %. Convert graphic plot 17018
Procedure ST!.Delay();17492
Procedure ST!.NormX DESTX$               %. absolute location along17570
Procedure ST!.NormY DESTY$               %. absolute location along 17705
Procedure ST!.VWPORT(X1,X2,Y1,Y2)$       %. set the viewport for17836
Procedure ST!.INIT$                 %. JW's fake TEKTRONIX18068
Procedure HP2382!.OutChar x;19131
Procedure HP2382!.OutCharString S;19181
Procedure HP2382!.NormX X;19273
Procedure HP2382!.NormY Y;19321
Procedure  HP2382!.ChPrt(X,Y,Ch);19377
procedure HP2382!.OutINT x;19678
Procedure  HP2382!.IdPrt(X,Y,Id);19812
Procedure  HP2382!.StrPrt   (X,Y,S);19887
Procedure  HP2382!.HOME   ();20101
Procedure HP2382!.EraseS   ();20207
Procedure HP2382!.Erase   ();20342
Procedure HP2382!.MoveS   (X1,Y1);20469
Procedure HP2382!.DrawS   (X1,Y1);20555
Procedure  Idl2chl   (X);20690
Procedure  Texter   (X1,Y1,X2,Y2,Txt);20915
Procedure  HP2382!.Tdotc   (X1,Y1);21088
Procedure  HP2382!.dotc   (X1,Y1);21392
Procedure  HP2382!.ChClip   (X1,Y1,Id);21490
Procedure HP2382!.VwPort(X1,X2,Y1,Y2);21720
Procedure  HP2382!.Wfill   (X1,X2,Y1,Y2,Id);21893
Procedure  HP2382!.Wzap   (X1,X2,Y1,Y2);22049
Procedure HP2382!.Delay;22115
Procedure HP2382!.GRAPHON();22154
Procedure HP2382!.GRAPHOFF();22219
Procedure HP2382!.INIT  ();22281

PS:<PSL.UTIL>PR2D-MAIN.RED.0
03059,RLISP
Procedure LBC X;1990
Procedure REPCOM(TYPE,X);2312
Procedure BSPLINE;3719
Procedure BEZIER;3793
Procedure LINE;3828
Procedure CIRCLE(R);3866
Procedure COLOR N;3907
Procedure REPEATED(COUNT,TRANS);3961
MACRO Procedure OnePoint L$4087
MACRO Procedure Mat8 L;4148
Procedure Pnt2(X1,X2,X3);4217
Procedure PRLISPCDR  L$                 %. PRLISPCDR of a list.4492
Procedure CAR1 L$                       %. the Car1 element of 4593
Procedure CAR2 L$                       %. the CAR2 element of 4721
Procedure CAR3 L$                       %. the CAR3 element of4848
Procedure CAR4 L$                       %. the CAR4 element of4975
Procedure V!.COPY V1$                    %. Copy a vector5236
Procedure MKPOINT (POINTLIST)$           %. make a vector form for 5574
Procedure SetUpVariables;6988
Procedure MoveToXY(X,Y)$        %. Move current cursor to x,y of P7768
Procedure DrawToXY(X,Y)$        %. Move cursor to "P" and draw from Previous 7909
Smacro procedure MakeThreeClip(X1,Y1,X2,Y2);8181
Procedure InView (L);8303
Procedure CLIP2D (x1,y1,x2,y2);8408
Procedure LOGICAND (P1, P2)$                %. logical "and". 9668
Procedure TESTPOINT(x,y)$                %. test If "P"  9885
Procedure  MAT!*MAT   (V1,V2)$	     %. multiplication of matrices.10770
Procedure PNT!*PNT(U,V)$      %. multiplication of matrices 11371
Procedure PNT!*MAT(U,V)$      %. multiplication of matrices 11580
Procedure  XMove(TX)$            %. x translation only12127
Procedure  YMove(TY)$            %. y translation only 12204
Procedure  Move(TX,TY)$	     %. Move origin / object$12279
Procedure  ZROT(Theta)$              %. rotation about z12611
Procedure  XSCALE   (SX)$          %. scaling along X axis only.13023
Procedure  YSCALE   (SY)$          %. scaling along Y axis only.13109
Procedure  SCALE1(XT,YT)$       %. scaling transformation13188
Procedure SCALE SFACT;13315
procedure DoColor(Object,N);14199
Procedure DOBEZIER OBJECT$14473
Procedure DOBSPLINE OBJECT$14614
Procedure DOLINE OBJECT$14752
Procedure DOREPEATED(MODEL,REPTFUN)$      %. repeat applying 15056
Procedure SHOW X;16126
Procedure ESHOW ZZ$                       %. erases the screen and16860
Procedure Draw X;17255
Procedure EDraw ZZ$                       %. erases the screen and17379
Procedure Col N;17464
Procedure DrawModel PICT$                %. given picture "PICT" will 17799
Procedure DERROR(MSG,OBJECT);17912
Procedure Draw1 (PICT,CURRENT!.TRANSFORM)$   % Draw PICT with TRANSFORMATION 18070
Procedure DrawGROUP(GRP)$		% Draw a group object18688
Procedure DrawPOINTSET (PNTSET)$19001
Procedure DrawPOINT (PNT)$19588
Procedure PERFORMTRANSFORM(PCTSTF,TRNSFRM)$20350
Procedure DrawCIRCLE(CCNTR,RADIUS);21261
Procedure DrawBspline CONPTS$            %. a "closed" Periodic  bspline curve 21851
procedure DrawBEZIER CNTS;23595
procedure IFACT N;24535
Procedure SAVEPICT (FIL,PICT,NAM)$         %. save a picture with no 24815

PS:<PSL.UTIL>PR2D-TEXT.RED.0
00361,RLISP
Procedure ShowString(S);4124
Procedure ShowString1(S,Current!.Transform);4244
Procedure C x;4429
Procedure FullTest();4483
Procedure SpeedTest();4609
Procedure SlowTest();4705
Procedure Delay;4825
Procedure Text(S);4873
Procedure DrawText(StartPoint,S);4964
Procedure PositionAt StartPoint;5294

PS:<PSL.UTIL>PRETTY.RED.0
00944,RLISP
SYMBOLIC PROCEDURE SUPERPRINT X;1600
SYMBOLIC PROCEDURE PRETTYPRINT X;1674
SYMBOLIC PROCEDURE SUPERPRINTM(X,LMAR);1795
SYMBOLIC PROCEDURE SUPERPRINM(X,LMAR);2064
SMACRO PROCEDURE TOP;2956
SMACRO PROCEDURE DEPTH FRM;2996
SMACRO PROCEDURE INDENTING FRM;3038
SMACRO PROCEDURE BLANKCOUNT FRM;3082
SMACRO PROCEDURE BLANKLIST FRM;3126
SMACRO PROCEDURE SETINDENTING(FRM,VAL);3178
SMACRO PROCEDURE SETBLANKCOUNT(FRM,VAL);3241
SMACRO PROCEDURE SETBLANKLIST(FRM,VAL);3304
SMACRO PROCEDURE NEWFRAME N;3356
SMACRO PROCEDURE BLANKP CHAR;3402
SYMBOLIC PROCEDURE PRINDENT(X,N);3468
SYMBOLIC PROCEDURE EXPLODES X;5930
SYMBOLIC PROCEDURE PRVECTOR(X,N);6041
SYMBOLIC PROCEDURE PUTBLANK();6474
SYMBOLIC PROCEDURE ENDLIST L;6746
SYMBOLIC PROCEDURE FINISHPENDING();7444
SYMBOLIC PROCEDURE READMACROP X;7856
SYMBOLIC PROCEDURE PUTCH C;8964
SYMBOLIC PROCEDURE OVERFLOW FLG;9446

PS:<PSL.UTIL>PRINTER-FIX.RED.0
00420,RLISP
smacro procedure DigitStr();158
syslsp procedure SysPowerOf2P Num;227
syslsp procedure ChannelWriteSysInteger(Channel, Number, Radix);424
syslsp procedure WriteNumber1(Channel, Number, Radix);967
syslsp procedure ChannelWriteBitString(Channel, Number, DigitMask, Exponent);1223
syslsp procedure ChannelWriteBitStrAux(Channel, Number, DigitMask, Exponent);1429

PS:<PSL.UTIL>PRLISP-DRIVER.RED.0
03962,RLISP
Procedure FNCOPY(NewName,OldName)$          %. to copy equivalent 886
Procedure HP!.OutChar x;1145
Procedure HP!.OutCharString S;1223
Procedure HP!.grcmd (acmd)$           %. prefix to graphic command1351
Procedure HP!.OutInt X;1481
Procedure HP!.Delay$                  %. Delay to wait for the display1725
Procedure HP!.EraseS()$               %. EraseS graphic diaplay screen1853
Procedure HP!.NormX XX$               %. absolute position along 1993
Procedure HP!.NormY YY$               %. absolute position along 2154
Procedure HP!.MoveS (XDEST,YDEST)$    %. move pen to absolute location2277
Procedure HP!.DrawS (XDEST,YDEST)$       %. MoveS pen to the pen position2570
Procedure HP!.CRSRWT()$                   %. waiting for input a 2988
Procedure HP!.BUILDP()$                    %. builds a list of 3368
Procedure HP!.VWPORT(X1,X2,Y1,Y2)$         %. set the viewport5329
Procedure HP!.GRAPHON();5526
Procedure HP!.GRAPHOFF();5636
Procedure HP!.INIT$                        %. HP device specIfic 5738
Procedure TEK!.OutChar x;6656
Procedure TEK!.EraseS();6696
Procedure TEK!.4BYTES (XDEST, YDEST)$    %. Convert graphic plot 6912
Procedure HIGHERY YDEST$            %. convert Y to higher order Y.7457
Procedure LOWERY YDEST$             %. convert Y to lower order Y.  7552
Procedure HIGHERX XDEST$            %. convert X to higher order X.7659
Procedure LOWERX XDEST$             %. convert X to lower order X.  7756
Procedure TEK!.MoveS(XDEST,YDEST)$ 7831
Procedure TEK!.DrawS (XDEST,YDEST)$    %. Same as Tek!.MoveS but 8092
Procedure TEK!.NormX DESTX$               %. absolute location along8330
Procedure TEK!.NormY DESTY$               %. absolute location along 8466
Procedure TEK!.VWPORT(X1,X2,Y1,Y2)$       %. set the viewport for8598
Procedure TEK!.Delay();8795
Procedure TEK!.GRAPHON();8831
Procedure TEK!.GRAPHOFF();8942
Procedure TEK!.INIT$                %. TEKTRONIX device specIfic 9042
Procedure TEL!.OutChar x;10049
Procedure TEL!.OutCharString S;10096
Procedure TEL!.NormX X;10182
Procedure TEL!.NormY Y;10223
Procedure  TEL!.ChPrt(X,Y,Ch);10271
Procedure  TEL!.IdPrt(X,Y,Id);10459
Procedure  TEL!.StrPrt   (X,Y,S);10528
Procedure  TEL!.HOME   ();10718
Procedure TEL!.EraseS   ();10815
Procedure  TEL!.DDA   (X1,Y1,X2,Y2,dotter);10938
Procedure Tel!.MoveS   (X1,Y1);11688
Procedure Tel!.DrawS   (X1,Y1);11763
Procedure  Idl2chl   (X);11879
Procedure  Texter   (X1,Y1,X2,Y2,Txt);12104
Procedure  Tdotc   (X1,Y1);12266
Procedure  dotc   (X1,Y1);12559
Procedure  TEL!.ChClip   (X1,Y1,Id);12651
Procedure Tel!.VwPort(X1,X2,Y1,Y2);12875
Procedure  Tel!.Wfill   (X1,X2,Y1,Y2,Id);13045
Procedure  TEL!.Wzap   (X1,X2,Y1,Y2);13195
Procedure TEL!.Delay;13255
Procedure TEL!.GRAPHON();13291
Procedure TEL!.GRAPHOFF();13353
Procedure TEL!.INIT  ();13412
Procedure MPS!.DrawS (XDEST, YDEST);14243
Procedure MPS!.MoveS (XDEST, YDEST);14415
Procedure MPS!.Delay();14542
Procedure MPS!.EraseS();14606
Procedure MPS!.VWPORT( X1, X2, Y1, Y2);14700
Procedure MPS!.GRAPHON();14914
Procedure MPS!.GRAPHOFF();15009
Procedure MPS!.INIT$15064
Procedure ST!.OutChar x;15755
Procedure ST!.EraseS();15816
Procedure ST!.GraphOn();15903
Procedure ST!.GraphOff();16037
Procedure ST!.MoveS(XDEST,YDEST)$ 16188
Procedure ST!.DrawS (XDEST,YDEST)$    %. Same as MoveS but 16441
Procedure PRLISP();16656
Procedure ST!.4BYTES (XDEST, YDEST)$    %. Convert graphic plot 16805
Procedure ST!.Delay();17279
Procedure ST!.NormX DESTX$               %. absolute location along17357
Procedure ST!.NormY DESTY$               %. absolute location along 17492
Procedure ST!.VWPORT(X1,X2,Y1,Y2)$       %. set the viewport for17623
Procedure ST!.INIT$                 %. JW's fake TEKTRONIX17855
Procedure SAVEPICT (FIL,PICT,NAM)$         %. save a picture with no 18660

PS:<PSL.UTIL>PSL-CREF.RED.0
02018,RLISP
macro procedure DefANLFN U;652
SYMBOLIC PROCEDURE STANDARDFUNCTIONS L;1520
SYMBOLIC PROCEDURE CREFON;3482
SYMBOLIC PROCEDURE UNDEFDCHK FN;4623
SYMBOLIC PROCEDURE PRINCNG U;4715
SYMBOLIC PROCEDURE CREFOFF;4764
SYMBOLIC PROCEDURE PUNUSED(X,Y);7456
SYMBOLIC PROCEDURE CREF52(X,Y);7586
SYMBOLIC PROCEDURE CREF5 FN;7677
SYMBOLIC PROCEDURE CREF51(X,Y,Z);8470
SYMBOLIC PROCEDURE CREF6 GLB;8574
SYMBOLIC PROCEDURE CREF61(X,Y,Z);8896
SMACRO PROCEDURE ISGLOB U;9150
SMACRO PROCEDURE CHKSEEN S;9201
SMACRO PROCEDURE GLOBREF U;9349
SMACRO PROCEDURE ANATOM U;9459
SMACRO PROCEDURE CHKGSEEN G;9654
SYMBOLIC PROCEDURE DO!-GLOBAL L;9771
SYMBOLIC PROCEDURE ADD2LOCS LL;10216
SYMBOLIC PROCEDURE GLOBIND GG;10878
SYMBOLIC PROCEDURE REMLOCS LLN;10951
SYMBOLIC PROCEDURE ADD2CALLS FN;11319
SYMBOLIC PROCEDURE ANFORM U;11485
SYMBOLIC PROCEDURE ANFORML L;11563
SYMBOLIC PROCEDURE ANFORM1 U;11686
SYMBOLIC PROCEDURE ANLSETQ U;12215
SYMBOLIC PROCEDURE ERSANFORM U;13236
SYMBOLIC PROCEDURE ANLMAP U;13318
SYMBOLIC PROCEDURE QUOTP U;13776
SYMBOLIC PROCEDURE OUTREF(S,VARLIS,BODY,TYPE);13922
SYMBOLIC PROCEDURE TRAPUT(U,V,W);14441
SMACRO PROCEDURE TOPUT(U,V,W);14608
SYMBOLIC PROCEDURE OUTREFEND S;14706
SYMBOLIC PROCEDURE RECREF(S,TYPE);15264
SYMBOLIC PROCEDURE OUTRDEFUN(S,TYPE,V);15487
SYMBOLIC PROCEDURE QTYPNM(S,TYPE);16011
SYMBOLIC PROCEDURE DEFINEARGS(NAME,N);16493
SYMBOLIC PROCEDURE INSTDOF(NAME,N,M,FNLST);16794
SYMBOLIC PROCEDURE HASARG(NAME,N);17052
SYMBOLIC PROCEDURE CHECKARGCOUNT(NAME,N);17353
SYMBOLIC PROCEDURE REFPRINT U;17621
SYMBOLIC PROCEDURE QCPUTX U;18255
SYMBOLIC PROCEDURE ANPUTX U;18358
SYMBOLIC PROCEDURE OUTDEFR(U,TYPE);19443
SYMBOLIC PROCEDURE QCRF U;19510
SYMBOLIC PROCEDURE QOUTREFE;20201
SYMBOLIC PROCEDURE LINCALL U;20586
SYMBOLIC PROCEDURE ANLAPEV U;20753
SYMBOLIC PROCEDURE LAPCALLF U;21045
SYMBOLIC PROCEDURE QERLINE U;21546
SYMBOLIC PROCEDURE EFFACE1(U,V);21726

PS:<PSL.UTIL>PSL-CREFIO.RED.0
00841,RLISP
SYMBOLIC PROCEDURE INITIO();995
SYMBOLIC PROCEDURE LPOSN();1179
SYMBOLIC PROCEDURE SETPGLN(P,L);1241
SYMBOLIC  PROCEDURE GETES U;1547
SYMBOLIC SMACRO PROCEDURE PRTWRD U;1836
SYMBOLIC PROCEDURE PRTATM U;1919
SYMBOLIC PROCEDURE PRTLST U;1982
SYMBOLIC PROCEDURE PRTNUM N;2072
SYMBOLIC PROCEDURE PRINCN E;2115
SYMBOLIC PROCEDURE SPACES N;2263
SYMBOLIC PROCEDURE SPACES2 N;2324
SYMBOLIC PROCEDURE SETPAGE(TITLE,PAGE);2469
SYMBOLIC PROCEDURE NEWLINE N;2596
SYMBOLIC PROCEDURE NEWPAGE();2779
SYMBOLIC PROCEDURE UNDERLINE2 N;3180
SYMBOLIC PROCEDURE LPRINT(U,N);3409
SYMBOLIC PROCEDURE REMPROPSS(ATMLST,LST);4290
SYMBOLIC PROCEDURE REMFLAGSS(ATMLST,LST);4511
SMACRO PROCEDURE REMFLAG1(U,V);4656
SMACRO PROCEDURE FLAG1(U,V);4707
SYMBOLIC PROCEDURE FORMFEED;4760

PS:<PSL.UTIL>RAWBREAK.RED.0
00072,RLISP
procedure newbreak();147

PS:<PSL.UTIL>RAWIO.RED.0
00731,RLISP
lisp procedure BITS1 U;761
macro procedure BITS U;883
lap '((!*entry PBIN expr 0)1126
lap '((!*entry PBOUT expr 1)1325
lap '((!*entry CharsInInputBuffer expr 0)1505
lap '((!*entry RFMOD expr 1)1951
lap '((!*entry RFCOC expr 1)2151
lap '((!*entry RTIW expr 1)2654
lisp procedure SaveInitialTerminalModes();2953
lap '((!*entry SFMOD expr 2)3186
lap '((!*entry STPAR expr 2)3454
lap '((!*entry SFCOC expr 3)3721
lap '((!*entry STIW expr 2)4112
lisp procedure EchoOff();4377
lisp procedure EchoOn();5417
Symbolic Procedure FlushStdOutputBuffer();6151
Symbolic Procedure PBIN();6440
Symbolic Procedure PBOUT(chr);6608
Symbolic Procedure rawio_break();6806

PS:<PSL.UTIL>READ-UTILS.RED.0
00498,RLISP
Lisp procedure PrintScanTable (Table);431
Lisp Procedure CopyScanTable(OldTable);867
Lisp procedure PutCharacterClass(Table,Ch,Val);1897
Symbolic Procedure ChangeCharType(TBL,Ch,Ty);1979
Symbolic Procedure PutDiphthong(TBL,StartCh, FollowCh, Diphthong);2300
Symbolic Procedure MakeDiphthong(TBL,DipIndicator,StartCh, FollowCh, Diphthong);2618
Lisp procedure PutReadMacro(Table,x,Fn);2904
Lisp procedure PutSpliceMacro(Table,x,Fn);3224

PS:<PSL.UTIL>RLISP-PARSER.RED.0
03797,RLISP
lisp procedure SymErr(X, Y);2187
SYMBOLIC PROCEDURE SCAN;2259
SYMBOLIC PROCEDURE RESETPARSER;2767
SYMBOLIC FEXPR PROCEDURE DEFINEBOP U;3326
SYMBOLIC PROCEDURE DEFINEBOPX U;3378
SYMBOLIC PROCEDURE INFIXOP U;3844
SYMBOLIC PROCEDURE INFIXPREC U;3922
SYMBOLIC FEXPR PROCEDURE DEFINEROP U;4122
SYMBOLIC PROCEDURE DEFINEROPX U;4176
SYMBOLIC PROCEDURE PREFIXOP U;4555
SYMBOLIC PROCEDURE PARSE0(RP,PRESCAN);4711
SYMBOLIC PROCEDURE RDRIGHT(RP,Y);5198
SYMBOLIC PROCEDURE STRONGERINFIXOP(NEXTOP, LASTOP, LASTPREC);6956
SYMBOLIC PROCEDURE DoINFIXasPREFIX(LHS,BOP);7458
SYMBOLIC PROCEDURE DOPREFIX(ACT,ROP,RHS);7677
SYMBOLIC PROCEDURE DOINFIX(ACT,LHS,BOP,RHS);7971
SYMBOLIC PROCEDURE ISOPOP(XOP,RP,Y);8083
SYMBOLIC PROCEDURE PARERR(X,Y);8453
SYMBOLIC PROCEDURE REMCOM X;8503
SYMBOLIC PROCEDURE REMSEMICOL X;8616
SYMBOLIC PROCEDURE REPCOM(TYPE,X);8732
SYMBOLIC PROCEDURE ParseNOOP X;8978
SYMBOLIC PROCEDURE MKQUOTLIST U;9104
SYMBOLIC PROCEDURE NARY(XOP,LHS,RHS);9280
SYMBOLIC PROCEDURE ParseCOMMA(X,Y);9468
SYMBOLIC PROCEDURE ParseSEMICOL(X,Y);9577
SYMBOLIC PROCEDURE ParseSETQ(LHS,RHS);9696
SYMBOLIC PROCEDURE ParsePLUS2(X,Y);9868
SYMBOLIC PROCEDURE ParseDIFFERENCE(X);10148
SYMBOLIC PROCEDURE ParseQUOTIENT(X);10414
SYMBOLIC PROCEDURE ParseOR(X,Y);10653
SYMBOLIC PROCEDURE ParseAND(X,Y);10778
SYMBOLIC PROCEDURE ParseIF X;11511
SYMBOLIC PROCEDURE ParseCASE(X);11928
SYMBOLIC PROCEDURE CASELIST;12159
SYMBOLIC PROCEDURE PARSETAGS();12652
SYMBOLIC PROCEDURE ParseBEGIN(X);13449
SYMBOLIC PROCEDURE ParseGO X;13635
SYMBOLIC PROCEDURE ParseGOTO X;13813
SYMBOLIC PROCEDURE ParseRETURN X;13920
SYMBOLIC PROCEDURE ParseEXIT X;14178
SYMBOLIC PROCEDURE COMMENTPART(A,L);14466
SYMBOLIC PROCEDURE ParseBEGIN1(L,COMPART);14588
SYMBOLIC PROCEDURE MAKELOCALS(U);15597
SYMBOLIC PROCEDURE NMODESTAT VV;15818
SYMBOLIC PROCEDURE NEWMODE VV;16352
SYMBOLIC PROCEDURE OLDPROCSTAT;16560
SYMBOLIC PROCEDURE ParsePROCEDURE2(NAME,VARLIS,BODY,TYPE);18661
SYMBOLIC PROCEDURE ParsePROCEDURE1(NAM,ARGS,BODY,ARGTYPE,TYPES);19522
SYMBOLIC PROCEDURE ParsePROCEDURE(EFTYPES,Y);20052
SYMBOLIC PROCEDURE ParseLPAR X;20889
SYMBOLIC PROCEDURE ParseRSQB(X);21264
SYMBOLIC PROCEDURE ParseLVEC(X,Y);21635
SYMBOLIC PROCEDURE ParseLAMBDA X;22010
SYMBOLIC PROCEDURE ParseREPEAT X;22216
SYMBOLIC PROCEDURE ParseWHILE X;22491
SYMBOLIC PROCEDURE ParseDECL X;22782
SYMBOLIC FEXPR PROCEDURE DECLARE U;23263
SYMBOLIC PROCEDURE ParseFOR X;23571
SYMBOLIC PROCEDURE ParseFOREACH X;24565
SYMBOLIC PROCEDURE ParseLET(X,Y);25187
SYMBOLIC PROCEDURE ParseCLEAR(X,Y);25246
SYMBOLIC PROCEDURE ParseLET1(X,Y,Z);25304
SYMBOLIC PROCEDURE ParseFORALL X;25387
SYMBOLIC PROCEDURE RLISF(U,V,W);25756
SYMBOLIC PROCEDURE FLAGOP U;26029
SYMBOLIC PROCEDURE RLISTAT(OPLIST,B);26120
SYMBOLIC PROCEDURE RLIS1(U,V,W);26393
SYMBOLIC PROCEDURE ParseINTEGER X;27592
SYMBOLIC PROCEDURE ParseREAL X;27698
SYMBOLIC PROCEDURE ParseSCALAR X;27806
SYMBOLIC PROCEDURE COMM1 U;27922
SYMBOLIC PROCEDURE ESTAT(FN);28252
SYMBOLIC PROCEDURE ENDSTAT;28435
SYMBOLIC PROCEDURE INFIX X;29058
SYMBOLIC PROCEDURE PRECEDENCE U;29220
SYMBOLIC PROCEDURE PRECSET(U,V);29283
SYMBOLIC PROCEDURE ParseDEFINE(X);29736
SYMBOLIC PROCEDURE ParseWRITE(X);30484
SYMBOLIC PROCEDURE ParseOPERATOR(X);30976
SYMBOLIC PROCEDURE OPERATOR U;31536
Symbolic Procedure ChangeCharType(TBL,Ch,Ty);31693
Symbolic Procedure MakeDiphthong(TBL,DipIndicator,StartCh, FollowCh, Diphthong);31978
SYMBOLIC PROCEDURE MYNEWTOK(X,REPLACE,PRTCHARS);32274
Symbolic Procedure XReadEof(Channel,Ef);34330
Symbolic Procedure RatomHOOK();34598
lisp procedure RlispChannelRead Channel;34707
lisp procedure RlispRead();35074

PS:<PSL.UTIL>RLISP-SUPPORT.RED.0
02371,RLISP
macro procedure PgLine U;4447
SYMBOLIC PROCEDURE FLAGP!*!*(U,V);4922
lisp procedure RlispPrompt();5056
SYMBOLIC PROCEDURE BEGIN1;5167
SYMBOLIC PROCEDURE CONDTERPRI;8462
SYMBOLIC PROCEDURE ASSGNL U;8626
SYMBOLIC PROCEDURE DFPRINT U;8830
SYMBOLIC PROCEDURE SHOWTIME;9190
SYMBOLIC PROCEDURE SINITL U;9385
SYMBOLIC PROCEDURE PRIN2X U;10225
SYMBOLIC PROCEDURE PTOKEN;10278
SYMBOLIC PROCEDURE MKEX U;10546
SYMBOLIC PROCEDURE MKSETQ(U,V);10672
SYMBOLIC PROCEDURE MKVAR(U,V);10727
SYMBOLIC PROCEDURE RPLCDX(U,V);10765
SYMBOLIC PROCEDURE REFORM U;10833
SYMBOLIC PROCEDURE REFORMLIS U;12112
SYMBOLIC PROCEDURE EXPANDQ U;12204
SYMBOLIC PROCEDURE ARRAYP U;12373
SYMBOLIC PROCEDURE GETTYPE U;12425
SYMBOLIC PROCEDURE GETELS U;12890
SYMBOLIC PROCEDURE SETELS(U,V);12958
SYMBOLIC PROCEDURE COMMAND;13100
SYMBOLIC PROCEDURE RPRINT U;14424
SYMBOLIC PROCEDURE LPRIE U;15390
SYMBOLIC PROCEDURE LPRIM U;15475
SYMBOLIC PROCEDURE REDERR U;15549
SYMBOLIC PROCEDURE PROGVR VAR;15641
SYMBOLIC PROCEDURE MKARG U;15878
SYMBOLIC PROCEDURE MKPROG(U,V);16167
SYMBOLIC PROCEDURE SETDIFF(U,V);16243
SYMBOLIC PROCEDURE REMTYPE VARLIS;16339
SYMBOLIC PROCEDURE ARRAY U;16917
SYMBOLIC PROCEDURE CINDX!* U;17206
SYMBOLIC PROCEDURE GETEL U;17661
SYMBOLIC PROCEDURE SETEL(U,V);17727
SYMBOLIC PROCEDURE DIMENSION U;17796
SYMBOLIC PROCEDURE TYPECHK(U,V);17901
SYMBOLIC PROCEDURE NUMLIS U;18112
SYMBOLIC PROCEDURE ARRAYFN U;18261
SYMBOLIC PROCEDURE ADD1LIS U;18667
MACRO PROCEDURE IN U;19123
SYMBOLIC PROCEDURE EVIN U;19186
lisp procedure RedIN F;20185
SYMBOLIC PROCEDURE LISPFILENAMEP S;20456
MACRO PROCEDURE OUT U;20926
SYMBOLIC PROCEDURE EVOUT U;20991
MACRO PROCEDURE SHUT U;21355
SYMBOLIC PROCEDURE EVSHUT U;21422
SYMBOLIC PROCEDURE PAUSE;22272
SYMBOLIC PROCEDURE PAUSE1 BOOL;22323
SYMBOLIC PROCEDURE CONT;22969
Symbolic Procedure XREAD1 x;23797
lisp procedure Xread X;23985
SYMBOLIC PROCEDURE BEGINRLISP;24197
SYMBOLIC PROCEDURE MKFIL U;25124
SYMBOLIC PROCEDURE NEWMKFIL U;25225
lisp procedure SetPChar C;25322
lisp procedure SetRlispScanTable();25953
lisp procedure SetLispScanTable();26091
lisp procedure SaveSystem(S, F, I);26283
lisp procedure RlispMain();26499
lisp procedure Rlisp();26569
lisp procedure ReformXRead();26731

PS:<PSL.UTIL>RPRINT.RED.0
01985,RLISP
SYMBOLIC PROCEDURE RPRINT U;1015
SYMBOLIC PROCEDURE RPRIN1 U;1362
SYMBOLIC PROCEDURE MPRINO U;1623
SYMBOLIC PROCEDURE MPRINO1(U,V);1681
SYMBOLIC PROCEDURE MPRARGS(U,V);2924
SYMBOLIC PROCEDURE INPRINOX(U,X,V);3079
SYMBOLIC PROCEDURE INPRINO(OPR,V,L);3320
SYMBOLIC PROCEDURE OPRINO(OPR,B);3964
SYMBOLIC PROCEDURE PRIN2OX U;4132
SYMBOLIC PROCEDURE PRINOX U;4243
SYMBOLIC PROCEDURE GET!*(U,V);4355
SYMBOLIC PROCEDURE OMARK U;4427
SYMBOLIC PROCEDURE OMARKO U;4509
SYMBOLIC PROCEDURE COMPROX U;4559
SYMBOLIC PROCEDURE RLISTATP U;4809
SYMBOLIC PROCEDURE RLPRI(U,V);4890
SYMBOLIC PROCEDURE RLPRI1 U;5159
SYMBOLIC PROCEDURE CONDOX U;5368
SYMBOLIC PROCEDURE BLOCKOX U;5984
SYMBOLIC PROCEDURE RETOX U;6520
SYMBOLIC PROCEDURE VARPRX U;7040
SYMBOLIC PROCEDURE PROGOX U;7457
SYMBOLIC PROCEDURE LABCHK U;7576
SYMBOLIC PROCEDURE GOX U;7780
SYMBOLIC PROCEDURE LABOX U;7880
SYMBOLIC PROCEDURE QUOTOX U;7984
SYMBOLIC PROCEDURE PRINSOX U;8085
SYMBOLIC PROCEDURE PROGNOX U;8486
SYMBOLIC PROCEDURE REPEATOX U;8847
SYMBOLIC PROCEDURE WHILEOX U;9161
SYMBOLIC PROCEDURE PROCOX U;9467
SYMBOLIC PROCEDURE PROCOX1(U,V,W);9706
SYMBOLIC PROCEDURE PROCEOX U;9965
SYMBOLIC PROCEDURE PROCEOX1(U,V,W);10251
SYMBOLIC PROCEDURE PROCEOX0(U,V,W,X);10593
SYMBOLIC PROCEDURE DEOX U;10703
SYMBOLIC PROCEDURE DFOX U;10805
SYMBOLIC PROCEDURE DMOX U;10908
SYMBOLIC PROCEDURE LAMBDOX U;11014
SYMBOLIC PROCEDURE EACHOX U;11189
SYMBOLIC PROCEDURE PRINOS U;11590
SYMBOLIC PROCEDURE PRINOY(U,N);11771
SYMBOLIC PROCEDURE SPACELEFT(U,MARK);12258
SYMBOLIC PROCEDURE PRINOM(U,MARK);12789
SYMBOLIC PROCEDURE CHARSPACE(U,CHR,MARK);13418
SYMBOLIC PROCEDURE RPSPACES2 N;13814
SYMBOLIC PROCEDURE PRIN2ROX U;13926
SYMBOLIC PROCEDURE NOSPACE(U,N);14682
SYMBOLIC PROCEDURE BREAKP U;14917
SYMBOLIC PROCEDURE STRINGSPACE(U,N);15007
SYMBOLIC PROCEDURE PRIN20X U;15352
SYMBOLIC PROCEDURE TERPRI0X;15442

PS:<PSL.UTIL>SM.RED.0
00099,RLISP
procedure sm(p,s);70
procedure sm1(p,p1,p2,s,s1,s2);138

PS:<PSL.UTIL>TEL-ANN-DRIVER.RED.0
01782,RLISP
Procedure TEL!.OutChar x;370
Procedure TEL!.OutCharString S;417
Procedure TEL!.NormX X;503
Procedure TEL!.NormY Y;544
Procedure  TEL!.ChPrt(X,Y,Ch);594
Procedure  TEL!.IdPrt(X,Y,Id);782
Procedure  TEL!.StrPrt   (X,Y,S);851
Procedure  TEL!.HOME   ();1041
Procedure TEL!.EraseS   ();1138
Procedure  TEL!.DDA   (X1,Y1,X2,Y2,dotter);1261
Procedure Tel!.MoveS   (X1,Y1);2011
Procedure Tel!.DrawS   (X1,Y1);2086
Procedure  Idl2chl   (X);2207
Procedure  Texter   (X1,Y1,X2,Y2,Txt);2432
Procedure  Tdotc   (X1,Y1);2594
Procedure  TEL!.dotc   (X1,Y1);2892
Procedure  TEL!.ChClip   (X1,Y1,Id);2984
Procedure Tel!.VwPort(X1,X2,Y1,Y2);3208
Procedure  Tel!.Wfill   (X1,X2,Y1,Y2,Id);3378
Procedure  TEL!.Wzap   (X1,X2,Y1,Y2);3528
Procedure TEL!.Delay;3588
Procedure TEL!.GRAPHON();3624
Procedure TEL!.GRAPHOFF();3686
Procedure TEL!.INIT  ();3745
Procedure ANN!.OutChar x;4430
Procedure ANN!.OutCharString S;4477
Procedure ANN!.NormX X;4563
Procedure ANN!.NormY Y;4632
Procedure ANN!.XY(X,Y);4723
Procedure  ANN!.ChPrt(X,Y,Ch);5298
Procedure  ANN!.IdPrt(X,Y,Id);5377
Procedure  ANN!.StrPrt(X,Y,S);5443
Procedure ANN!.EraseS();5522
Procedure  ANN!.DDA(X1,Y1,X2,Y2,dotter);5719
Procedure ANN!.MoveS(X1,Y1);6465
Procedure ANN!.DrawS(X1,Y1);6537
Procedure  Idl2chl(X);6654
Procedure  Texter(X1,Y1,X2,Y2,Txt);6872
Procedure  ANN!.Tdotc(X1,Y1);7037
Procedure  ANN!.dotc(X1,Y1);7321
Procedure  ANN!.ChClip(X1,Y1,Id);7414
Procedure ANN!.VwPort(X1,X2,Y1,Y2);7628
Procedure  ANN!.Wfill(X1,X2,Y1,Y2,Id);7791
Procedure  ANN!.Wzap(X1,X2,Y1,Y2);7937
Procedure ANN!.Delay;7996
Procedure ANN!.GRAPHON();8032
Procedure ANN!.GRAPHOFF();8095
Procedure ANN!.INIT();8153

PS:<PSL.UTIL>TEST-ARITH.RED.0
02939,RLISP
syslsp procedure IsInum U;335
syslsp procedure TwoArgDispatch(FirstArg, SecondArg);598
lap '((!*entry TwoArgDispatch1 expr 4)712
syslsp procedure TwoArgError(FirstArg, SecondArg, DispatchTable);4861
syslsp procedure NonInteger2Error(FirstArg, SecondArg, DispatchTable);5091
syslsp procedure NonInteger1Error(Arg, DispatchTable);5305
syslsp procedure OneArgDispatch FirstArg;5484
lap '((!*entry OneArgDispatch1 expr 2)5572
syslsp procedure OneArgError(FirstArg, Dummy, DispatchTable);6453
syslsp procedure OneArgPredicateDispatch FirstArg;6646
lap '((!*entry OneArgPredicateDispatch1 expr 2)6752
syslsp procedure MakeFixnum N;7622
syslsp procedure BigFloatFix N;7742
syslsp procedure ReturnNIL();7841
syslsp procedure ReturnFirstArg Arg;7891
syslsp procedure StaticIntFloat Arg;8065
syslsp procedure StaticIntBig Arg;8191
syslsp procedure StaticBigFloat Arg;8299
macro procedure DefArith2Entry U;8438
macro procedure DefArith1Entry U;8540
macro procedure DefArith1PredicateEntry U;8651
lisp procedure StupidParserFix X;8762
lisp procedure RemQuote X;8955
lisp procedure DefArithEntry L;9035
syslsp procedure IntPlus2(FirstArg, SecondArg);9635
syslsp procedure FloatPlus2(FirstArg, SecondArg);9793
syslsp procedure IntDifference(FirstArg, SecondArg);10084
syslsp procedure FloatDifference(FirstArg, SecondArg);10252
syslsp procedure IntTimes2(FirstArg, SecondArg);10558
syslsp procedure FloatTimes2(FirstArg, SecondArg);10754
syslsp procedure IntDivide(FirstArg, SecondArg);11100
syslsp procedure FloatDivide(FirstArg, SecondArg);11226
syslsp procedure IntQuotient(FirstArg, SecondArg);11356
syslsp procedure FloatQuotient(FirstArg, SecondArg);11690
syslsp procedure IntRemainder(FirstArg, SecondArg);12123
syslsp procedure FloatRemainder(FirstArg, SecondArg);12461
syslsp procedure IntLAnd(FirstArg, SecondArg);12737
syslsp procedure IntLOr(FirstArg, SecondArg);12945
syslsp procedure IntLXOr(FirstArg, SecondArg);13156
procedure IntLShift(FirstArg, SecondArg);13409
syslsp procedure IntGreaterP(FirstArg, SecondArg);13583
syslsp procedure FloatGreaterP(FirstArg, SecondArg);13676
syslsp procedure IntLessP(FirstArg, SecondArg);13868
syslsp procedure FloatLessP(FirstArg, SecondArg);13955
syslsp procedure IntAdd1 FirstArg;14130
lisp procedure FloatAdd1 FirstArg;14265
lisp procedure IntSub1 FirstArg;14387
lisp procedure FloatSub1 FirstArg;14527
lisp procedure IntLNot X;14654
lisp procedure IntMinus FirstArg;14804
lisp procedure FloatMinus FirstArg;14936
syslsp procedure FloatFix Arg;15073
syslsp procedure FloatIntArg Arg;15287
syslsp procedure IntMinusP FirstArg;15498
lisp procedure FloatMinusP FirstArg;15564
lisp procedure IntZeroP FirstArg;15701
lisp procedure FloatZeroP FirstArg;15759
lisp procedure IntOneP FirstArg;15885
lisp procedure FloatOneP FirstArg;15942

PS:<PSL.UTIL>VECTOR-FIX.RED.0
00317,RLISP
syslsp procedure MkWords N;271
syslsp procedure TruncateVector(V,I);732
syslsp procedure WordsP W;1292
syslsp procedure TruncateWords(V,I);1353
syslsp procedure GetWords(WRD, I);1884
syslsp procedure PutWords(WRD, I, Val);2391
syslsp procedure UpbW V;2893

PS:<PSL.UTIL.20>20-INTERRUPT.RED.0
01489,RLISP
syslsp procedure XJsysError();1189
syslsp procedure InitializeInterrupts();1315
syslsp procedure SetContinueAddress(Level,Address);3131
lisp procedure SetContinueFunction(Level,FunctionName);3364
lisp procedure PutInterrupt(Channel,Level,ActionId);3526
syslsp procedure XWD(a,b);3705
syslsp procedure PutTerminalInterrupt(CntrlChar,Channel);3786
syslsp procedure RemoveTerminalInterrupt(CntrlChar,Channel);3903
syslsp procedure ReadTerminalWord;3994
syslsp procedure SetTerminalWordBit(n);4070
syslsp procedure SetTerminalWord(MSK);4204
syslsp procedure ClearInterrupts;4327
syslsp procedure SignalChannel n;4427
syslsp procedure EnableInterrupts;4533
syslsp procedure DisableInterrupts;4609
syslsp procedure ActivateChannel(n);4686
syslsp procedure DeActivateChannel(n);4798
syslsp procedure Dec20Bit n;4900
syslsp procedure Dec20Fld(x,y);4974
syslsp procedure DismissInterrupt;5026
syslsp procedure DoControlG;5244
syslsp procedure ClearTerminalInputBuffer();5484
syslsp procedure ArithOverflow;5557
syslsp procedure ArithOverFlowError;5671
syslsp procedure FloatArithOverflow;5746
syslsp procedure FloatArithOverFlowError;5870
lap '((!*entry PushDownOverflow expr 0)5956
lap '((!*entry FindLoadAverage expr 0)6270
syslsp procedure DoControlT();6564
syslsp procedure DoBreak();6946
lap '((!*Entry SaveAndCallControlT expr 0) 7392
lap '((!*Entry SaveAndBreak expr 0) 8007

PS:<PSL.UTIL.20>DIR-STUFF.RED.0
00688,RLISP
procedure ReadOneLine;195
procedure ReadDirFile F;435
procedure ReadAllFile1;679
procedure ReadCleanDir F;950
Procedure GetFileName(S);1269
procedure GetExtension(S);1454
procedure ExpandNames(Fvector);1714
procedure RemoveVersionNumber F;1987
procedure RemoveAllVersionNumbers(Fvector);2185
procedure GetDirInFile(Dstring,FileName);2385
procedure GetCleanDir Dstring;2617
procedure GetDatedDirInFile(Dstring,FileName);2861
procedure GetCleanDatedDir Dstring;3132
procedure ReadCleanDatedDir F;3370
Procedure SegmentString(S,ch);3613
Procedure NextCh(Ch,S,s1,s2);4003
Procedure NextNonCh(Ch,S,s1,s2);4102

PS:<PSL.UTIL.20>EXEC.RED.0
01291,RLISP
Lisp procedure GetOLDJfn FileName;1267
Lisp procedure GetNEWJfn FileName;1557
Lisp procedure RELJfn Jfn;1846
Lisp procedure OPENOLDJfn Jfn;1940
Lisp procedure OPENNEWJfn Jfn;2042
Lisp procedure GetFork Jfn;2142
Lisp procedure STARTFork FH;2358
Lisp procedure WAITFork FH;2452
Lisp procedure RUNFork FH;2540
Lisp procedure KILLFork FH;2634
Lisp procedure SETPRIMARYJfnS(FH,INJfn,OUTJfn);2737
Lisp procedure OPENFork FileName;2861
Lisp procedure RUN FileName;3116
Lisp Procedure ForkP FH;3234
Lisp procedure EXEC;3333
Lisp procedure EMACS;3457
Lisp procedure MM;3579
Lisp procedure GetUNAME;3695
Lisp procedure GetCDIR;3877
 PROCEDURE ClockTimeDate (Time_Selector);5046
procedure GetLoadAverage;6728
Lisp procedure PSOUT S;6905
Lisp procedure GTJfn L;6982
Lisp procedure NAMEFROMJfn J;7062
Fexpr Procedure InFile(U);7239
Lisp procedure  PutRescan(S);7645
syslsp procedure  GetRescan();7782
Lisp procedure  CONCATS (L);8264
Lisp Fexpr Procedure CMDS (!%L);8390
Lisp procedure  DOCMDS (L);8476
Lisp procedure  VDIR (L);8654
Lisp procedure HelpDir();8720
Lisp procedure Take (FileName);8798
Lisp procedure  SYS (L);8894
Lisp procedure  TALK (L);8963
Lisp procedure  TYPE (L);9024

PS:<PSL.UTIL.20>JSYS.RED.0
01101,RLISP
lap '((!*entry xjsys0 expr 5)1217
lap '((!*entry xjsys1 expr 5)1506
lap '((!*entry xjsys2 expr 5)1735
lap '((!*entry xjsys3 expr 5)2028
lap '((!*entry xjsys4 expr 5)2321
lap '((!*entry geterrorstring expr 1)2624
syslsp procedure xjsyserror$	 %/ should load up errstr2955
syslsp procedure str2int s;3160
syslsp procedure int2str i;3212
syslsp procedure jconv j;3261
syslsp procedure jsys0(jr1,jr2,jr3,jr4,jnum);3617
syslsp procedure jsys1(jr1,jr2,jr3,jr4,jnum);3738
syslsp procedure jsys2(jr1,jr2,jr3,jr4,jnum);3859
syslsp procedure jsys3(jr1,jr2,jr3,jr4,jnum);3980
syslsp procedure jsys4(jr1,jr2,jr3,jr4,jnum);4101
syslsp procedure checknum(x,y);4208
syslsp procedure insertstringsize s;4319
syslsp procedure recopystringtonull s;4557
syslsp procedure swap(x);4875
syslsp procedure lowhalfword n;4969
syslsp smacro procedure rsh(x,y);5059
syslsp procedure highhalfword n;5114
syslsp procedure xword(x,y);5191
syslsp procedure jbits l;5509
macro procedure bits l;6041
procedure MakeJsys(Name, Number);6133

PS:<PSL.UTIL.20>MONSYM.RED.0
00196,RLISP
macro procedure DefineJSYSRangeFrom X;329
lisp procedure JSYSDeposit X;760
lisp procedure ERJMP Address;936
lisp procedure ERCAL Address;1007

PS:<PSL.UTIL.20>WHEREIS.RED.0
00131,RLISP
Procedure ShowAllIns();160
Procedure LoadAllIns();364
Procedure WhereIs X;614

PS:<PSL.UTIL.HP>HP9836-DRIV.RED.0
00999,RLISP
Procedure FNCOPY(NewName,OldName)$          %. to copy equivalent 460
Procedure  DDA   (X1,Y1,X2,Y2,dotter);564
Procedure HP9836!.Delay$                  %. Delay to wait for the display1534
Procedure HP9836!.EraseS()$               %. EraseS graphic diaplay screen1620
Procedure HP9836!.Erase()$               %. EraseS graphic diaplay screen1739
Procedure HP9836!.NormX XX$               %. absolute position along 1876
Procedure HP9836!.NormY YY$               %. absolute position along 2040
Procedure HP9836!.MoveS (XDEST,YDEST)$    %. Move pen to absolute location2138
Procedure HP9836!.DrawS (XDEST,YDEST)$       %. MoveS pen to the pen position2269
Procedure HP9836!.VWPORT(X1,X2,Y1,Y2)$         %. set the viewport2456
Procedure HP9836!.GRAPHON();2629
Procedure HP9836!.GRAPHOFF();2743
Procedure HP9836!.INIT$                        %. HP device specIfic 2849
Procedure EchoOn();3798
Procedure EchoOff();3830

PS:<PSL.UTIL.HP>LPCALLS.RED.0
00326,RLISP
Procedure PInteger I;91
procedure PReal f;142
Procedure PArray v;284
procedure Pvar N;364
procedure GetPvar(x);503
procedure PutPvar(x,y);543
Procedure Pstring S;613
Procedure String!-To!-Bytes S;972
procedure GtBytes N;1083
procedure Bytes (Uplim,init);1229

PS:<PSL.UTIL.VAX>OLOAD.RED.0
00265,RLISP
smacro procedure WordCount( Bytes );517
procedure oload Files;1362
syslisp procedure ClearBlock( BgnAddr, EndAddr );4840
procedure NewForeignFn( Name, Loc );5024
procedure NewForeignData( Name, Loc, Sz );5229

PS:<PSL.UTIL.VAX>VAX-PATH.RED.0
00472,RLISP
procedure  MkPath0 (L);307
procedure  MkPath1 (p);463
procedure  MkPath2 (a, b);698
procedure file!-path(s);1084
procedure UpString s;1792
procedure StartupPath();1997
procedure path x;2241
procedure new!-open(x,y);2478
procedure new!-BinaryOpenRead(x,y);2651
procedure new!-BinaryOpenWrite(x,y);2828
procedure new!-cd(x);2994
procedure Try!-Read!-File name;3125
procedure Read!-Psl!-Names();3191

PS:<PSL.COMP>ANYREG-CMACRO.SL.0
01560,PSL
(dm DefAnyreg (Form)634
(dm DefCMacro (Form)1105
(de ResolveOperand (Register Source)1476
(de ResolveWConst (Expression)1873
(de ResolveWConstExpression (Expression)2124
(de WConstEvaluable (Expression)2940
(de WConstEvaluabLis (ExpressionTail)3574
(de OneOperandAnyreg (Register Source AnyregName)3894
(de TwoOperandAnyreg (Register Source SecondArg AnyregName)4168
(de ExpandOneArgumentAnyreg (Register Source AnyregName)4372
(de ExpandTwoArgumentAnyreg (Register Source SecondArg AnyregName)4538
(de ExpandThreeArgumentAnyreg (Register Source SecondArg ThirdArg AnyregName)4725
(de AnyregPatternExpand (ArgumentList PatternTable)4895
(de Expand2OperandAndLabelCMacro (Arg1 Arg2 Label CMacroName)5123
(de Expand4OperandCMacro (Arg1 Arg2 Arg3 Arg4 CMacroName)5423
(de Expand2OperandCMacro (Arg1 Arg2 CMacroName)5759
(de Expand1OperandCMacro (Arg1 CMacroName)5996
(de CMacroPatternExpand (ArgumentList PatternTable)6198
(de AnyregPatternMatch (ArgumentList PatternTable)6342
(de AnyregPatternMatch1 (ArgumentList PredicateOrPredicateList)6608
(de MatchAll (ArgumentList PredicateList)6802
(de AnyregSubstitute (ArgumentList CodeAndAddressExpressionList)7049
(de AnyregSubstitute1 (NameExpressionAList CodeAndAddressExpressionList)7256
(de CMacroSubstitute (ArgumentList CodeTemplateList)7670
(de CMacroSubstitute1 (NameExpressionAList CodeTemplateList)7944
(de SafePair (CarList CdrList)8262
(de PatternSublA (AList Expression)8455
(de TempLabelGen (X)8928

PS:<PSL.COMP>COMMON-CMACROS.SL.0
02028,PSL
(de !*Link (FunctionName FunctionType NumberOfArguments)436
(de !*Call (FunctionName)685
(de !*LinkE (DeAllocCount FunctionName FunctionType NumberOfArguments)1025
(de !*JCall (FunctionName)1341
(de !*DeAlloc (DeAllocCount)1776
(de !*Alloc (N)1881
(de !*Exit (N)1997
(de !*JumpWithin (Label LowerBound UpperBound)2115
(de !*ProgBind (FluidsList)2395
(de !*FreeRstr (FluidsList)2492
(de !*Jump (Arg1)2578
(de !*Lbl (Arg1)2638
(de !*Push (Arg1)2674
(de !*Pop (Arg1)2734
(de !*Move (Source Destination)2808
(de !*JumpEQ (Label Arg1 Arg2)3206
(de !*JumpNotEQ (Label Arg1 Arg2)3304
(de !*JumpWLessP (Label Arg1 Arg2)3406
(de !*JumpWGreaterP (Label Arg1 Arg2)3512
(de !*JumpWLEQ (Label Arg1 Arg2)3616
(de !*JumpWGEQ (Label Arg1 Arg2)3715
(de !*JumpType (Label Arg TypeTag)3816
(de !*JumpNotType (Label Arg TypeTag)3966
(de !*JumpInType (Label Arg TypeTag)4118
(de !*JumpNotInType (Label Arg TypeTag)4272
(de !*MkItem (Arg1 Arg2)4414
(de !*WPlus2 (Arg1 Arg2)4489
(de !*WDifference (Arg1 Arg2)4569
(de !*WTimes2 (Arg1 Arg2)4650
(de PowerOf2P (X)5041
(de !*AShift (Arg1 Arg2)5328
(de !*WShift (Arg1 Arg2)5403
(de !*WAnd (Arg1 Arg2)5476
(de !*WOr (Arg1 Arg2)5546
(de !*WXOr (Arg1 Arg2)5616
(de !*WMinus (Arg1 Arg2)5689
(de !*WNot (Arg1 Arg2)5762
(de !*Loc (Arg1 Arg2)5832
(de !*Field (Arg1 Arg2 Arg3 Arg4)5913
(de !*SignedField (Arg1 Arg2 Arg3 Arg4)6012
(de !*PutField (Arg1 Arg2 Arg3 Arg4)6114
(de AnyregCAR (Register Source)6208
(de AnyregCDR (Register Source)6287
(de AnyregQUOTE (Register Source)6368
(de AnyregWVAR (Register Source)6457
(de AnyregREG (Register Source)6544
(de AnyregWCONST (Register Source)6633
(de AnyregFRAME (Register Source)6771
(de AnyregFRAMESIZE (Register)6947
(de AnyregMEMORY (Register Source ArgTwo)7082
(de anyreglabelgen (reg name)7501
(de labelgen (name)7735
(de anyreglabelref (reg name) (cdr (assoc name labelgen*)))7861
(de labelref (name)7923

PS:<PSL.COMP>COMMON-PREDICATES.SL.0
00294,PSL
(de RegisterP (Expression)394
(de AnyP (Expression)447
(de TaggedLabel (X)476
(de EqTP (Expression)522
(de MinusOneP (Expression)577
(de InternallyCallableP (X)		% only when writing a file662
(de AddressConstantP (Expression)881

PS:<PSL.COMP>P-LAMBIND.SL.0
00133,PSL
(de *lambind (regs fluids)431
(de *progbind (fluids)1345
(de *freerstr (fluids)1645

PS:<PSL.COMP>PASS-1-LAP.SL.0
01287,PSL
(de Pass1Lap (InstructionList)1910
(de BuildConstant (Expression)2504
(de Pass1Code (InstructionList)2956
(de OneLapPass1 (Instruction)3065
(de MCPrint(x) (print x))4035
(de InstructionPrint(x) (PrintF "	%p%n" x))4080
(de AddInstruction (Instruction)4116
(de ExpandPseudoOps (X)4187
(de ExpandOnePseudoOp (X)4311
(de PassOneUnImmediate (X)4685
(de PassOneLabel (U)4849
(de PassOneUnDeferred (X)4936
(de PassOneExtraReg (X)5179
(de GenerateCodeLabel ()5428
(de GenerateLabel ()5554
(de AddCodeLabel (Label)5601
(de AddCode (C)5640
(de ExpandLit (U)5689
(de FindPreviousLit (U)5936
(de ExpandQuote (QuotedExpression)6525
(de ExpandQuote1 (Expression)6645
(de ExpandImmediateQuote (Expression)6800
(de ExpandItem (Expression)6877
(de ExpandNonImmediateQuote (Expression)7357
(de SaveConstant (Expression)7420
(de SaveContents (Expression)7775
(de AppendConstants ()8112
(de AppendOneConstant (ExpressionLabelPair)8573
(de AppendItem (Expression)8706
(de AddFullWord (Expression)8780
(de AppendContents (ExpressionLabelPair)8866
(de MakeMkItem (TagPart InfPart)10035
(de InumP (N) (IntP N))	       (* "Must be changed for cross-compilation")10148
(de TagNumber (Expression)10178

PS:<PSL.COMP.20>DEC20-CMAC.SL.0
00461,PSL
(de MkItem (TagPart InfPart)889
(ds BitMask (Start End)972
(dm Bit (U)1050
(de ExpandBit (U)1150
(de InumP (Expression)1421
(de TagNumber (X)1595
(de ImmediateP (X)1906
(de MemoryP (X)2019
(de NegativeImmediateP (X)2074
(de EighteenP (X)2166
(de NonIndirectP (Expression)2216
(de FakeRegisterNumberP (Expression)2295
(DE  !*ForeignLink (FunctionName  FunctionType NumberOfArguments)22702

PS:<PSL.COMP.20>INSTRS.SL.0
00077,PSL
(dm DEFINEOPCODERANGEFROM (U)43

PS:<PSL.COMP.20>NON-KL-COMP.SL.0
00080,PSL
(dm AdjustStackPointer (U)895

PS:<PSL.COMP.20>TENEX-ASM.SL.0
00073,PSL
(de CodeFileHeader ()314

PS:<PSL.COMP.68>KEEP-CMAC.SL.0
01878,PSL
(ds BitMask (StartingBit Length)3351
(ds NegMask (Length) (lsh 16#ffffffff Length))3528
(ds ShiftAmt (StartingBit Length)3565
(ds MakeTag (tag) (lsh tag 24))3680
(dm mkcode (x)7680
(de TaggedLabel (X)7736
(de TagNumber (X)8138
(de InumP (Expression)8553
(de LongInumP (Expression)8689
(de SmallInumP (Expression)8743
(de PosInumP (Expression)8870
(de NegInumP (Expression)8990
(de DispInumP (Expression)9069
(de QInumP (Expression) (and (FixP Expression)9221
(de PosQInumP (Expression) (and (FixP Expression)9403
(de NegQInumP (Expression) (and (FixP Expression)9584
(de RegP (RegName) (EqCar RegName 'Reg))9757
(de ARegP (RegName) (AND (RegP RegName)9800
(de ScratchARegP (RegName) (AND (RegP RegName)10056
(de DRegP (RegName) (AND (RegP RegName)10154
(de FakeRegP (Expression)10385
(de AddrExpressionP (x)10464
(de GetTagInumP (x) (Equal x -24))10557
(de PutTagInumP (x) (Equal x 24))10594
(de OneP   (x) (equal x  1))10626
(de TwoP   (x) (equal x  2))10656
(de FourP  (x) (equal x  4))10686
(de SixP   (x) (equal x  6))10716
(de EightP (x) (equal x  8))10746
(de TenP   (x) (equal x 10))10776
(de SixteenP (x) (equal x 16))10808
(De AnyRegImmediate(REGISTER SOURCE)16039
(de !*foreignlink (functionname functiontype numberofarguments)20172
(De !*JumpEQ (Lbl Arg1 Arg2)25888
(de !*jumpif (arg1 arg2 label instructions)26008
(De !*JumpNotEQ (Lbl Arg1 Arg2)27622
(de !*jumpon (register lowerbound upperbound labellist)28245
(De !*JumpWGEQ (Lbl Arg1 Arg2)29309
(De !*JumpWGreaterP (Lbl Arg1 Arg2)29419
(De !*JumpWLEQ (Lbl Arg1 Arg2)29529
(De !*JumpWLessP (Lbl Arg1 Arg2)29636
(DE !*Lambind (regs flst)29738
(de !*Link (FunctionName FunctionType NumberOfArguments)30443
(de !*LinkE (DeAllocCount FunctionName FunctionType NumberOfArguments)30795

PS:<PSL.COMP.68>M68K-CMAC.SL.0
02112,PSL
(ds BitMask (StartingBit Length)3351
(ds NegMask (Length) (lsh 16#ffffffff Length))3528
(ds ShiftAmt (StartingBit Length)3565
(ds MakeTag (tag) (lsh tag 24))3680
(dm mkcode (x)7680
(de TaggedLabel (X)7736
(de TagNumber (X)8138
(de InumP (Expression)8553
(de LongInumP (Expression)8689
(de SmallInumP (Expression)8743
(de PosInumP (Expression)8823
(de NegInumP (Expression)8943
(de DispInumP (Expression)9022
(de QInumP (Expression) (and (FixP Expression)9174
(de PosQInumP (Expression) (and (FixP Expression)9356
(de NegQInumP (Expression) (and (FixP Expression)9537
(de RegP (RegName) (EqCar RegName 'Reg))9710
(de ARegP (RegName) (AND (RegP RegName)9753
(de ScratchARegP (RegName) (AND (RegP RegName)10009
(de DRegP (RegName) (AND (RegP RegName)10107
(de FakeRegP (Expression)10338
(de AddrExpressionP (x)10417
(de GetTagInumP (x) (Equal x -24))10510
(de PutTagInumP (x) (Equal x 24))10547
(de OneP   (x) (equal x  1))10579
(de TwoP   (x) (equal x  2))10609
(de FourP  (x) (equal x  4))10639
(de SixP   (x) (equal x  6))10669
(de EightP (x) (equal x  8))10699
(de TenP   (x) (equal x 10))10729
(de SixteenP (x) (equal x 16))10761
(de TwentyFourP (x)(equal x 24))10795
(De AnyRegImmediate(REGISTER SOURCE)16067
(De !*JumpEQ (Lbl Arg1 Arg2)21328
(de !*jumpif (arg1 arg2 label instructions)21448
(De !*JumpNotEQ (Lbl Arg1 Arg2)22728
(de !*jumpon (register lowerbound upperbound labellist)22859
(De !*JumpWGEQ (Lbl Arg1 Arg2)23776
(De !*JumpWGreaterP (Lbl Arg1 Arg2)23886
(De !*JumpWLEQ (Lbl Arg1 Arg2)23996
(De !*JumpWLessP (Lbl Arg1 Arg2)24103
(de !*JumpIfTag (arg1 arg2 label instructions)24328
(De !*JumpNotEQTag (Lbl Arg1 Arg2)25390
(De !*JumpEQTag (Lbl Arg1 Arg2)25503
(De !*JumpWGEQTag (Lbl Arg1 Arg2)25615
(De !*JumpWGreaterPTag (Lbl Arg1 Arg2)25734
(De !*JumpWLessPTag (Lbl Arg1 Arg2)25855
(DE !*Lambind (regs flst)27332
(de !*Link (FunctionName FunctionType NumberOfArguments)28037
(de !*LinkE (DeAllocCount FunctionName FunctionType NumberOfArguments)28389

PS:<PSL.COMP.68.APOLLO>APOLLO-CMACRO-CHANGES.SL.0
00196,PSL
(de !*foreignlink (functionname functiontype numberofarguments)426
(de !*jumpon (register lowerbound upperbound labellist)6297

PS:<PSL.COMP.68.HP>HP-CMAC.SL.0
01814,PSL
(ds BitMask (StartingBit Length)2160
(ds NegMask (Length) (lsh 16#ffffffff Length))2329
(ds ShiftAmt (StartingBit Length) 2367
(ds MakeTag (tag) (lsh (land tag 16#ff) 24))2487
(ds mkcode (x)4673
(de TaggedLabel (X)4716
(de TagNumber (X)5121
(de InumP (Expression)5584
(de LongInumP (Expression)5720
(de SmallInumP (Expression)5861
(de PosInumP (Expression)5988
(de NegInumP (Expression)6108
(de DispInumP (Expression)6187
(de QInumP (Expression) (and (FixP Expression)6339
(de PosQInumP (Expression) (and (FixP Expression)6521
(de NegQInumP (Expression) (and (FixP Expression)6702
(de RegP (RegName) (EqCar RegName 'Reg))6875
(de ARegP (RegName) (AND (RegP RegName)6918
(de ScratchARegP (RegName) (AND (RegP RegName)7124
(de NotARegP (RegName)7205
(de DRegP (RegName) (AND (RegP RegName)7274
(de FakeRegP (Expression)7409
(de ImmediateP (x)7483
(de GetTagInumP (x) (Equal x -24))  7578
(de PutTagInumP (x) (Equal x 24))  7617
(de OneP   (x) (equal x  1))7649
(de TwoP   (x) (equal x  2))7679
(de FourP  (x) (equal x  4))7709
(de SixP   (x) (equal x  6))7739
(de EightP (x) (equal x  8))7769
(de TenP   (x) (equal x 10))7799
(de SixteenP (x) (equal x 16))7831
(De AnyRegImmediate(REGISTER SOURCE)10397
(De !*JumpEQ (Lbl Arg1 Arg2)14714
(De !*JumpNotEQ (Lbl Arg1 Arg2)15629
(De !*JumpWGEQ (Lbl Arg1 Arg2)16174
(De !*JumpWGreaterP (Lbl Arg1 Arg2)16284
(De !*JumpWLEQ (Lbl Arg1 Arg2)16394
(De !*JumpWLessP (Lbl Arg1 Arg2)16501
(de !*Link (FunctionName FunctionType NumberOfArguments)16668
(de !*LinkE (DeAllocCount FunctionName FunctionType NumberOfArguments)16956
(DE  !*ForeignLink (FunctionName  FunctionType NumberOfArguments)30460
(DE !*JUMPIF (ARG1 ARG2 LABEL INSTRUCTIONS)33623

PS:<PSL.COMP.CRAY>ANYREGS.SL.0
01698,PSL
(ds BitMask (StartingBit Length)			1797
(ds NegMask (Length) (lsh 16#ffffffffffffffff Length))1994
(ds ShiftAmt (StartingBit Length) 2032
(de TaggedLabel (X)4279
(de InumP (Expression)4326
(de SmallInumP (Expression)4471
(de PosInumP (Expression)4606
(de NegInumP (Expression)4691
(de PosShiftInumP (Expression) (and (FixP Expression)4797
(de NegShiftInumP (Expression) (and (FixP Expression)4983
(de IndexedP (E) (EqCar E 'Indexed))5158
(de RegP (RegName) (EqCar RegName 'Reg))5202
(de ARegP (RegName) (AND (RegP RegName)5245
(de SregP (regName) (AND (RegP RegName)5373
(de A0RegP (RegName) (AND (RegP RegName)5515
(de S0regP (regName) (AND (RegP RegName)5612
(de ANon0RegP (RegName) (AND (RegP RegName)5712
(de SNon0regP (regName) (AND (RegP RegName)5841
(De TregP (regname) (AND (RegP RegName)6576
(De BregP (regname) (AND (RegP RegName)6676
(de ImmediateP (x)6755
(de TagNumber (X)7202
(De AnyRegImmediate(REGISTER SOURCE)9864
(de !*SignExtend (Arg1 Arg2)12150
(de !*WAND3 (Destination Operand1 Operand2)13014
(de !*WDIFFERENCE3 (Destination Operand1 Operand2)13146
(de !*WOR3 (Destination Operand1 Operand2)13277
(de !*WPLUS23 (Destination Operand1 Operand2)13402
(de !*WXOR3 (Destination Operand1 Operand2)13529
(De !*JumpEQ (Lbl Arg1 Arg2)16832
(De !*JumpNotEQ (Lbl Arg1 Arg2)17791
(De !*JumpWGEQ (Lbl Arg1 Arg2)18345
(De !*JumpWGreaterP (Lbl Arg1 Arg2)18455
(De !*JumpWLEQ (Lbl Arg1 Arg2)18565
(De !*JumpWLessP (Lbl Arg1 Arg2)18672
(de !*Link (FunctionName FunctionType NumberOfArguments)18840
(de !*LinkE (DeAllocCount FunctionName FunctionType NumberOfArguments)19137

PS:<PSL.COMP.CRAY>CMACROS.SL.0
01161,PSL
(de MkWConst (Var Val)1368
(de ChooseRegisterFunction (DummyArgument R1 R2)1887
(de AnyRegPickOffIndexedReg (reg x)2250
(de AnyRegPickOffIndexAmt (reg x)2538
(de UseRegisterFunction (DummyArgument R1 R2)2896
(de MakeLinkRegs(Fn Nargs)3423
(De !*3op (Arg1 Arg2 Arg3 Instruction)4427
(de !*SignExtend (Arg1 Arg2)6998
(de !*Tag (Arg1 Arg2)8022
(de !*WAND3 (Destination Operand1 Operand2)8890
(de !*WDIFFERENCE3 (Destination Operand1 Operand2)9022
(de !*WOR3 (Destination Operand1 Operand2)9153
(de !*WPLUS3 (Destination Operand1 Operand2)9277
(de !*WXOR3 (Destination Operand1 Operand2)9403
(De !*JumpEQ (Lbl Arg1 Arg2)15024
(de !*JumpIF (Arg1 Arg2 Label Instructions)15709
(De !*JumpNotEQ (Lbl Arg1 Arg2)17033
(De !*JumpWGEQ (Lbl Arg1 Arg2)19426
(De !*JumpWGreaterP (Lbl Arg1 Arg2)19709
(De !*JumpWLEQ (Lbl Arg1 Arg2)19993
(De !*JumpWLessP (Lbl Arg1 Arg2)20273
(de !*Link (FunctionName FunctionType NumberOfArguments)21084
(de !*LinkE (DeAllocCount FunctionName FunctionType NumberOfArguments)22201
(de !*LMask (Arg1 Arg2)29634
(de !*Merge (Arg1 Arg2 Arg3 Arg4)29803

PS:<PSL.COMP.CRAY>CRAY-CMAC.SL.0
00648,PSL
(de TagNumber (X)2007
(de TempRegP (x)4258
(de GetARegProc (x)4340
(de AnyRegGetAReg (Register arg)4604
(de AnyRegGetIndexedAReg (Register arg1 arg2)4711
(de reg (x) (list 'reg x))4992
(de  PickOffAnyReg(x)5204
(De AnyRegCAR (Register Source)5627
(De AnyRegCDR (Register Source)6122
(De AnyRegImmediate(REGISTER SOURCE)6465
(De AnyRegMEMORY (Register SOURCE ARgTWO)6987
(de !*LAMBIND (REGS FLST)13769
(de !*JUMPON (REGISTER LOWERBOUND UPPERBOUND LABELLIST)14756
(de MAKESTOREARG (N FunctionName)15819
(de !*FOREIGNLINK (FUNCTIONNAME FUNCTIONTYPE NUMBEROFARGUMENTS)16345

PS:<PSL.COMP.CRAY>FOREIGN-NEW.SL.0
00145,PSL
(de MAKESTOREARG (N)470
(de !*FOREIGNLINK (FUNCTIONNAME FUNCTIONTYPE NUMBEROFARGUMENTS)795

PS:<PSL.COMP.CRAY>INUMP.SL.0
00071,PSL
(de InumP (Expression)36

PS:<PSL.COMP.CRAY>PATCHES.SL.0
00117,PSL
(de DataPrintUndefinedFunctionCell ()37
(dm for(u) ( MkFor1 u))322

PS:<PSL.COMP.CRAY>PREDICATES.SL.0
01378,PSL
(de TaggedLabel (X)2138
(de InumP (Expression)      %/ Needs BIGNUMs2207
(de SmallInumP (Expression)2352
(de PosInumP (Expression)2488
(de NegInumP (Expression)2573
(de PosShiftInumP (Expression) (and (FixP Expression)2679
(de NegShiftInumP (Expression) (and (FixP Expression)2865
(de WordWidthP (Expression)3033
(de IndexedP (E) (EqCar E 'Indexed))3126
(de RegP (RegName) (EqCar RegName 'Reg))3170
(de ARegP (RegName) (AND (RegP RegName)3213
(de AnyARegButA7P (RegName) (AND (RegP RegName)3351
(de ARegOperatorP (Operator) (MemQ Operator '(ADD SUB)))3495
(de AddOperatorP (Operator) (EQ Operator 'ADD))3546
(de SubOperatorP (Operator) (EQ Operator 'SUB))3597
(de SregP (regName) (AND (RegP RegName)3640
(de AnySregButS7P (regName) (AND (RegP RegName)3784
(de TempSregP(regName) (AND (RegP RegName)3920
(de A0RegP (RegName) (AND (RegP RegName)4024
(de S0regP (regName) (AND (RegP RegName)4121
(de ANon0RegP (RegName) (AND (RegP RegName)4221
(de SNon0regP (regName) (AND (RegP RegName)4351
(De TregP (regname) (AND (RegP RegName)5140
(De BregP (regname) (AND (RegP RegName)5240
(de ImmediateP (x)5319
(De PosLE64P (x)5408
(De NegLE64P (x)5468
(De AsregP (x)5527
(De QuoteP (x)5574
(De AsmModeP (x) % Legal "escapes" in Move5642
(De RegT1P(x) 5909
(De RegT2P(x) 5970

PS:<PSL.COMP.VAX>INSTRS.SL.0
00044,PSL

PS:<PSL.COMP.VAX>VAX-CMAC.SL.0
00328,PSL
(de MkItem (TagPart InfPart)639
(de InumP (Expression)802
(de TagNumber (X)931
(de NonDeferredP (Expression)1219
(de DeferrableP (Expression)1290
(de RegisterDeferredP (Expression)1460
(de FakeRegisterNumberP (Expression)1570
(de NegativeImmediateP (Expression)1742

PS:<PSL.DOC.NMODE>COSTLY.SL.0
00045,PSL

PS:<PSL.EMODE>AAA.SL.0
00154,PSL
(DE EraseScreen ()996
(DE Ding ()1214
(DE TerminalClearEol ()1324
(DE SetTerminalCursor (ColLoc RowLoc)1507

PS:<PSL.EMODE>BUFFER.SL.0
00637,PSL
(de char-blank? (ch)553
(de current-line-length () (length CurrentLine))652
(de current-line-empty () (= (length CurrentLine) 0))709
(de current-line-blank? ()739
(de at-buffer-end? ()837
(de at-buffer-start? ()930
(de current-line-is-last? ()1007
(de current-line-is-first? ()1090
(de current-line-fetch (n) (car (pnth CurrentLine (+ n 1))))1181
(de current-line-store (n c)1211
(de current-buffer-size ()1318
(de current-buffer-visible-size ()1618
(de current-buffer-goto (line-number char-number)2165
(de move-to-next-line ()2254
(de move-to-previous-line ()2485

PS:<PSL.EMODE>BUFFER-POSITION.SL.0
00293,PSL
(de buffer-position-create (line-number column-number)506
(de buffer-position-line (bp)576
(de buffer-position-column (bp)624
(de buffer-position-compare (bp1 bp2)678
(de buffer-get-position ()1001
(de buffer-set-position (bp)1085

PS:<PSL.EMODE>BUFFERS.SL.0
00634,PSL
(de declare_data_mode (name buffer-creator)987
(de CreateBuffer (BufferName buffer-creator)1528
(de select_or_create_buffer (buffer-name buffer-creator)2510
(de ChooseBuffer ()5171
(de create_text_view (buffer-name)5862
(de create_raw_text_buffer ()7557
(de create_text_buffer ()9021
(de create_rlisp_buffer ()9307
(de create_lisp_buffer ()9549
(de buffer-create (buffer-name buffer-creator)9687
(de buffer-make-unique-name (buffer-name)10110
(de buffer-exists (buffer-name)10480
(de buffer-kill (buffer-name)10549
(de select-buffer-if-existing (buffer-name)10985

PS:<PSL.EMODE>CUSTOMIZE-RLISP-FOR-EMODE.SL.0
00301,PSL
(de listp (x)778
(de tail (lst n)874
(de read_from_string (string_for_read_from_string)1764
(de channel_read_from_string (chn)2803
(de PrintF_into_string3548
(de channel_write_into_string (chn chr)4246
(de DummyClose (chn)4891

PS:<PSL.EMODE>DIRECTORY.SL.0
00517,PSL
(de find-matching-files (filename include-deleted-files)388
(de file-deleted-status (file-name)2241
(de file-delete (file-name)2607
(de file-undelete (file-name)2857
(de jfn-deleted? (jfn)3350
(de jfn-write-date (jfn)3459
(de jfn-read-date (jfn)3539
(de jfn-byte-count (jfn)3620
(de jfn-page-count (jfn)3701
(de file-date-to-string (fdate)3991
(de fixup-directory-name (name)4400
(de fixup-file-name (name)4789
(de trim-filename-to-prefix (s)5099

PS:<PSL.EMODE>DIRED.SL.0
01704,PSL
(defmacro fi-full-name (fi) `(nth ,fi 1))   % string for file primitives759
(defmacro fi-deleted? (fi) `(nth ,fi 2))    % is file marked 'deleted'?832
(defmacro fi-size (fi) `(nth ,fi 3))        % "size" of file894
(defmacro fi-write-date (fi) `(nth ,fi 4))  % date/time file last written969
(defmacro fi-read-date (fi) `(nth ,fi 5))   % date/time file last read1041
(defmacro fi-nice-name (fi) `(nth ,fi 6))   % string to show user1108
(de dired-command ()2096
(de dired-fixup-file-list (file-list)2890
(de load-dired-buffer (file-list)3701
(de file-info-to-string (file-info)3928
(de dired-exit ()4544
(de dired-delete-file ()4989
(de dired-undelete ()5221
(de dired-reverse-undelete ()5452
(de dired-help ()5685
(de dired-next-hog ()5810
(de dired-automatic-delete ()5920
(de dired-edit-file ()6031
(de dired-reverse-sort ()6456
(de dired-sort ()7203
(de dired-srccom-file ()7901
(de dired-valid-line ()8194
(de dired-determine-actions (file-list)8355
(de dired-present-actions (action-list)9357
(de get-upchar ()10306
(de dired-present-list (list prompt)10478
(de dired-perform-actions (action-list)10790
(de dired-perform-sort (prompt sorter)11071
(de dired-filename-sorter (f1 f2)11246
(de dired-filename-reverser (f1 f2)11340
(de dired-size-sorter (f1 f2)11428
(de dired-size-reverser (f1 f2)11616
(de dired-write-sorter (f1 f2)11803
(de dired-write-reverser (f1 f2)12016
(de dired-read-sorter (f1 f2)12226
(de dired-read-reverser (f1 f2)12434
(de string-pad-right (s desired-length)12841
(de string-pad-left (s desired-length)13036
(de string-largest-common-prefix (s1 s2)13233

PS:<PSL.EMODE>DISPCH.SL.0
00839,PSL
(DE define_prefix_character (chr prompt-string)2893
(DM CharSequence (chlist)3538
(DS MetaP (chr)4123
(DS MakeMeta (chr)4208
(DS UnMeta (chr)4328
(DE X-UpperCaseP (chr)4437
(DE X-Char-DownCase (chr)4562
(DE ClearDispatch ()4735
(DE SetKey (xchar op)5029
(DE MakeSelfInserting (chr)6844
(DE Undefine (chr)6956
(DE Dispatcher ()7099
(DE Dispatch (chr)7283
(DE do-prefix ()7531
(DE EscapeAsMeta ()8422
(DE DoControlMeta ()8611
(DE GetNextCommandCharacter ()9094
(DE push_back (chr)9443
(De EstablishCurrentMode ()9827
(de AddToKeyList (listname chr opr)13347
(de SetTextKey (chr opr)14073
(de SetLispKey (chr opr)14187
(de SetKeys (lis)14454
(de NormalSelfInserts ()14533
(de DefinePrefixChars ()16221
(de $iterate ()16837
(de char-digit (c)17962

PS:<PSL.EMODE>DM1520.SL.0
00154,PSL
(DE EraseScreen ()699
(DE Ding ()772
(DE TerminalClearEol ()882
(DE SetTerminalCursor (ColLoc RowLoc)978

PS:<PSL.EMODE>EDC.SL.0
00258,PSL
(DE InsertAndTotal ()370
(DE DeleteBackwardAndTotal ()465
(DE DeleteForwardAndTotal ()565
(DE kill_line_and_total ()662
(DE insert_kill_buffer_and_total ()753
(DE FindBufferTotal ()840
(DE SetDCmode ()2341

PS:<PSL.EMODE>ENVSEL.SL.0
00090,PSL
(DE SaveEnv (env)557
(DE RestoreEnv (env)868

PS:<PSL.EMODE>EXAMPLE-OOL.SL.0
00046,PSL

PS:<PSL.EMODE>FILEIO.SL.0
00787,PSL
(de CopyFile (filename1 filename2)674
(de WriteLine (file-descriptor lin)1148
(de read_line_from_file (file-descriptor)1734
(de read_channel_into_text_buffer (file-descriptor)2354
(de write_text_buffer_to_channel (file-descriptor)2810
(de ReadFile (filename)3353
(de WriteFile (filename)3922
(de CntrlXread ()4511
(de CntrlXwrite ()4683
(de save_file ()4871
(de find_file ()5176
(de find_file_named (filename)5478
(de filename-buffername (filename)6326
(de declare_file_mode (file-extension buffer-creator)7621
(de files_data_mode (filename)8040
  (de buffer-name-field (filename)       % Dec20 version.8515
  (de buffer-name-field (filename)       % Unix version.9206
(de file-extension-field (filename)10162

PS:<PSL.EMODE>HP-EMODEX.SL.0
01459,PSL
(de scroll-window-by-lines (n)1207
(de scroll-window-by-pages (n)2122
(de scroll-window-up-line-command ()3226
(de scroll-window-down-line-command ()3303
(de scroll-window-up-page-command ()3379
(de scroll-window-down-page-command ()3456
(de current-line-indent ()3716
(de current-line-strip-indent ()3962
(de strip-previous-blanks ()4213
(de indent-current-line (n)4408
(de delete-horizontal-space-command ()5139
(de delete-blank-lines-command ()5621
(de delete-following-blank-lines ()6159
(de back-to-indentation-command ()6953
(de delete-indentation-command ()7142
(de lisp-tab-command ()7949
(de lisp-linefeed-command ()8034
(de lisp-indent-sexpr ()8126
(de lisp-current-line-indent ()8618
(de transpose-characters-command ()9555
(de mark-word-command ()10321
(de mark-sexp-command ()10555
(de mark-whole-buffer-command ()10809
(de beginning-of-defun-command ()11243
(de beginning-of-defun ()11562
(de end-of-defun-command ()12232
(de forward-defun ()12704
(de end-of-defun ()13109
(de mark-defun-command ()13412
(de move-past-previous-list ()14027
(de backward-up-list ()14506
(de reverse-scan-for-left-paren (depth)14678
(de move-past-next-list ()15408
(de forward-up-list ()15874
(de forward-scan-for-right-paren (depth)16180
(de down-list ()16879
(de move-down-list ()17138
(de insert-parens ()17597
(de move-over-paren ()17783

PS:<PSL.EMODE>HP2648A.SL.0
00233,PSL
(de EraseScreen ()1458
(de Ding ()1621
(de TerminalClearEol ()1674
(de SetTerminalCursor (ColLoc RowLoc)1821
(de terminal-enter-raw-mode ()3742
(de terminal-leave-raw-mode ()3915

PS:<PSL.EMODE>HP9836.SL.0
00155,PSL
(DE EraseScreen ()762
(DE Ding ()864
(DE TerminalClearEol ()974
(DE SetTerminalCursor (ColLoc RowLoc)1111

PS:<PSL.EMODE>INPUT-STREAM.SL.0
00799,PSL
(defun open-input (file-name)749
(defflavor input-stream ((jfn NIL)	% TOPS-20 file number973
(defmethod (input-stream getc) ()1609
(defmethod (input-stream fill-buffer-and-getc) ()3283
(defmethod (input-stream getc-image) ()4006
(defmethod (input-stream fill-buffer-and-getc-image) ()4380
(defmethod (input-stream empty?) ()4691
(defmethod (input-stream peekc) ()4766
(defmethod (input-stream fill-buffer-and-peekc) ()5198
(defmethod (input-stream open) (name-of-file)5514
(defmethod (input-stream close) ()6377
(de test-buffered-input (name-of-file)6782
(de time-buffered-input (name-of-file)6982
(de time-buffered-input-1 (name-of-file)7187
(de time-standard-input (name-of-file)7380
(de time-input (name-of-file)7600

PS:<PSL.EMODE>MISC-EMODE.SL.0
00225,PSL
(de execute_command ()422
(de InsertNextCharacter ()745
(de PrintBufferNames ()961
(de save-important-channels ()1397
(de restore-important-channels (saved-channels)1542

PS:<PSL.EMODE>NEW-FILEIO.SL.0
00259,PSL
(de readfile (file-name)837
(de read-file-into-buffer (s)1088
(de append-file-to-buffer (s)1412
(de append-line-to-buffer (contents)2203
(de WriteFile (file-name)2587
(de write-buffer-to-stream (s)3138

PS:<PSL.EMODE>OLD-DISPCH.SL.0
00678,PSL
(DE define_prefix_character (chr prompt-string)1731
(DM CharSequence (chlist)2266
(DS MetaP (chr)2851
(DS MakeMeta (chr)2936
(DS UnMeta (chr)3056
(DE X-UpperCaseP (chr)3165
(DE X-Char-DownCase (chr)3290
(DE SetKey (xchar op)3593
(DE MakeSelfInserting (chr)5375
(DE Undefine (chr)5487
(DE Dispatcher ()5630
(DE Dispatch (chr)5814
(DE do-prefix ()6062
(DE EscapeAsMeta ()6953
(DE DoControlMeta ()7140
(DE GetNextCommandCharacter ()7623
(DE push_back (chr)7972
(DE ClearDispatch ()8100
(De EstablishCurrentMode ()8335
(DE BasicDispatchSetup ()8596
(de $iterate ()9998
(de char-digit (c)11312

PS:<PSL.EMODE>OOL.SL.0
00440,PSL
(DefMacro create_class (env  msg_dict)1659
(ds create_instance (cls)1923
(DefMacro send_msg (obj msg)2315
(de make-pairs (lst)4537
(de create_dict (msg_dict)4990
(de enter_msg (msg tbl)5513
(de tbl-hash-index (tbl keyword)6651
(de save_environment (env)6975
(de restore_environment (env)7300
(de copy_environment (env)7641
(de good_hash_size (N)7943
(de good-hash-size? (N)8275

PS:<PSL.EMODE>OUTPUT-STREAM.SL.0
00765,PSL
(defun open-output (file-name)752
(defun open-append (file-name)867
(defflavor output-stream ((jfn NIL)	% TOPS-20 file number1100
(defmethod (output-stream putc) (ch)1474
(defmethod (output-stream put-newline) ()2981
(defmethod (output-stream puts) (str)3314
(defmethod (output-stream putl) (str)3662
(defmethod (output-stream open) (name-of-file)3854
(defmethod (output-stream open-append) (name-of-file)4685
(defmethod (output-stream close) ()5505
(defmethod (output-stream flush) ()5668
(de time-buffered-output (n-lines)6125
(de time-buffered-output-1 (n-lines)6507
(de time-standard-output (n-lines)6879
(de time-output (n-lines)7208
(de time-buffered-output-string (n-lines)7423

PS:<PSL.EMODE>PROMPTING.SL.0
00305,PSL
(de prompt_for_character (prompt_string)909
(de prompt_for_string (prompt_string  default_string)2335
(de setup_insert_single_line_mode ()3822
(de show_prompt (prompt_string)6077
(de show_message (strng)6256
(de string_in_window (strng  window)6794

PS:<PSL.EMODE>QUERY-REPLACE.SL.0
00208,PSL
(de query-replace-command ()508
(de do-string-replacement (pattern replacement)2859
(de advance-over-string (pattern)3330
(de write-prompt (string)3699

PS:<PSL.EMODE>RING-BUFFER.SL.0
00200,PSL
(de ring-buffer-create (number-of-elements)565
(de ring-buffer-push (rb new-element)798
(de ring-buffer-top (rb)1220
(de ring-buffer-pop (rb)1417

PS:<PSL.EMODE>SLEEP.SL.0
00180,PSL
  (de sleep-until-timeout-or-input (n-60ths)     % Dec-20 version498
  (de sleep-until-timeout-or-input (n-60ths)     % Unix version913

PS:<PSL.EMODE>TELERAY.SL.0
00156,PSL
(DE EraseScreen ()692
(DE Ding ()773
(DE TerminalClearEol ()883
(DE SetTerminalCursor (ColLoc RowLoc)1020

PS:<PSL.EMODE>TOY-MODE.SL.0
00274,PSL
(de create_toy_buffer ()647
(de create_toy_view (buffer-name)1997
(de refresh_toy_window ()3815
(de backwards-WriteToScreen (Scrn chr rw col)4517
(de quietly_copyd (dest src)4653
(de quietly_putd (fname ftype body)4758

PS:<PSL.EMODE>TTY-SIZE.SL.0
00133,PSL
(DM SubField (args)302
(DE TTyWord ()464
(DE PageLength ()609
(DE PageWidth ()663

PS:<PSL.EMODE>V-SCREEN.SL.0
01206,PSL
(DefConst MaxMaskNumber 127)2332
(DS index_screen (Scrn rw col)2433
  (DE LeftAssociativeExpand (args Fn)2814
  (DE LeftAssociativeExpand1 (Fn ProcessedArgs args)3084
  (DM indexn (U)3418
(DS WithinRangeP (x  rnge)3756
(DE PutValueIntoRange (x rnge)3913
(DS VirtualScreenHeight (Scrn)5365
(DS VirtualScreenWidth (Scrn)5511
(DE CreateScreenImage (chr rws cols)6650
(DE WriteScreenImage (ScrnImage chn)7003
(DE InitializeScreenPackage ()7483
(DE CreateVirtualScreen (rws cols CornerRow CornerCol)9551
(de ClearVirtualScreen (scrn)10365
(DE WithinArrayP (ScrnArray rw col)10672
(DS WriteToNewScreenImage (chr absrow abscol)11187
(DE WriteToScreen (Scrn chr rw col)11515
(DE WriteToScreenRange (Scrn chr rw LeftCol RightCol)14355
(DE WriteRange (Scrn chr rw LeftCol RightCol)15847
(DE DrawActiveList ()16079
(DE SelectScreen (Scrn)16523
(DE DeSelectScreen (Scrn)18022
(DE DrawScreenOnTop (Scrn)20290
(DE RefreshPhysicalScreen (BreakoutAllowed)23449
(DE WritePhysicalCharacter (chr rw col)25779
(DE MoveToScreenLocation (Scrn rw col)26596
(DE MoveToPhysicalLocation (rw col)26877
(DE ClearPhysicalScreen ()27777

PS:<PSL.EMODE>VS-SUPPORT.SL.0
00126,PSL
(de RewriteChangedCharacters (oldline newline RowLocation LeftCol RightCol)517

PS:<PSL.EMODE>VT100.SL.0
00155,PSL
(DE EraseScreen ()688
(DE Ding ()918
(DE TerminalClearEol ()1028
(DE SetTerminalCursor (ColLoc RowLoc)1188

PS:<PSL.EMODE>VT52.SL.0
00153,PSL
(DE EraseScreen ()733
(DE Ding ()806
(DE TerminalClearEol ()916
(DE SetTerminalCursor (ColLoc RowLoc)1053

PS:<PSL.EMODE>WINDOW.SL.0
00163,PSL
(de current-window-height ()545
(de current-window-top-line ()672
(de current-window-set-top-line (new-top-line)823

PS:<PSL.EMODE>WINDOWS.SL.0
00073,PSL
(de window-kill-buffer ()611

PS:<PSL.GLISP>CIRCLE.SL.0
00086,PSL
(de drawcirclepoint (x y xstart ystart)816

PS:<PSL.GLISP>CRT.SL.0
00038,PSL

PS:<PSL.GLISP>GEV.SL.0
00300,PSL
(DF GEV (ARGS)2008
(DE GEVGLISPP NIL13031
(DE GEVINIT NIL13437
(DE GEVPROPTYPES (OBJ NAME TYPE)29732
(DE GEVSHORTATOMVAL (ATM NCHARS)34318
(DE GEVSHORTSTRINGVAL (VAL NCHARS)36409
(DE GEVSHORTVALUE (VAL STR NCHARS)36720
(DE GEVXTRTYPE (TYPE)37790

PS:<PSL.GLISP>GEVAUX.SL.0
00367,PSL
(de substring (string first last)168
(de gevstringify (x)532
(de concatn (l)655
(de concatln (l)812
(df concatl (concatlarg) (concatln concatlarg))1015
(de gevconcat (l) (concatn l))1047
(de dreverse (l) (reversip l))1081
(de mkatom (s) (intern s))1111
(de gevputd (fn form)1136
(de gevapply (fn args)1384

PS:<PSL.GLISP>GEVAUX20.SL.0
00369,PSL
(de substring (string first last)154
(de gevstringify (x)518
(de concatn (l)641
(de concatln (l)798
(df concatl (concatlarg) (concatln concatlarg))1001
(de gevconcat (l) (concatn l))1033
(de dreverse (l) (reversip l))1067
(de mkatom (s) (intern s))1097
(de gevputd (fn form)1122
(de gevapply (fn args)1370

PS:<PSL.GLISP>GEVAUXOLD.SL.0
00415,PSL
(de substring (string first last)185
(de gevstringify (x)549
(de concatn (l)672
(de concatln (l)829
(df concatl (concatlarg) (concatln concatlarg))1032
(de gevconcat (l) (concatn l))1064
(de dreverse (l) (reversip l))1098
(de mkatom (s) (intern s))1128
(de gevputd (fn form)1153
(de gevapply (fn args)1401
(DE GEVENTER NIL2643
(DE GEVEXIT NIL2792

PS:<PSL.GLISP>GEVCRT.SL.0
00084,PSL
(DE GEVENTER NIL358
(DE GEVEXIT NIL489

PS:<PSL.GLISP>GEVDEMO.SL.0
00042,PSL

PS:<PSL.GLISP>GEVHRD.SL.0
00086,PSL
(DE GEVENTER NIL1114
(DE GEVEXIT NIL1242

PS:<PSL.GLISP>GEVNEW.SL.0
00078,PSL
(de gevdonewfn (x) (gevnewfn x))32

PS:<PSL.GLISP>GEVT.SL.0
06773,PSL
(DE SUBSTRING (STRING FIRST LAST) (COND ((NOT (STRINGP STRING)) (SETQ STRING (94
(DE GEVSTRINGIFY (X) (COND ((STRINGP X) X) (T (BLDMSG "%p" X))))379
(DE CONCATN (L) (COND ((NULL L) "") ((NULL (CDR L)) (GEVSTRINGIFY (CAR L))) (460
(DE CONCATLN (L) (COND ((NULL L) "") ((NULL (CDR L)) (GEVSTRINGIFY (EVAL (594
(DF CONCATL (CONCATLARG) (CONCATLN CONCATLARG))720
(DE GEVCONCAT (L) (CONCATN L))754
(DE DREVERSE (L) (REVERSIP L))788
(DE MKATOM (S) (INTERN S))818
(DE GEVPUTD (FN FORM) (PUT FN (QUOTE GLORIGINALEXPR) (CONS (QUOTE LAMBDA) (897
(DE GEVAPPLY (FN ARGS) (COND ((AND (ATOM FN) (OR (NULL (GET FN (QUOTE 1099
(DE TERMINAL-MOVETOXY (TERM X Y) (COND ((LESSP X 0) (SETQ X 0)) ((GREATERP X 1841
(DE TERMINAL-PRINTCHAR (TERM S) (PBOUT S))2154
(DE TERMINAL-PRINTSTRING (TERM S) (PROG (I N) (COND ((NOT (STRINGP S)) (SETQ 2235
(DE MENU-SELECT (M) (PROG (MAXW I N SAVEESC SAVEGLQ SAVEGCG RESULT) (COND ((3484
(DE PRINTNC (N C) (PROG NIL GLLABEL1 (COND ((GREATERP N 0) (SETQ N (SUB1 N)) (5491
(DE WINDOW-CLEAR (W) (PROG (TTL NBL Y NLINES) (SETQ NLINES 0) NIL (SETQ Y (5598
(DE WINDOW-CLOSE (W) (PROG (Y NLINES) (SETQ Y (CADR (CADDR W))) (SETQ NLINES 6369
(DE WINDOW-DRAWLINE (W FROM TO) (COND ((EQN (CADR FROM) (CADR TO)) (PROG (X 6728
(DE WINDOW-INVERTAREA (W AREA) NIL)7027
(DE WINDOW-MOVETO (W POS) (PROG (X Y) (SETQ X (CAR POS)) (SETQ Y (CADR POS)) (7109
(DE WINDOW-MOVETOXY (W X Y) (TERMINAL-MOVETOXY TERMINAL (PLUS X (CAADR W)) (7268
(DE WINDOW-OPEN (W) (PROG (TTL NBL L) (PROG (Y) (SETQ Y (CADR (CADDR W))) (7369
(DE WINDOW-PRETTYPRINTAT (W VALUE POSITION) (PROG (X Y) (SETQ X (CAR 8500
(DE WINDOW-PRINTAT (W S POS) (COND ((GREATERP (CADR POS) 0) (PROG (X Y) (8846
(DE WINDOW-UNDRAWLINE (W FROM TO) (COND ((EQN (CADR FROM) (CADR TO)) (PROG (9168
(DE WINDOW-UNPRINTAT (W S POS) (COND ((GREATERP (CADR POS) 0) (PROG (X Y) (9423
(DE GEVENTER NIL (SETQ GEVSAVEGCGAG *GC) (SETQ *GC NIL) (SETQ GEVSAVEGLQUIET 9829
(DE GEVEXIT NIL (SETQ *GC GEVSAVEGCGAG) (SETQ GLQUIETFLG GEVSAVEGLQUIET) (9951
(DE GEVINITEDITWINDOW NIL (PROG NIL (SETQ GEVWINDOW (LIST (QUOTE WINDOW) (10039
(DE GEVMOUSELOOP NIL (PROG (INP N TMP) LP (TERMINAL-MOVETOXY TERMINAL (PLUS 10228
(DE GEVNSELECT (N FLAG) (PROG (L TOP SUBLIST GROUP ITEM) (SETQ GROUP 0) (11231
(DE GEVNTHITEM (L) (PROG (TMP RES) (COND ((NOT (GREATERP N 0)) (ERROR 0 NIL)) ((11771
(DF GEV (ARGS) (GEVA (CAR ARGS) (EVAL (CAR ARGS)) (AND (CDR ARGS) (COND ((OR (13788
(DE GEVA (VAR VAL STR) (PROG (GLNATOM TMP HEADER) (GEVENTER) (COND ((OR (NOT (13967
(DE GEVCOMMANDFN (COMMANDWORD) (PROG (PL SUBPL PROPNAME VAL PROPNAMES 14741
(DE GEVCOMMANDPROP (ITEM COMMANDWORD PROPNAME) (PROG (VAL PROPNAMES FLG) (15146
(DE GEVCOMMANDPROPNAMES (OBJ PROPTYPE TOPFRAME) (PROG (RESULT TYPE) (SETQ 16185
(DE GEVCOMPPROP (STR PROPNAME PROPTYPE) (PROG (PROPENT) (COND ((NOT (MEMQ 17148
(DE GEVDATANAMES (OBJ FILTER) (PROG (RESULT) (GEVDATANAMESB (CAR (GET OBJ (17647
(DE GEVDATANAMESB (STR FILTER) (PROG (TMP) (COND ((ATOM STR) (RETURN NIL)) (17786
(DE GEVDISPLAYNEWPROP NIL (PROG (Y NEWONE) (SETQ Y GEVWINDOWY) (SETQ NEWONE (18423
(DE GEVDOPROP (ITEM PROPNAME COMMANDWORD FLG) (PROG (VAL) (SETQ VAL (18588
(DE GEVEDIT NIL (PROG (CHANGEDFLG GEVTOPITEM) (SETQ GEVTOPITEM (CAAAR 18974
(DE GEVEXPROP (OBJ STR PROPNAME PROPTYPE ARGS) (PROG (FN) (COND ((OR (NOT (19421
(DE GEVFILLWINDOW NIL (PROG (Y TOP) (WINDOW-CLEAR GEVWINDOW) (SETQ Y (SUB1 (19750
(DE GEVFILTER (TYPE FILTER) (SETQ TYPE (GEVXTRTYPE TYPE)) (CASEQ FILTER (20196
(DE GEVFINDITEMPOS (POS ITEM N) (OR (GEVPOSTEST POS (CAR (PNTH ITEM 7)) (CAR 20474
(DE GEVFINDLISTPOS (POS ITEMS N) (COND (ITEMS (OR (GEVFINDITEMPOS POS (CAR 20818
(DE GEVFINDPOS (POS FRAME) (PROG (TMP N ITEMS) (SETQ N 0) (PROG NIL GLLABEL1 (20950
(DE GEVGETNAMES (OBJ FILTER) (PROG (DATANAMES PROPNAMES) (SETQ DATANAMES (21201
(DE GEVGETPROP (STR PROPNAME PROPTYPE) (PROG (PL SUBPL PROPENT) (COND ((NOT (21406
(DE GEVGLISPP NIL (NOT (UNBOUNDP (QUOTE GLBASICTYPES))))21666
(DE GEVHORIZLINE (W) (PROG (FROM TO) (SETQ FROM (LIST 1 (PLUS Y 0))) (SETQ 21745
(DE GEVINIT NIL (SETQ GLNATOM 0) (COND ((NOT (NOT (UNBOUNDP (QUOTE 22183
(DE GEVITEMEVENTFN (ITEM GROUP FLAG) (PROG (TMP TOP N) (COND (FLAG (COND ((22346
(DE GEVLENGTHBOUND (VAL NCHARS) (COND ((GREATERP (FLATSIZE2 VAL) NCHARS) (22733
(DE GEVMAKENEWFN (OPERATION INPUTTYPE SET PATH) (PROG (LASTPATH VIEWSPEC) (22868
(DE GEVMATCH (STR VAL FLG) (PROG (RESULT) (GEVMATCHB STR VAL NIL FLG) (24752
(DE GEVMATCHA (STR VAL FLG) (PROG (RES) (SETQ RES (GEVMATCH STR VAL FLG)) (24860
(DE GEVMATCHATOM (STR VAL NAME) (PROG (L STRB TMP) (COND ((OR (NOT (ATOM VAL)) (25102
(DE GEVMATCHALIST (STR VAL NAME) (PROG (L TMP) (SETQ L (CDR STR)) (MAPC L (25409
(DE GEVMATCHB (STR VAL NAME FLG) (PROG (X Y STRB XSTR TOP TMP) (SETQ XSTR (25589
(DE GEVMATCHLISTOF (STR VAL NAME) (SETQ RESULT (CONS (LIST NAME VAL STR NIL 27241
(DE GEVMATCHOBJECT (STR VAL NAME) (PROG (OBJECTTYPE TMP) (SETQ OBJECTTYPE (27394
(DE GEVMATCHPROPLIST (STR VAL NAME) (PROG (L TMP) (SETQ L (CDR STR)) (MAPC L (28004
(DE GEVMATCHRECORD (STR VAL NAME) (PROG (STRNAME FIELDS N) (COND ((ATOM (28178
(DE GEVPOP (FLG N) (PROG (TMP TOP TMPITEM) (COND ((LESSP N 1) (RETURN NIL))) 28464
(DE GEVPOSTEST (POS TPOS NAME ITEM FLG N) (COND ((AND (NOT (LESSP (CADR POS) (29093
(DE GEVPPS (ITEM COL WINDOW) (PROG (NAMEX TOP) (COND ((LESSP Y 0) (RETURN 29416
(DE GEVPROGRAM NIL (PROG (TOPITEM COMMAND SET PATH DONE NEXT TYPE NEWFN 33023
(DE GEVPROPMENU (OBJ FILTER FLG) (PROG (PROPS SEL PNAMES MENU) (SETQ PROPS (34923
(DE GEVPROPNAMES (OBJ PROPTYPE FILTER) (PROG (RESULT TYPE) (SETQ RESULT (35364
(DE GEVPROPTYPE (STR PROPNAME PROPTYPE) (PROG (PL SUBPL PROPENT TMP) (COND ((36053
(DE GEVPROPTYPES (OBJ NAME TYPE) (OR (GEVPROPTYPE OBJ NAME TYPE) (AND (36616
(DE GEVPUSH (ITEM) (PROG (NEWITEMS TOPITEM LSTITEM) (COND ((EQ (CAR (PNTH 36753
(DE GEVPUSHLISTOF (ITEM FLG) (PROG (ITEMTYPE TOPFRAME N NROOM LST VALS TMP) (37796
(DE GEVQUIT NIL (SETQ GEVACTIVEFLG NIL) (WINDOW-CLOSE GEVWINDOW) (COND (38989
(DE GEVREDOPROPS (TOP) (PROG (ITEM L) (SETQ ITEM (CAAR TOP)) (COND ((AND (39114
(DE GEVREFILLWINDOW NIL (PROG (TOP TOPITEM SUBS TOPSUB) (SETQ TOP (CAR 39673
(DE GEVSHORTATOMVAL (ATM NCHARS) (COND ((NUMBERP ATM) (COND ((GREATERP (40505
(DE GEVSHORTCONSVAL (VAL STR NCHARS) (PROG (NLEFT RES TMP NC) (SETQ RES (40756
(DE GEVSHORTLISTVAL (VAL STR NCHARS) (PROG (NLEFT RES TMP QUIT NC NCI REST 41416
(DE GEVSHORTSTRINGVAL (VAL NCHARS) (COND ((STRINGP VAL) (GEVLENGTHBOUND VAL 42406
(DE GEVSHORTVALUE (VAL STR NCHARS) (PROG (TMP) (SETQ STR (GEVXTRTYPE STR)) (42508
(DE GEVXTRTYPE (TYPE) (COND ((ATOM TYPE) TYPE) ((NOT (PAIRP TYPE)) NIL) ((43280

PS:<PSL.GLISP>GLCASE.SL.0
00065,PSL
(DE GLDOCASE (EXPR)82

PS:<PSL.GLISP>GLHEAD.SL.0
00060,PSL
(DM CASEQ (L)778

PS:<PSL.GLISP>GLISP.SL.0
07956,PSL
(DM CASEQ (L)843
(DE GETDDD (X)1631
(DE PUTDDD (FN DEF) (REMD FN) (PUTD FN 'EXPR DEF))1747
(DE LISTGET (L PROP)1773
(DE NLEFT (L N)1960
(DE NLISTP (X) (NOT (PAIRP X)))2124
(DF COMMENT (X) NIL)2146
(DE U-CASEP (X) T)2212
(de glucase (x) x)2232
(DE SUBATOM (ATM N M)2319
(DE STRPOSL (BITTBL ATM N)2902
(DE MAKEBITTABLE (L)3188
(df dg (x)3392
(de glputhook (x)3562
(de glhook (gldgform) (glcc (car gldgform)) gldgform)3766
(de glnthchar (x n)3818
(DE SOME (L FN)4135
(DE EVERY (L FN)4339
(DE SUBSET (L FN)4499
(DE REMOVE (X L) (DELETE X L))4726
(DE LDIFFERENCE (X Y)4779
(DE GLGETD (FN)5008
(DE GLGETDB (FN) (GLGETD FN))5199
(DE GLAMBDATRAN (GLEXPR)5227
(DE GLERROR (FN MSGLST)5517
(DE GLP (FN)6018
(DE GLEDS (STRNAME)6240
(DE GLED (ATM) (EDITV (PROP ATM)))6359
(DE GLEDF (FNNAME)6407
(DE KWOTE (X)6462
(DE GLPSLTRANSFM (X)6696
(DF A (L)9080
(DF AN (L)9145
(DE GL-A-AN? (X)9216
(DE GLABSTRACTFN? (FNNAME)9348
(DE GLADDPROP (STRNAME PROPTYPE LST)9604
(DE GLADDRESULTTYPE (SDES)10020
(DE GLADDSTR (ATM NAME STR CONTEXT)10614
(DE GLADJ (SOURCE PROPERTY ADJWD)10822
(DE GLAINTERPRETER (L)12049
(DE GLANDFN (LHS RHS)12514
(DE GLANYCARCDR? (ATM)13612
(DE GLATOMSTRFN (IND DES DESLIST)14159
(DE GLATMSTR? (STR)14525
(DE GLATOMTYPEP (TYPE)15192
(DE GLBUILDALIST (ALIST PREVLST)15481
(DE GLBUILDCONS (X Y OPTFLG)15970
(DE GLBUILDLIST (LST OPTFLG)16670
(DE GLBUILDNOT (CODE)17210
(DE GLBUILDPROPLIST (PLIST PREVLST)17752
(DE GLBUILDRECORD (STR PAIRLIST PREVLST)18142
(DE GLBUILDSTR (STR PAIRLIST PREVLST)18854
(DE GLCARCDRRESULTTYPE (LST STR)22402
(DE GLCARCDRRESULTTYPEB (LST STR)22906
(DE GLCARCDR? (X)23954
(DE GLCC (FN)24105
(DE GLCLASS (OBJ)24327
(DE GLCLASSMEMP (OBJ CLASS)24696
(DE GLCLASSP (CLASS)24831
(DE GLCLASSSEND (CLASS SELECTOR ARGS PROPNAME)25197
(DE GLCOMP (GLAMBDAFN GLEXPR GLTYPESUBS GLFNSUBS ARGTYPES)25952
(DE GLCOMPABSTRACT (FN INSTFN TYPESUBS FNSUBS ARGTYPES)27360
(DE GLCOMPEXPR (CODE VARLST)28076
(DE GLCOMPILE (FAULTFN)28812
(DE GLCOMPILE? (FN)28945
(DE GLCOMPMSG (OBJECT MSGLST ARGLIST CONTEXT)29204
(DE GLCOMPMSGB (OBJECT MSGLST ARGLIST CONTEXT)29818
(DE GLCOMPMSGL (OBJECT PROPTYPE MSGLST ARGS CONTEXT)32440
(DE GLCOMPOPEN (FN ARGS ARGTYPES RESULTTYPE SPCVARS)34130
(DE GLCOMPPROP (STR PROPNAME PROPTYPE)37453
(DE GLCOMPPROPL (STR PROPNAME PROPTYPE)38363
(DE GLCONSTANTTYPE (EXPR)40782
(DE GLCONST? (X)41798
(DE GLCONSTSTR? (X)42063
(DE GLCONSTVAL (X)42614
(DE GLCP (FN)43338
(DE GLDECL (LST FLGS GLTOPCTX FN ARGTYPES)43975
(DE GLDECLDS (ATM STR)47003
(DE GLDECLS (VARS TYPES CONTEXT)47372
(DE GLDEFFNRESULTTYPES (LST)47752
(DE GLDEFFNRESULTTYPEFNS (LST)48093
(DE GLDEFPROP (OBJECT PROP LST)48370
(DE GLDEFSTR (LST SYSTEMFLG)49220
(DF GLDEFSTRNAMES (LST)50759
(DF GLDEFSTRQ (ARGS)51219
(DF GLDEFSYSSTRQ (ARGS)51522
(DE GLDEFUNITPKG (UNITREC)52117
(DE GLDELDEF (NAME TYPE)52487
(DE GLDESCENDANTP (SUBCLASS CLASS)52591
(DE GLDOA (EXPR)53024
(DE GLDOCASE (EXPR)53669
(DE GLDOCOND (CONDEXPR)55389
(DE GLDOEXPR (START CONTEXT VALBUSY)56606
(DE GLDOFOR (EXPR)59749
(DE GLDOFUNCTION (EXPR ARGTYPES CONTEXT VALBUSY)62397
(DE GLDOIF (EXPR CONTEXT)63495
(DE GLDOLAMBDA (EXPR ARGTYPES CONTEXT)64660
(DE GLDOMAIN (SINGFLAG)65368
(DE GLDOMAP (EXPR)66253
(DE GLDOMSG (OBJECT SELECTOR ARGS)67696
(DE GLDOPROG (EXPR CONTEXT)69002
(DE GLDOPROGN (EXPR)70184
(DE GLDOPROG1 (EXPR CONTEXT)70458
(DE GLDOREPEAT (EXPR)71074
(DE GLDORETURN (EXPR)71988
(DE GLDOSELECTQ (EXPR CONTEXT)72450
(DE GLDOSEND (EXPRR)74204
(DE GLDOSETQ (EXPR)75255
(DE GLDOTHE (EXPR)75468
(DE GLDOTHOSE (EXPR)75746
(DE GLDOVARSETQ (VAR RHS)76135
(DE GLDOWHILE (EXPR CONTEXT)76323
(DE GLEQUALFN (LHS RHS)77069
(DF GLERR (ERREXP)77857
(DE GLEVALSTR (STR CONTEXT)78104
(DE GLEVALSTRB (STR)78376
(DE GLEXPANDPROGN (LST BUSY PROGFLG)79049
(DE GLEXPENSIVE? (EXPR)80087
(DE GLFINDVARINCTX (VAR CONTEXT)80547
(DE GLGENCODE (X)80812
(DE GLGETASSOC (KEY ALST)81041
(DE GLGETCONSTDEF (ATM)81179
(DE GLGETDEF (NAME TYPE)81446
(DE GLGETFIELD (SOURCE FIELD CONTEXT)81856
(DE GLGETFROMUNIT (UNITREC IND DES)83771
(DE GLGETGLOBALDEF (ATM)83990
(DE GLGETPAIRS (EXPR)84214
(DE GLGETSTR (DES)84700
(DE GLGETSUPERS (CLASS)84937
(DE GLGETTYPEOF (TYPE)85078
(DE GLIDNAME (NAME DEFAULTFLG)85356
(DE GLIDTYPE (NAME CONTEXT)86370
(DE GLINIT NIL87006
(DE GLINSTANCEFN (FNNAME ARGTYPES)89031
(DE GLINSTANCEFNNAME (FN)89794
(DF GLISPCONSTANTS (ARGS)90192
(DF GLISPGLOBALS (ARGS)90778
(DF GLISPOBJECTS (ARGS)91213
(DE GLLISPADJ (ADJ)91489
(DE GLLISPISA (ISAWORD)92104
(DE GLLISTRESULTTYPEFN (FN ARGTYPES)92572
(DE GLLISTSTRFN (IND DES DESLIST)93552
(DE GLMAKEFORLOOP (LOOPVAR DOMAIN LOOPCONTENTS LOOPCOND COLLECTCODE)94325
(DE GLMAKESTR (TYPE EXPR)95679
(DE GLMAKEVTYPE (ORIGTYPE VLIST)96351
(DE GLMATCH (TNEW TINTO)97521
(DE GLMATCHL (TELEM TLIST)98192
(DE GLMINUSFN (LHS)98540
(DE GLMKATOM (NAME)98946
(DE GLMKLABEL NIL99408
(DE GLMKVAR NIL99628
(DE GLMKVTYPE NIL99850
(DE GLNCONCFN (LHS RHS)100157
(DE GLNEQUALFN (LHS RHS)101971
(DE GLNOTESOURCETYPE (SOURCE TYPE ADDISATYPE)102579
(DE GLNOTFN (LHS)103128
(DE GLNOTICETYPE (TYPE)103368
(DE GLNTHRESULTTYPEFN (FN ARGTYPES)103579
(DE GLOCCURS (X STR)103840
(DE GLOKSTR? (STR)104076
(DE GLOPERAND NIL105706
(DE GLOPERATOR? (ATM)106147
(DE GLORFN (LHS RHS)106357
(DE GLOUTPUTFILTER (PROPTYPE LST)106956
(DE GLPARSEXPR NIL107715
(DE GLPARSFLD (PREV)109538
(DE GLPARSNFLD NIL110459
(DE GLPLURAL (WORD)111106
(DE GLPOPFN (LHS RHS)111933
(DE GLPREC (OP)113362
(DE GLPREDICATE (SOURCE CONTEXT VERBFLG ADDISATYPE)114228
(DE GLPROGN (EXPR CONTEXT)116906
(DE GLPROPSTRFN (IND DES DESLIST FLG)117550
(DE GLPURE (X)118693
(DE GLPUSHEXPR (EXPR START CONTEXT VALBUSY)118946
(DE GLPUSHFN (LHS RHS)119328
(DE GLPUTARITH (LHS RHS)121133
(DE GLPUTFN (LHS RHS OPTFLG)122736
(DE GLPUTPROPS (PROPLIS PREVLST)125967
(DE GLPUTUPFN (OP LHS RHS)126536
(DE GLREDUCE NIL127446
(DE GLREDUCEARITH (OP LHS RHS)128144
(DE GLREDUCEOP (OP LHS RHS)133452
(DE GLREMOVEFN (LHS RHS)134547
(DE GLRESGLOBAL NIL136094
(DE GLRESULTTYPE (ATM ARGTYPES)136965
(DE GLSAVEFNTYPES (GLAMBDAFN TYPELST)138071
(DE GLSENDB (OBJ CLASS SELECTOR PROPTYPE ARGS)138378
(DE GLSEPCLR NIL139990
(DE GLSEPINIT (ATM)140186
(DE GLSEPNXT NIL140644
(DE GLSKIPCOMMENTS NIL142102
(DE GLSTRCHANGED (STR)142496
(DE GLSTRFN (IND DES DESLIST)143484
(DE GLSTRPROP (STR GLPROP PROP ARGS)145378
(DE GLSTRPROPB (PROP PROPL ARGS)146363
(DE GLSTRVAL (OLDFN NEW)147321
(DE GLSTRVALB (IND DES NEW)147680
(DE GLSUBATOM (X Y Z)147868
(DE GLSUBLIS (PAIRS EXPR)148031
(DE GLSUBSTTYPE (TYPE SUBS)148372
(DE GLSUPERS (CLASS)148491
(DE GLTHE (PLURALFLG)148749
(DE GLTHESPECS NIL150987
(DE GLTRANSPARENTTYPES (STR)151813
(DE GLTRANSPB (STR)152064
(DE GLTRANSPROG (X)152638
(DE GLTYPEMATCH (SUBTYPE TYPE)153661
(DE GLUNCOMPILE (GLAMBDAFN)154028
(DE GLUNITOP (LHS RHS OP)155932
(DE GLUNIT? (STR)156556
(DE GLUNSAVEDEF (GLAMBDAFN)156882
(DE GLUNWRAP (X BUSY)157043
(DE GLUNWRAPCOND (X BUSY)159809
(DE GLUNWRAPINTERSECT (CODE)160740
(DE GLUNWRAPLOG (X)162080
(DE GLUNWRAPMAP (X BUSY)163034
(DE GLUNWRAPPROG (X BUSY)165729
(DE GLUNWRAPSELECTQ (X BUSY)166665
(DE GLUPDATEVARTYPE (VAR TYPE)168025
(DE GLUSERFN (EXPR)168569
(DE GLUSERFNB (EXPR)169819
(DE GLUSERGETARGS (EXPR CONTEXT)170727
(DE GLUSERSTROP (LHS OP RHS)171324
(DE GLVALUE (SOURCE PROP TYPE DESLIST)172192
(DE GLVARTYPE (VAR CONTEXT)173173
(DE GLXTRFN (FNLST)173520
(DE GLXTRTYPE (TYPE)174109
(DE GLXTRTYPEB (TYPE)174724
(DE GLXTRTYPEC (TYPE)175312
(DF SEND (GLISPSENDARGS)175457
(DF SENDC (GLISPSENDARGS)175643
(DF SENDPROP (GLISPSENDPROPARGS)175855
(DF SENDPROPC (GLISPSENDPROPARGS)176083

PS:<PSL.GLISP>GLPROP.SL.0
00084,PSL
(DE GLPROPSTRFN (IND DES DESLIST FLG)220

PS:<PSL.GLISP>GLSCAN.SL.0
00041,PSL

PS:<PSL.GLISP>GLTAIL.SL.0
00865,PSL
(DE GETDDD (X) (CDR (GETD X)))195
(DE PUTDDD (FN DEF) (REMD FN) (PUTD FN 'EXPR DEF))249
(DE LISTGET (L PROP)275
(DE NLEFT (L N)455
(DE NLISTP (X) (NOT (PAIRP X)))619
(DF COMMENT (X) NIL)641
(DE U-CASEP (X) T)707
(de glucase (x) x)727
(DE SUBATOM (ATM N M)814
(DE STRPOSL (BITTBL ATM N)1276
(DE MAKEBITTABLE (L)1562
(df dg (x)1766
(de glhook (gldgform) (glcc (car gldgform)) gldgform)2039
(de glnthchar (x n)2091
(DE SOME (L FN)2408
(DE EVERY (L FN)2612
(DE SUBSET (L FN)2772
(DE REMOVE (X L) (DELETE X L))2999
(DE LDIFFERENCE (X Y)3052
(DE GLGETD (FN)3281
(DE GLGETDB (FN) (GLGETD FN))3472
(DE GLAMBDATRAN (GLEXPR)3500
(DE GLERROR (FN MSGLST)3782
(DE GLP (FN)4283
(DE GLEDS (STRNAME)4505
(DE GLED (ATM) (EDITV (PROP ATM)))4624
(DE GLEDF (FNNAME)4672
(DE KWOTE (X)4727

PS:<PSL.GLISP>GLTEST.SL.0
00041,PSL

PS:<PSL.GLISP>GLTRANS.SL.0
00152,PSL
(de gltransopen (filename)205
(de gltransclose () (close gltransfile))321
(de gltransread (filename)412

PS:<PSL.GLISP>GLTYPE.SL.0
00041,PSL

PS:<PSL.GLISP>GRTREE.SL.0
00041,PSL

PS:<PSL.GLISP>H19.SL.0
00038,PSL

PS:<PSL.GLISP>HRD.SL.0
00188,PSL
(DE M-MOVEP1 (X Y)184
(DE M-CHAR (ASCIIN)243
(DE M-ERASE (X1 Y1 X2 Y2)292
(DE M-RECT-OUTLINE (X1 Y1 X2 Y2)388
(DE M-VECTOR (X1 Y1 X2 Y2)485

PS:<PSL.GLISP>IREWRITE.SL.0
00592,PSL
(DE ADD-LEMMA (TERM)75
(DE ADD-LEMMA-LST (LST)372
(DE APPLY-SUBST (ALIST TERM)524
(DE APPLY-SUBST-LST (ALIST LST)807
(DE FALSEP (X LST)956
(DE ONE-WAY-UNIFY (TERM1 TERM2)1035
(DE ONE-WAY-UNIFY1 (TERM1 TERM2)1167
(DE ONE-WAY-UNIFY1-LST (LST1 LST2)1587
(DE PTIME NIL1770
(DE REWRITE (TERM)1897
(DE REWRITE-WITH-LEMMAS (TERM LST)2132
(DE SETUP NIL2343
(DE TAUTOLOGYP (X TRUE-LST FALSE-LST)11032
(DE TAUTP (X)11616
(DE TEST NIL11675
(DE TRANS-OF-IMPLIES (N)12390
(DE TRANS-OF-IMPLIES1 (N)12501
(DE TRUEP (X LST)12695

PS:<PSL.GLISP>MENU.SL.0
00039,PSL

PS:<PSL.GLISP>NEWDG.SL.0
00055,PSL
(dm dg (x)52

PS:<PSL.GLISP>OLDGLTEST.SL.0
00044,PSL

PS:<PSL.GLISP>PERMUTE.SL.0
00153,PSL
(DE BITSHUFFLE (INPUT LST)2941
(DE COMPOSEBITSHUFFLES (FIRST SECOND)3416
(DE DOBITSHUFFLE (INT PERM)3746

PS:<PSL.GLISP>TLG.SL.0
00060,PSL
(de TLG (WINDOW)130

PS:<PSL.GLISP>VECTOR.SL.0
00041,PSL

PS:<PSL.GLISP>WINDOW.SL.0
00728,PSL
(de graphics-init () (graphics_init))2102
(de graphics-term () (graphics_term))2141
(de display-init (unit mode) (display_init unit mode))2197
(de set-color (x) (set_color x))2231
(de set-line-style (x) (set_line_style x))2275
(de clear-display () (clear_display))2314
(de set-char-size (w h) (set_char_size w h))2360
(de set-text-rot (x y) (set_text_rot x y))2404
(de set-display-lim (x0 x1 y0 y1) (set_display_lim x0 x1 y0 y1))2470
(de set-viewport (x0 x1 y0 y1) (set_viewport x0 x1 y0 y1))2530
(de init-9111 () (init_9111))2561
(de sample-locator () (sample_locator))2602
(de await-locator () (await_locator))2641
(de color-display () (color_display))2680

PS:<PSL.GLISP>WINDOW20.SL.0
00043,PSL

PS:<PSL.GLISP>WINDOWCRT.SL.0
00044,PSL

PS:<PSL.GLISP>WINDOWHRD.SL.0
00044,PSL

PS:<PSL.KERNEL>CHAR-MACRO.SL.0
00137,PSL
(dm Char (U)		%. Character constant macro474
(de DoChar (u)550
(de CharError (u)1367

PS:<PSL.KERNEL.20>20-KERNEL-GEN.SL.0
00052,PSL

PS:<PSL.KERNEL.20>NON-KL-RUN.SL.0
00203,PSL
(lap '((!*entry Byte expr 2)361
(lap '((!*entry BitTable expr 2)1050
(lap '((!*entry HalfWord expr 2)2432
(lap '((!*entry PutHalfWord expr 3)2730

PS:<PSL.KERNEL.68.APOLLO>APOLLO-KERNEL-GEN.SL.0
00063,PSL

PS:<PSL.KERNEL.68.HP>DEFPCALL.SL.0
00267,PSL
(defmacro def-pcall (name argnum)33
     (de ,name ,(arglist argnum)132
(defmacro def-fcall (name argnum)225
     (de ,name ,(arglist argnum)324
(de arglist (n)406
(de xpcalln (n)801
(de xfcalln (n)1103

PS:<PSL.KERNEL.68.HP>EXTEND.SL.0
00196,PSL
(de &dumplisp-add-extension (filename extension)540
(de &dumplisp-has-extension (filename)725
(de &dumplisp-strip-trailing-dot (filename)1000

PS:<PSL.KERNEL.68.HP>FCALL.SL.0
00465,PSL
(LAP '((!*ENTRY xfcall0 EXPR 1)190
(LAP '((!*ENTRY xfcall1 EXPR 2)487
(LAP '((!*ENTRY xfcall2 EXPR 3)836
(LAP '((!*ENTRY xfcall3 EXPR 4)1237
(LAP '((!*ENTRY xfcall4 EXPR 5)1690
(LAP '((!*ENTRY xfcall5 EXPR 6)2230
(LAP '((!*ENTRY xfcall6 EXPR 7)2814
(LAP '((!*ENTRY xfcall7 EXPR 8)3449
(LAP '((!*ENTRY xfcall8 EXPR 9)4135
(LAP '((!*ENTRY xfcall9 EXPR 10)4873
(LAP '((!*ENTRY xfcall10 EXPR 10)5664

PS:<PSL.KERNEL.68.HP>HP-KERNEL.SL.0
00406,PSL
(de kernel (kernel-name-list* lower-casify)1891
(de build-command-files (k-list)2254
(de build-link-script ()2705
(de build-kernel-file (n-list)3061
(de insert-link-file-names ()3449
(de insert-file-names (n-list format)3658
(de insert-file-names-aux (n-list format)3786
(de build-init-file ()3968
(de build-file-aux (n-list format)4144

PS:<PSL.KERNEL.68.HP>HP-KERNEL-GEN.SL.0
00055,PSL

PS:<PSL.KERNEL.68.HP>LPCALL.SL.0
00464,PSL
(LAP '((!*ENTRY lpcall0 EXPR 0)64
(LAP '((!*ENTRY lpcall1 EXPR 0)434
(LAP '((!*ENTRY lpcall2 EXPR 2)862
(LAP '((!*ENTRY lpcall3 EXPR 3)1345
(LAP '((!*ENTRY lpcall4 EXPR 4)1883
(LAP '((!*ENTRY lpcall5 EXPR 5)2511
(LAP '((!*ENTRY lpcall6 EXPR 6)3186
(LAP '((!*ENTRY lpcall7 EXPR 7)3915
(LAP '((!*ENTRY lpcall8 EXPR 8)4698
(LAP '((!*ENTRY lpcall9 EXPR 9)5535
(LAP '((!*ENTRY lpcall10 EXPR 10)6429

PS:<PSL.KERNEL.68.HP>NEWNMODEAIDS.SL.0
00177,PSL
(de keyboard-input-character ()81
(de keyboard-input-available? ()147
(de screen-set-cursor-position (row column)249

PS:<PSL.KERNEL.68.HP>PCALL.SL.0
00464,PSL
(LAP '((!*ENTRY xpcall0 EXPR 1)31
(LAP '((!*ENTRY xpcall1 EXPR 2)404
(LAP '((!*ENTRY xpcall2 EXPR 3)829
(LAP '((!*ENTRY xpcall3 EXPR 4)1306
(LAP '((!*ENTRY xpcall4 EXPR 5)1835
(LAP '((!*ENTRY xpcall5 EXPR 6)2451
(LAP '((!*ENTRY xpcall6 EXPR 7)3111
(LAP '((!*ENTRY xpcall7 EXPR 8)3822
(LAP '((!*ENTRY xpcall8 EXPR 9)4584
(LAP '((!*ENTRY xpcall9 EXPR 10)5398
(LAP '((!*ENTRY xpcall10 EXPR 11)6265

PS:<PSL.KERNEL.68.HP>SYSTEM-DATE.SL.0
00317,PSL
(de date ()1072
(de date-and-time ()1179
(de &system-format-date (time-date-vector)1546
(de &system-leading-zero-hack(number)2849
(de &system-integer$unparse (num)3167
(de &system-integer-base$unparse (base num)3322
(de &system-digit-to-char (d)3815

PS:<PSL.KERNEL.68.HP>USERFUNS.SL.0
00461,PSL
(DE User_Function1 (a1 a2 a3 a4 a5)391
(DE User_Function2 (a1 a2 a3 a4 a5)458
(DE User_Function3 (a1 a2 a3 a4 a5)525
(DE User_Function4 (a1 a2 a3 a4 a5)592
(DE User_Function5 (a1 a2 a3 a4 a5)659
(DE User_Function6 (a1 a2 a3 a4 a5)726
(DE User_Function7 (a1 a2 a3 a4 a5)793
(DE User_Function8 (a1 a2 a3 a4 a5)860
(DE User_Function9 (a1 a2 a3 a4 a5)927
(DE User_Function10 (a1 a2 a3 a4 a5)995

PS:<PSL.KERNEL.68.HP>WFLOAT.SL.0
00547,PSL
(de *wfloat (x y) (pasfloat_float x y))387
(de *fplus2 (x y z) (pasfloat_plus2 x y z))434
(de *fdifference (x y z) (pasfloat_difference x y z))491
(de *ftimes2 (x y z) (pasfloat_times2 x y z))540
(de *fquotient (x y z) (pasfloat_quotient x y z))593
(de *fgreaterP (x y) (pasfloat_greaterP 0 x y 't 'nil))652
(de *flessP (x y) (pasfloat_lessP 0 x y 't 'nil))705
(de *wfix (x) (pasfloat_fix 0 x))742
(de *fassign (x y) (pasfloat_assign x y))787
(de WriteFloat (Buffer FloatPtr)823

PS:<PSL.KERNEL.68.WICAT>WICAT-KERNEL-GEN.SL.0
00061,PSL

PS:<PSL.KERNEL.CRAY>CRAY-KERNEL-GEN.SL.0
00056,PSL

PS:<PSL.KERNEL.VAX>DIR-FORMATS.SL.0
00051,PSL

PS:<PSL.KERNEL.VAX>VAX-KERNEL-GEN.SL.0
00054,PSL

PS:<PSL.NEW>AMBASSADOR.SL.0
00977,PSL
(defflavor ambassador892
  (defmacro out-n (n)1675
  (defmacro out-char (ch)1837
  (dm out-chars (form)1904
  (defmacro out-move (row col)2060
(defmethod (ambassador get-character) ()2643
(defmethod (ambassador ring-bell) ()2780
(defmethod (ambassador move-cursor) (row column)2856
(defmethod (ambassador enter-raw-mode) ()3379
(defmethod (ambassador leave-raw-mode) ()3510
(defmethod (ambassador erase) ()3671
(defmethod (ambassador clear-line) ()3916
(defmethod (ambassador convert-character) (ch)4137
(defmethod (ambassador normal-enhancement) ()4517
(defmethod (ambassador highlighted-enhancement) ()4606
(defmethod (ambassador supported-enhancements) ()4694
(defmethod (ambassador update-line) (row old-line new-line columns)4800
(defmethod (ambassador init) ()8224
(defmethod (ambassador &move-cursor-forward) (column line)8291
(defmethod (ambassador &set-terminal-enhancement) (enh)8615

PS:<PSL.NEW>HP2648A.SL.0
00915,PSL
(defflavor hp2648a (737
  (defmacro out-n (n)1536
  (defmacro out-char (ch)1698
  (dm out-chars (form)1765
  (defmacro out-move ()1914
(defmethod (hp2648a get-character) ()2067
(defmethod (hp2648a ring-bell) ()2129
(defmethod (hp2648a move-cursor) (row column)2202
(defmethod (hp2648a enter-raw-mode) ()3273
(defmethod (hp2648a leave-raw-mode) ()3425
(defmethod (hp2648a erase) ()3564
(defmethod (hp2648a clear-line) ()3936
(defmethod (hp2648a convert-character) (ch)4154
(defmethod (hp2648a normal-enhancement) ()4531
(defmethod (hp2648a highlighted-enhancement) ()4617
(defmethod (hp2648a supported-enhancements) ()4716
(defmethod (hp2648a update-line) (row old-line new-line columns)4859
(defmethod (hp2648a init) ()10546
(defmethod (hp2648a move-cursor-forward) (column line)10737
(defmethod (hp2648a write-field-marker) (ch)11060

PS:<PSL.NEW>INPUT-STREAM.SL.0
01812,PSL
(de attempt-to-open-input (file-name)2683
(de open-input (file-name)2812
(DefConst FILE-BUFFER-SIZE #.(* 5 512))2935
(defflavor input-stream ((jfn NIL)	% TOPS-20 file number2995
(defmethod (input-stream getc) ()4015
(defmethod (input-stream &getc-after-CR) () % Internal method.4733
(defmethod (input-stream &fill-buffer-and-getc) () % Internal method.5067
(defmethod (input-stream getc-image) ()5158
(defmethod (input-stream &fill-buffer-and-getc-image) () % Internal method.5533
(defmethod (input-stream empty?) ()5626
(defmethod (input-stream peekc) ()5697
(defmethod (input-stream &fill-buffer-and-peekc) () % Internal method.6156
(defmethod (input-stream peekc-image) ()6249
(defmethod (input-stream &fill-buffer-and-peekc-image) () % Internal method.6562
(defmethod (input-stream &peek2) () % Internal method.6675
(defmethod (input-stream &fill-buffer) () % Internal method.7312
(defmethod (input-stream getl) ()7632
(defmethod (input-stream tell-position) ()8860
(defmethod (input-stream seek-position) (p)9476
(defmethod (input-stream open) (name-of-file)9834
(defmethod (input-stream close) ()10568
(defmethod (input-stream read-date) ()10752
(defmethod (input-stream write-date) ()10819
(defmethod (input-stream delete-file) ()10888
(defmethod (input-stream undelete-file) ()10955
(defmethod (input-stream delete-and-expunge-file) ()11034
(defmethod (input-stream author) ()11106
(defmethod (input-stream original-author) ()11175
(defmethod (input-stream file-length) ()11249
(de test-buffered-input (name-of-file)11522
(de time-buffered-input (name-of-file)11722
(de time-buffered-input-1 (name-of-file)11927
(de time-standard-input (name-of-file)12120
(de time-input (name-of-file)12335

PS:<PSL.NEW>OUTPUT-STREAM.SL.0
01044,PSL
(de attempt-to-open-output (file-name)1062
(de attempt-to-open-append (file-name)1204
(de open-output (file-name)1335
(de open-append (file-name)1447
(defconst FILE-BUFFER-SIZE #.(* 5 512))1578
(defflavor output-stream ((jfn NIL)	% TOPS-20 file number1639
(defmethod (output-stream putc) (ch)2013
(defmethod (output-stream put-newline) ()2613
(defmethod (output-stream putc-image) (ch)2927
(defmethod (output-stream puts) (str)3164
(defmethod (output-stream putl) (str)3672
(defmethod (output-stream open) (name-of-file)3842
(defmethod (output-stream open-append) (name-of-file)4428
(defmethod (output-stream attach-to-jfn) (new-jfn)5025
(defmethod (output-stream &fixup) ()5196
(defmethod (output-stream close) ()5663
(defmethod (output-stream flush) ()5804
(de time-buffered-output (n-lines)6220
(de time-buffered-output-1 (n-lines)6602
(de time-standard-output (n-lines)6974
(de time-output (n-lines)7298
(de time-buffered-output-string (n-lines)7513

PS:<PSL.NEW>SYSTEMERROR.SL.0
00158,PSL
(de printhex(n d)814
(de system-error-print-register (name reg value)1079
(de systemerror (info-vector)1251

PS:<PSL.NEW>TELERAY.SL.0
00928,PSL
(defflavor teleray (954
  (defmacro out-n (n)1607
  (defmacro out-char (ch)1769
  (dm out-chars (form)1836
  (defmacro out-move (row col)1992
(defmethod (teleray get-character) ()2220
(defmethod (teleray ring-bell) ()2282
(defmethod (teleray move-cursor) (row column)2355
(defmethod (teleray enter-raw-mode) ()3338
(defmethod (teleray leave-raw-mode) ()3466
(defmethod (teleray erase) ()3624
(defmethod (teleray clear-line) ()3886
(defmethod (teleray convert-character) (ch)3959
(defmethod (teleray normal-enhancement) ()4336
(defmethod (teleray highlighted-enhancement) ()4422
(defmethod (teleray supported-enhancements) ()4507
(defmethod (teleray update-line) (row old-line new-line columns)4610
(defmethod (teleray init) ()8236
(defmethod (teleray &move-cursor-forward) (column line)8300
(defmethod (teleray &set-terminal-enhancement) (enh)8621

PS:<PSL.NEW>TEXT-BUFFER.SL.0
03309,PSL
(de create-text-buffer (name) % not for direct use in NMODE1594
(defflavor text-buffer (1695
(defmacro with-current-line ((var) . forms)2701
(defmacro with-current-line-copied ((var) . forms)2826
(defmethod (text-buffer position) ()3180
(defmethod (text-buffer set-position) (bp)3357
(defmethod (text-buffer buffer-end-position) ()3625
(defmethod (text-buffer goto) (lpos cpos)3851
(defmethod (text-buffer set-line-pos) (lpos)4139
(defmethod (text-buffer set-char-pos) (cpos)4553
(defmethod (text-buffer clip-position) (bp)4901
(defmethod (text-buffer size) ()5551
(defmethod (text-buffer visible-size) ()5780
(defmethod (text-buffer contents) ()6158
(defmethod (text-buffer current-line) ()6386
(defmethod (text-buffer fetch-line) (n)6508
(defmethod (text-buffer store-line) (n new-line)6795
(defmethod (text-buffer select) ()7216
(defmethod (text-buffer set-mark) (bp)7363
(defmethod (text-buffer set-mark-from-point) ()7575
(defmethod (text-buffer mark) ()7808
(defmethod (text-buffer previous-mark) ()7917
(defmethod (text-buffer get) (property-name)8114
(defmethod (text-buffer put) (property-name property)8383
(defmethod (text-buffer reset) ()8735
(defmethod (text-buffer extract-region) (delete-it bp1 bp2)9016
(defmethod (text-buffer current-line-length) ()11432
(defmethod (text-buffer current-line-empty?) ()11592
(defmethod (text-buffer current-line-blank?) ()11752
(defmethod (text-buffer at-line-start?) ()12002
(defmethod (text-buffer at-line-end?) ()12134
(defmethod (text-buffer at-buffer-start?) ()12318
(defmethod (text-buffer at-buffer-end?) ()12467
(defmethod (text-buffer current-line-is-first?) ()12691
(defmethod (text-buffer current-line-is-last?) ()12830
(defmethod (text-buffer current-line-fetch) (n)12975
(defmethod (text-buffer current-line-store) (n c)13373
(defmethod (text-buffer move-to-buffer-start) ()13843
(defmethod (text-buffer move-to-buffer-end) ()13982
(defmethod (text-buffer move-to-start-of-line) ()14171
(defmethod (text-buffer move-to-end-of-line) ()14292
(defmethod (text-buffer move-to-next-line) ()14450
(defmethod (text-buffer move-to-previous-line) ()14738
(defmethod (text-buffer move-forward) ()14982
(defmethod (text-buffer move-backward) ()15242
(defmethod (text-buffer next-character) ()15572
(defmethod (text-buffer previous-character) ()15899
(defmethod (text-buffer insert-character) (c)16195
(defmethod (text-buffer insert-eol) ()17042
(defmethod (text-buffer insert-line) (l)17868
(defmethod (text-buffer insert-string) (s)18217
(defmethod (text-buffer insert-text) (v)19171
(defmethod (text-buffer delete-next-character) ()20130
(defmethod (text-buffer delete-previous-character) ()20792
(defmethod (text-buffer read-from-stream) (s)21089
(defmethod (text-buffer read-from-stream-using-getl) (s)21400
(defmethod (text-buffer read-from-stream-using-getc) (s)21792
(defmethod (text-buffer write-to-stream) (s)22689
(defmethod (text-buffer cleanup) ()22926
(defmethod (text-buffer init) (init-plist)23259
(defmethod (text-buffer &insert-gap) (lpos n-lines)23472
(defmethod (text-buffer &ensure-room) (lines-needed)24064
(defmethod (text-buffer &delete-lines) (lpos n-lines)24818

PS:<PSL.NEW>VAX-CMAC.SL.0
00423,PSL
(de MkItem (TagPart InfPart)1343
(de InumP (Expression)1500
(de TagNumber (X)1629
(de NonDeferredP (Expression)1917
(de DeferrableP (Expression)1988
(de RegisterDeferredP (Expression)2158
(de FakeRegisterNumberP (Expression)2268
(de NegativeImmediateP (Expression)2436
(de SameAsRegisterP (s)2632
(de FiveP(x) (eq x 5))7729
(de TwentySevenP (x) (eq x 27))7762

PS:<PSL.NEW>VT100.SL.0
00892,PSL
(defflavor vt100939
  (defmacro out-n (n)1597
  (defmacro out-char (ch)1759
  (dm out-chars (form)1826
  (defmacro out-move (row col)1982
(defmethod (vt100 get-character) ()2560
(defmethod (vt100 ring-bell) ()2692
(defmethod (vt100 move-cursor) (row column)2763
(defmethod (vt100 enter-raw-mode) ()3281
(defmethod (vt100 leave-raw-mode) ()3407
(defmethod (vt100 erase) ()3563
(defmethod (vt100 clear-line) ()3803
(defmethod (vt100 convert-character) (ch)4019
(defmethod (vt100 normal-enhancement) ()4394
(defmethod (vt100 highlighted-enhancement) ()4478
(defmethod (vt100 supported-enhancements) ()4561
(defmethod (vt100 update-line) (row old-line new-line columns)4662
(defmethod (vt100 init) ()8076
(defmethod (vt100 &move-cursor-forward) (column line)8138
(defmethod (vt100 &set-terminal-enhancement) (enh)8457

PS:<PSL.NEW>VT52X.SL.0
00894,PSL
(defflavor vt52x (941
  (defmacro out-n (n)1594
  (defmacro out-char (ch)1756
  (dm out-chars (form)1823
  (defmacro out-move (row col)1979
(defmethod (vt52x get-character) ()2197
(defmethod (vt52x ring-bell) ()2257
(defmethod (vt52x move-cursor) (row column)2328
(defmethod (vt52x enter-raw-mode) ()3309
(defmethod (vt52x leave-raw-mode) ()3435
(defmethod (vt52x erase) ()3591
(defmethod (vt52x clear-line) ()3851
(defmethod (vt52x convert-character) (ch)3922
(defmethod (vt52x normal-enhancement) ()4297
(defmethod (vt52x highlighted-enhancement) ()4381
(defmethod (vt52x supported-enhancements) ()4478
(defmethod (vt52x update-line) (row old-line new-line columns)4619
(defmethod (vt52x init) ()7774
(defmethod (vt52x &move-cursor-forward) (column line)7836
(defmethod (vt52x &set-terminal-enhancement) (enh)8155

PS:<PSL.NMODE>AUTOFILL.SL.0
00404,PSL
(de auto-fill-mode-command ()1091
(de auto-fill-setup ()1156
(de set-fill-column-command ()1330
(de set-fill-prefix-command ()1566
(de blank-char (char) (or (= char #\tab) (= char #\blank)))2038
(de skip-forward-blanks-in-line ()2076
(de skip-backward-blanks-in-line ()2212
(de skip-forward-nonblanks-in-line ()2357
(de auto-fill-space ()2484

PS:<PSL.NMODE>BROWSER.SL.0
01770,PSL
(de create-browser (browser-kind1629
(defflavor browser3948
(defmethod (browser select) ()8173
(defmethod (browser enter) ()8410
(defmethod (browser exit) ()8693
(defmethod (browser display-help) ()9203
(defmethod (browser display-documentation) ()9365
(defmethod (browser current-item) ()9677
(defmethod (browser current-item-index) ()10040
(defmethod (browser add-item) (new-item)10393
(defmethod (browser add-items) (new-item-list)10672
(defmethod (browser kill-item) ()11141
(defmethod (browser kill-deleted-items) ()11393
(defmethod (browser delete-item) ()11609
(defmethod (browser undelete-item) ()11887
(defmethod (browser view-item) ()12167
(defmethod (browser ignore-item) ()12492
(defmethod (browser update-items) ()13233
(defmethod (browser filter-items) (filter)13680
(defmethod (browser undo-filter) ()14261
(defmethod (browser filter-count) ()15142
(defmethod (browser items) ()15249
(defmethod (browser set-items) (new-items)15430
(defmethod (browser sort) (sorter)16029
(defmethod (browser send-item) (msg args)16330
(defmethod (browser select-item) (item)16736
(defmethod (browser get) (property-name)17032
(defmethod (browser put) (property-name property)17299
(defmethod (browser init) (init-plist)17844
(defmethod (browser &update-display) ()18870
(defmethod (browser &set-viewed-item) (item)19435
(defmethod (browser &display-viewed-item) ()19665
(defmethod (browser &sort-items) ()20300
(defmethod (browser &insert-items) (item-list)20785
(defmethod (browser &remove-current-item) ()21388
(defmethod (browser &update-current-item) ()22216
(defmethod (browser &keep-items) (fcn args)22559
(de &browser-item-not-killed (item)23673

PS:<PSL.NMODE>BROWSER-BROWSER.SL.0
01391,PSL
(de browser-browser-command ()3014
(de create-browser-browser ()3231
(de browser-browser-update (browser)3919
(de browser-browser-browse-command ()5038
(de browser-browser-name-sorter (b1 b2)5475
(de create-browser-browser-item (b)5832
(defflavor browser-browser-item5929
(defmethod (browser-browser-item init) (init-plist)6096
(defmethod (browser-browser-item &update-display-text) ()6196
(defmethod (browser-browser-item update) ()6561
(defmethod (browser-browser-item kill) ()6695
(defmethod (browser-browser-item view-buffer) (x)6779
(defmethod (browser-browser-item cleanup) ()6869
(defmethod (browser-browser-item apply-filter) (filter)6933
(de define-browser-prototype (create-function display-text documentation-text)7265
(de create-browser-browser-prototype-item (create-fcn display-text doc-text)7576
(defflavor browser-browser-prototype-item7774
(defmethod (browser-browser-prototype-item init) (init-plist)8068
(defmethod (browser-browser-prototype-item update) ()8575
(defmethod (browser-browser-prototype-item kill) ()8640
(defmethod (browser-browser-prototype-item view-buffer) (x)8715
(defmethod (browser-browser-prototype-item cleanup) ()8802
(defmethod (browser-browser-prototype-item apply-filter) (filter)8876
(defmethod (browser-browser-prototype-item instantiate) ()8948

PS:<PSL.NMODE>BROWSER-SUPPORT.SL.0
01423,PSL
(de nmode-register-browser (browser)2273
(de nmode-unregister-browser (browser)2719
(de browser-is-active? (browser)3027
(de browser-enter (browser)3103
(de browser-exit (browser)3555
(de kill-browser (browser)4098
(de all-browsers ()4336
(de all-browsers-of-a-kind (browser-kind-id)4493
(de find-browser (browser-kind-id info-string)4732
(de browser-update (browser)5000
(de browser-kill-and-exit-command ()5303
(de browser-exit-command ()5405
(de kill-browser-command ()5663
(de browser-delete-command ()5946
(de browser-undelete-command ()6069
(de browser-undelete-backwards-command ()6210
(de browser-kill-command ()6397
(de browser-ignore-command ()6501
(de browser-view-command ()6626
(de browser-edit-command ()6842
(de browser-kill-deleted-items-command ()7070
(de browser-undo-filter-command ()7191
(de browser-help-command ()7466
(de current-browser ()7820
(de browser-sort (prompt sorter)7899
(de browser-current-item ()8033
(de browser-view-item (w)8218
(de browser-view-item-in-buffer ()8541
(de browser-view-buffer (b invert-split-screen-option)8836
(de browser-edit-buffer (b invert-split-screen-option)9304
(de browser-add-item-and-view (new-item)9844
(de browser-add-item (new-item)10117
(de browser-add-items (new-item-list)10317
(de browser-do-repeated-command (msg args removes?)10538

PS:<PSL.NMODE>BUFFER.SL.0
01648,PSL
(de buffer-get-position ()582
(de buffer-set-position (bp)744
(de current-buffer-goto (line-number char-number)999
(de current-line-pos ()1188
(de set-line-pos (n)1314
(de current-char-pos ()1494
(de set-char-pos (n)1625
(de current-display-column ()1838
(de set-display-column (n)2143
(de current-buffer-size ()2490
(de current-buffer-visible-size ()2690
(de current-line ()2911
(de current-line-replace (s)3069
(de current-buffer-fetch (n)3242
(de current-buffer-store (n l)3386
(de set-mark (bp)3520
(de set-mark-from-point ()3753
(de current-mark ()3983
(de previous-mark ()4107
(de reset-buffer ()4299
(de extract-region (delete-it bp1 bp2)4452
(de extract-text (delete-it bp1 bp2)4929
(de current-line-length ()5300
(de current-line-empty? ()5438
(de current-line-blank? ()5576
(de at-line-start? ()5719
(de at-line-end? ()5856
(de at-buffer-start? ()5993
(de at-buffer-end? ()6128
(de current-line-is-first? ()6267
(de current-line-is-last? ()6419
(de current-line-fetch (n)6567
(de current-line-store (n c)6774
(de move-to-buffer-start ()6978
(de move-to-buffer-end ()7108
(de move-to-start-of-line ()7233
(de move-to-end-of-line ()7363
(de move-to-next-line ()7483
(de move-to-previous-line ()7671
(de move-forward ()7865
(de move-backward ()8040
(de next-character ()8223
(de previous-character ()8406
(de insert-character (c)8597
(de insert-eol ()8767
(de insert-line (l)8954
(de insert-string (s)9144
(de insert-text (v)9351
(de delete-next-character ()9664
(de delete-previous-character ()9829

PS:<PSL.NMODE>BUFFER-BROWSER.SL.0
02066,PSL
(de buffer-browser-command ()4089
(de create-buffer-browser ()4302
(de buffer-browser-update (browser)5040
(de buffer-browser-create-command ()5804
(de buffer-browser-save-file-command ()6265
(de buffer-browser-not-modified-command ()6380
(de buffer-browser-reverse-sort ()6492
(de buffer-browser-reverse-sort-dispatch ()6637
(de buffer-browser-sort ()7233
(de buffer-browser-sort-dispatch ()7354
(de buffer-browser-filter-command ()8067
(de buffer-browser-filter-dispatch1 ()8217
(de buffer-browser-file-name-extractor (item-buffer)8825
(de buffer-browser-mode-extractor (item-buffer)8942
(de buffer-browser-name-extractor (item-buffer)9096
(de buffer-browser-filter-prompter2 (aspect)9204
(de buffer-browser-filter-dispatch2 (aspect)9363
(de buffer-browser-filter-compose (flag aspect)9803
(de buffer-browser-filter-predicate (buffer-browser-item)10345
(de buffer-browser-name-sorter (b1 b2)10965
(de buffer-browser-name-reverser (b1 b2)11130
(de buffer-browser-size-sorter (b1 b2)11211
(de buffer-browser-size-reverser (b1 b2)11424
(de buffer-browser-file-sorter (b1 b2)11635
(de buffer-browser-file-reverser (b1 b2)11814
(de buffer-browser-modified-sorter (b1 b2)11905
(de buffer-browser-modified-reverser (b1 b2)12192
(de create-buffer-browser-item (b width)12704
(defflavor buffer-browser-item12823
(defmethod (buffer-browser-item init) (init-plist)13048
(defmethod (buffer-browser-item &update-display-text) ()13147
(defmethod (buffer-browser-item update) ()13484
(defmethod (buffer-browser-item delete) ()13622
(defmethod (buffer-browser-item undelete) ()13910
(defmethod (buffer-browser-item deleted?) ()14051
(defmethod (buffer-browser-item kill) ()14115
(defmethod (buffer-browser-item view-buffer) (x)14483
(defmethod (buffer-browser-item cleanup) ()14581
(defmethod (buffer-browser-item apply-filter) (filter)14644
(defmethod (buffer-browser-item save-file) ()14728
(defmethod (buffer-browser-item set-unmodified) ()14883

PS:<PSL.NMODE>BUFFER-IO.SL.0
00894,PSL
(DefConst MaxChannels 32) % Maximum number of channels supported by PSL.1100
(defflavor buffer-channel1129
(de OpenBufferChannel (input-buffer output-buffer Editor)2168
(de buffer-channel-close (chn)3269
(de buffer-channel-set-input-buffer (chn input-buffer)3419
(de buffer-channel-set-input-position (chn bp)3656
(de buffer-channel-set-output-buffer (chn output-buffer)3834
(de buffer-print-character (chn ch)4001
(de buffer-channel-flush (chn)4139
(defmethod (buffer-channel flush) ()4281
(defmethod (buffer-channel refresh) ()4806
(defmethod (buffer-channel put-newline) ()5502
(defmethod (buffer-channel putc) (ch)5766
(de nmode-adjust-output-window (w)6246
(de buffer-read-character (chn)6464
(defmethod (buffer-channel getc) ()6604
(de MakeInputAvailable ()7542
(defmethod (buffer-channel run-editor) ()7821

PS:<PSL.NMODE>BUFFER-POSITION.SL.0
00308,PSL
(de buffer-position-create (line-number column-number)465
(de buffer-position-line (bp)535
(de buffer-position-column (bp)583
(de buffer-position-equal (bp1 bp2)635
(de buffer-position-compare (bp1 bp2)734
(de buffer-position-lessp (bp1 bp2)1066

PS:<PSL.NMODE>BUFFER-WINDOW.SL.0
01739,PSL
(de create-unlabeled-buffer-window (buffer virtual-screen)2267
(de create-buffer-window (buffer virtual-screen)2536
(defflavor buffer-window 2838
(defmethod (buffer-window select) ()4478
(defmethod (buffer-window deselect) ()4915
(defmethod (buffer-window expose) ()5272
(defmethod (buffer-window deexpose) ()5448
(defmethod (buffer-window exposed?) ()5586
(defmethod (buffer-window set-screen) (new-screen)5669
(defmethod (buffer-window set-label) (new-label)5969
(defmethod (buffer-window position) ()7190
(defmethod (buffer-window line-position) ()7395
(defmethod (buffer-window char-position) ()7541
(defmethod (buffer-window set-position) (bp)7690
(defmethod (buffer-window set-line-position) (line)7938
(defmethod (buffer-window adjust-window) ()8210
(defmethod (buffer-window readjust-window) ()8675
(defmethod (buffer-window adjust-buffer) ()9027
(defmethod (buffer-window set-buffer) (new-buffer)9686
(defmethod (buffer-window set-buffer-top) (new-top)9934
(defmethod (buffer-window set-buffer-left) (new-left)10163
(defmethod (buffer-window set-size) (new-height new-width)10410
(defmethod (buffer-window set-text-enhancement) (e-mask)10886
(defmethod (buffer-window refresh) (breakout-allowed)11095
(defmethod (buffer-window init) (init-plist)12531
(defmethod (buffer-window &new-screen) ()12606
(defmethod (buffer-window &new-size) ()12733
(defmethod (buffer-window &reset) ()13347
(defmethod (buffer-window &write-line-to-screen) (line row)13539
(defmacro &write-char (ch)13940
(defmethod (buffer-window &compute-screen-line) (line)14208
(de map-char-to-column (line n)15163
(de map-column-to-char (line n)15957

PS:<PSL.NMODE>BUFFERS.SL.0
01262,PSL
(de buffer-create-default (buffer-name)2928
(de buffer-create (buffer-name initial-mode)3288
(de create-unnamed-buffer (initial-mode)3839
(de buffer-make-unique-name (buffer-name)4080
(de buffer-find (buffer-name)4656
(de buffer-find-or-create (buffer-name)4977
(de buffer-exists? (buffer-name)5227
(de nmode-user-buffers ()5411
(de buffer-is-selectable? (b)5850
(de buffer-set-mode (b mode)6011
(de cleanup-buffers ()6260
(de buffer-select (b)6609
(de buffer-select-previous (b)6876
(de buffer-select-by-name (buffer-name)7130
(de buffer-select-or-create (buffer-name)7338
(de prompt-for-buffer (prompt default-b)8270
(de prompt-for-existing-buffer (prompt default-b)9005
(de complete-input-buffer-name ()9504
(de check-input-buffer-name ()10042
(de complete-input-existing-buffer-name ()10493
(de buffer-names-that-match (name)10976
(de buffer-name-matches (b name2)11129
(de window-select-buffer (w b)11556
(de window-select-previous-buffer (w)12039
(de window-copy-buffer (w-source w-dest)12367
(de nmode-new-window-or-buffer ()12890
(de window-kill-buffer ()13676
(de buffer-kill-and-detach (b)14032
(de buffer-killable? (b)14369
(de buffer-kill (b)14494

PS:<PSL.NMODE>BUILD-VAX-NMODE.SL.0
00050,PSL

PS:<PSL.NMODE>CASE-COMMANDS.SL.0
00529,PSL
(de uppercase-word-command ()841
(de lowercase-word-command ()940
(de uppercase-initial-command ()1044
(de uppercase-region-command ()1149
(de lowercase-region-command ()1230
(de upcase-digit-command ()1498
(de transform-region (string-conversion-function bp1 bp2)2522
(de transform-region-with-next-word-or-fragment (string-conversion-function)3599
(de transform-marked-region (string-conversion-function)3979
(de set-up-shifted-digits-association-list ()4726

PS:<PSL.NMODE>COMMAND-INPUT.SL.0
00293,PSL
(de define-command-prefix (function-name name-string)1085
(de prefix-name (ch)1211
(de c-x-prefix ()1681
(de Esc-prefix ()1868
(de Lisp-prefix ()2056
(de m-x-prefix ()2245
(de input-base-character ()2550
(de input-command ()2618

PS:<PSL.NMODE>COMMANDS.SL.0
00981,PSL
(de insert-self-command ()926
(de insert-next-character-command ()1331
(de return-command ()1598
(de select-buffer-command ()2003
(de prompt-for-selectable-buffer ()2093
(de kill-buffer-command ()2336
(de insert-buffer-command ()2553
(de select-previous-buffer-command ()2739
(de visit-in-other-window-command ()2963
(de nmode-refresh-command ()3302
(de open-line-command ()3745
(de Ding ()3857
(de buffer-not-modified-command ()3929
(de set-mark-command ()4008
(de mark-beginning-command ()4181
(de mark-end-command ()4348
(de transpose-characters-command ()4525
(de mark-word-command ()4895
(de mark-form-command ()5068
(de mark-whole-buffer-command ()5249
(de nmode-abort-command ()5359
(de start-scripting-command ()5420
(de stop-scripting-command ()5562
(de execute-buffer-command ()5637
(de execute-file-command ()5837
(de nmode-execute-file (fn)5936
(de apropos-command ()6152

PS:<PSL.NMODE>DEFUN-COMMANDS.SL.0
00401,PSL
(de reposition-window-command ()772
(de end-of-defun-command ()1511
(de mark-defun-command ()2554
(de move-backward-defun ()3098
(de beginning-of-defun ()3400
(de move-forward-defun ()3817
(de move-to-start-of-current-defun ()4224
(de move-to-end-of-current-defun ()4987
(de current-line-is-defun? ()5779
(de scan-past-defun ()5880

PS:<PSL.NMODE>DIRED.SL.0
01823,PSL
(de dired-command ()4859
(de edit-directory-command ()5358
(de directory-editor (directory-name)5785
(de create-file-browser (directory-name)6584
(de dired-create-items (file-list display-width)7046
(de dired-exit ()7973
(de dired-browse-command ()8400
(de dired-create-command ()8656
(de dired-look-command ()9823
(de dired-filter-command ()10219
(de dired-filter-dispatch ()10347
(de dired-filter-compose (flag)10675
(de dired-reverse-sort ()11015
(de dired-reverse-sort-dispatch ()11142
(de dired-sort ()11702
(de dired-sort-dispatch ()11805
(de dired-string-filter-predicate (file-browser-item)12520
(de dired-determine-actions (b)12778
(de dired-present-actions (action-list)13347
(de get-upchar ()13996
(de dired-present-list (list prompt)14318
(de dired-perform-actions (action-list)14624
(de dired-filename-sorter (f1 f2)15133
(de dired-filename-reverser (f1 f2)15351
(de dired-size-sorter (f1 f2)15424
(de dired-size-reverser (f1 f2)15608
(de dired-write-sorter (f1 f2)15791
(de dired-write-reverser (f1 f2)15992
(de dired-read-sorter (f1 f2)16193
(de dired-read-reverser (f1 f2)16391
(de create-file-browser-item (width full-name nice-name deleted? size16857
(defflavor file-browser-item17129
(defmethod (file-browser-item init) (init-plist)17878
(defmethod (file-browser-item update) ()18556
(defmethod (file-browser-item delete) ()18660
(defmethod (file-browser-item undelete) ()18857
(defmethod (file-browser-item deleted?) ()19054
(defmethod (file-browser-item kill) ()19116
(defmethod (file-browser-item view-buffer) (x)19287
(defmethod (file-browser-item cleanup) ()19445
(defmethod (file-browser-item apply-filter) (filter)19743
(defmethod (file-browser-item action-wanted) ()19829

PS:<PSL.NMODE>DISPATCH.SL.0
00785,PSL
(de dispatch-table-lookup (command)2102
(de lookup-prefix-character (ch)2922
(de nmode-make-self-inserting (chr)3615
(de nmode-undefine-command (chr)3763
(de nmode-define-commands (lis)3949
(de nmode-define-normal-self-inserts ()4057
(de nmode-define-command (command op)4201
(de nmode-establish-current-mode ()5826
(de nmode-establish-mode (mode)6079
(de nmode-clear-dispatch-table ()6549
(de help-dispatch ()6904
(de print-all-dispatch ()7327
(de function-name-matcher (f)7476
(de string-indexs (s pattern)7570
(de pattern-in-string (pattern s pos)7982
(de print-matching-dispatch (s)8390
(de print-dispatch-entry (command f)9116
(de is-redundant-command? (command)9774
(de command-name (command)10095

PS:<PSL.NMODE>DOC.SL.0
00542,PSL
(de set-up-documentation ()2305
(de doc-obj-compare (obj1 obj2)3934
(de doc-filter-command ()4070
(de doc-filter-predicate (doc-obj)4390
(de create-nmode-documentation-browser ()5210
(de apropos-command ()5503
(defflavor doc-browse-obj6181
(defmethod (doc-browse-obj display-text) ()6398
(defmethod (doc-browse-obj view-buffer) (buffer)6497
(defmethod (doc-browse-obj update) ()6959
(defmethod (doc-browse-obj cleanup) ()7011
(defmethod (doc-browse-obj apply-filter) (filter)7072

PS:<PSL.NMODE>EXTENDED-INPUT.SL.0
00300,PSL
(de nmode-initialize-extended-input ()1285
(de input-extended-character ()1969
(de push-back-extended-character (ch)2177
(de input-direct-extended-character ()2263
(de push-back-input-character (ch)3121
(de input-terminal-character ()3195

PS:<PSL.NMODE>FILEIO.SL.0
01779,PSL
(de visit-file-command ()2443
(de insert-file-command ()2622
(de write-file-command ()2897
(de save-file-command ()3088
(de save-file-version-command ()3352
(de find-file-command ()3675
(de write-screen-command ()3925
(de write-region-command ()4171
(de prepend-to-file-command ()4457
(de append-to-file-command ()4744
(de delete-file-command ()5025
(de delete-and-expunge-file-command ()5142
(de undelete-file-command ()5277
(de save-all-files-command ()5389
(de print-buffer-command ()5756
(de prompt-for-defaulted-filename (prompt b)6205
(de prompt-for-file-name (prompt default-name)6602
(de attempt-to-merge-pathname-defaults (pn dn type version)7100
(de read-file-into-buffer (b file-name)7317
(de read-stream-into-buffer (b s)7653
(de insert-file-into-buffer (buf pn)7912
(de insert-buffer-into-buffer (source destination)8095
(de save-file (b)8310
(de save-file-version (b)8591
(de write-file (b)8894
(de write-buffer-to-file (b pn)9121
(de write-text-to-file (text pn)9660
(de prepend-text-to-file (text pn)9816
(de append-text-to-file (text pn)10038
(de visit-file (b file-name)10253
(de find-file (file-name)10888
(de find-file-in-window (w file-name)11205
(de find-file-in-buffer (file-name existing-file-only?)11710
(de find-file-in-existing-buffer (file-name)12808
(de nmode-delete-file (fn)13181
(de nmode-delete-and-expunge-file (fn)13422
(de nmode-undelete-file (fn)13678
(de write-screen (file-name)13915
(de print-buffer (print-device)14326
(de print-buffer-line (chn line)15009
(de actualize-file-name (file-name)15897
(de filename-to-buffername (fn)16628
(de pathnames-match (pn1 pn2)16889
(de filename-without-version (fn)17370

PS:<PSL.NMODE>HP9836-DEV.SL.0
00409,PSL
(dn nmode-compile (s-list)945
(de nmode-compile-1 (s)1038
(dn window-compile (s-list)1309
(de window-compile-1 (s)1404
(de pu-compile (s)1668
(de phpu-compile (s)1862
(de nmode-compile-all ()2062
(de window-compile-all ()2164
(dn nmode-ftp (s-list)2265
(de nmode-ftp-1 (s sout)2566
(dn window-ftp (s-list)2763
(de window-ftp-1 (s sout)3067

PS:<PSL.NMODE>INCR.SL.0
00909,PSL
(de incremental-search-command () (incr-search 1))1077
(de reverse-search-command () (incr-search -1))1128
(defflavor search-state1348
(defmethod (search-state push) ()2115
(defmethod (search-state pop) ()2401
(defmethod (search-state do-search) (next-command)3498
(defmethod (search-state actual-search) ()4696
(defmethod (search-state super-pop) ()5853
(defmethod (search-state init) () 6221
(defmethod (search-state prompt) ()6299
(defflavor parsed-char6369
(defmethod (parsed-char parse-next-character) ()6938
(de incr-search (direct)7902
(de continue (search-state parsed-char)8517
(de update-message (text found direct)8898
(de move-over-text (text)9536
(de trim-text (old-text)9922
(de new-text (old-text char)10560
(de text2list (text)11071
(de buffer-text-search? (text direct)11628
(de match-rest-of-text? (text)12356

PS:<PSL.NMODE>INDENT-COMMANDS.SL.0
00644,PSL
(de indent-new-line-command ()1061
(de tab-to-tab-stop-command ()1388
(de delete-horizontal-space-command ()1521
(de delete-blank-lines-command ()1781
(de back-to-indentation-command ()2330
(de delete-indentation-command ()2463
(de split-line-command ()2853
(de indent-region-command ()3140
(de char-blank? (ch)3444
(de current-line-indent ()3511
(de current-line-strip-indent ()3831
(de strip-previous-blanks ()4217
(de indent-current-line (n)4418
(de delete-following-blank-lines ()5048
(de indent-to-argument ()5586
(de indent-region (indenting-function)5763

PS:<PSL.NMODE>KILL-COMMANDS.SL.0
01413,PSL
(de nmode-initialize-kill-ring ()858
(de insert-kill-buffer ()977
(de insert-from-kill-ring (index flip-positions)1387
(de insert-text-safely (text flip-positions)1512
(de safe-to-unkill ()1697
(de unkill-previous ()2008
(de update-kill-buffer (kill-info)2574
(de text-append (t1 t2)3549
(de text-equal (t1 t2)4206
(de kill-region ()4463
(de copy-region ()4674
(de append-to-buffer-command ()4796
(de prompt-for-register-name (prompt)5019
(de put-register-command ()5408
(de get-register-command ()5771
(de append-next-kill-command ()6175
(de kill-line ()6310
(de kill-forward-word-command ()7414
(de kill-backward-word-command ()7530
(de kill-forward-form-command ()7649
(de kill-backward-form-command ()7765
(de delete-backward-character-command ()7892
(de delete-forward-character-command ()8156
(de delete-backward-hacking-tabs-command ()8414
(de transpose-words ()8711
(de attempt-to-transpose-words (n)8918
(de transpose-lines ()9859
(de attempt-to-transpose-lines (n)10066
(de transpose-forms ()11233
(de attempt-to-transpose-forms (n)11440
(de transpose-regions ()12383
(de attempt-to-transpose-regions (n)12594
(de delete-characters (n)13325
(de delete-characters-hacking-tabs (n)13529
(de delete-words (n)14440
(de delete-forms (n)14621
(de exchange-regions (bp1 bp2 bp3 bp4)14820

PS:<PSL.NMODE>LISP-COMMANDS.SL.0
00221,PSL
(de insert-closing-bracket ()1184
(de down-list-command ()1490
(de make-parens-command ()2377
(de move-over-paren-command ()3064
(de insert-comment-command ()3939

PS:<PSL.NMODE>LISP-INDENTING.SL.0
00503,PSL
(de lisp-tab-command ()777
(de lisp-indent-current-line ()1513
(de lisp-indent-or-clear-current-line ()1610
(de lisp-indent-sexpr ()1736
(de lisp-indent-region-command ()2322
(de lisp-current-line-indent ()2782
(de unsafe-lisp-current-line-indent ()3056
(de lisp-indent-under-paren (leftmost-form-type number-of-forms)3967
(de lisp-indent-under-atom (the-id paren-column5445
(de id-specific-indent (id paren-column second-column)7268

PS:<PSL.NMODE>LISP-INTERFACE.SL.0
00728,PSL
(de yank-last-output-command ()1854
(de execute-form-command ()2389
(de execute-defun-command ()2603
(de make-buffer-terminated ()2918
(de execute-from-buffer ()3208
(de nmode-exit-to-superior ()4248
(de emode () (nmode)) % for user convenience4761
(de nmode ()4777
(de nmode-run-init-file ()5292
(de nmode-execute-init-file (fn)5570
(de nmode-read-and-evaluate-file (fn)5692
(de exit-nmode ()5869
(de nmode-invoke-lisp-listener ()6226
(de nmode-select-old-channels ()6814
(de nmode-select-buffer-channel ()7408
(de nmode-select-buffer-input-channel ()7655
(de nmode-channel-editor (chn)8065
(de nmode-main ()9266
(de nmode-top-loop ()10597

PS:<PSL.NMODE>LISP-PARSER.SL.0
00262,PSL
(de establish-lisp-parser ()897
(de lisp-parse-line (str vec)1553
(de lisp-character-attributes (ch)4984
(de lp-set-last (vec i)5244
(de lisp-current-line-is-defun? ()5595
(de lisp-scan-past-defun ()5712

PS:<PSL.NMODE>M-X.SL.0
00388,PSL
(de prompt-for-extended-command (prompt)1039
(de complete-input-command-name ()1572
(de complete-and-terminate-input-command-name ()2003
(de complete-input-extended-command-name (many-ok)2620
(de extend-name-by-words (name names many-ok)3925
(de extended-command-names-that-match (name)5156
(de name-matches-prefix (test-name name)5347

PS:<PSL.NMODE>M-XCMD.SL.0
00511,PSL
(de delete-matching-lines-command () (delete-possibly-matching-lines nil))819
(de delete-non-matching-lines-command () (delete-possibly-matching-lines t))899
(de delete-possibly-matching-lines (retain-if-match)955
(de count-occurrences-command ()2438
(de set-key-command ()3298
(de set-visited-filename-command ()4098
(de rename-buffer-command ()4532
(de kill-some-buffers-command ()5775
(de insert-date-command ()6620
(de revert-file-command ()6819

PS:<PSL.NMODE>MODE-DEFS.SL.0
00142,PSL
(de nmode-initialize-modes ()4939
(de lisp-mode-command ()5343
(de text-mode-command ()5438

PS:<PSL.NMODE>MODES.SL.0
00494,PSL
(de nmode-define-mode (name establish-expressions)1158
(defflavor mode (1526
(de nmode-declare-file-mode (file-type mode)1965
(de pathname-default-mode (fn)2217
(de minor-mode-active? (m)2800
(de activate-minor-mode (m)2932
(de deactivate-minor-mode (m)3168
(de toggle-minor-mode (m)3388
(de add-to-command-list (listname command func)4099
(de remove-from-command-list (listname command)4576
(de set-text-command (command func)4790

PS:<PSL.NMODE>MOVE-COMMANDS.SL.0
01537,PSL
(de move-to-buffer-start-command ()1303
(de move-to-buffer-end-command ()1396
(de move-to-start-of-line-command ()1490
(de move-to-end-of-line-command ()1612
(de set-goal-column-command ()1707
(de setup-goal-column ()1975
(de goto-goal-column ()2301
(de move-up-command ()2639
(de move-down-extending-command ()2791
(de move-down-command ()3060
(de exchange-point-and-mark ()3208
(de char-blank-or-newline? (ch)3598
(de skip-forward-blanks ()3666
(de skip-backward-blanks ()3962
(de move-forward-character-command ()4489
(de move-backward-character-command ()4604
(de move-forward-word-command ()4910
(de move-backward-word-command ()5015
(de move-over-words (n)5114
(de move-forward-form-command ()5726
(de move-backward-form-command ()5831
(de move-over-forms (n)5930
(de forward-up-list-command ()6538
(de backward-up-list-command ()6639
(de move-up-lists (n)6734
(de move-forward-list-command ()7682
(de move-backward-list-command ()7787
(de move-over-lists (n)7886
(de move-forward-defun-command ()8517
(de move-backward-defun-command ()8624
(de move-over-defuns (n)8725
(de move-over-characters (n)9354
(de move-forward-character ()9795
(de move-backward-character ()10029
(de move-over-characters-hacking-tabs (n)10510
(de move-forward-character-hacking-tabs ()10990
(de move-backward-character-hacking-tabs ()11565
(de word-char? (ch)12289
(de move-forward-word ()12361
(de move-backward-word ()13012

PS:<PSL.NMODE>NMODE-20.SL.0
00503,PSL
(de load-nmode ()1215
(de nmode-set-terminal ()1953
(de hp2648a () (ensure-terminal-type 'hp2648a))2406
(de vt52x () (ensure-terminal-type 'vt52x))2451
(de current-date-time () % Stolen directly from Nancy Kendzierski2713
(de dec20-actualize-file-name (file-name)2963
(de nmode-load-required-modules ()3957
(de nmode-fixup-name (s) s)4335
(de nmode-load-all ()4360
(de nmode-load (s)4452
(de nmode-faslin (directory-name module-name)4546

PS:<PSL.NMODE>NMODE-9836.SL.0
00656,PSL
(de nmode-9836-init ()2611
(de nmode-set-terminal ()3130
(de load-nmode ()3485
(de compile-lisp-file (source-name object-name)4152
(de file-compile (s)4617
(de current-date-time () (date-and-time))4981
(de 9836-actualize-file-name (fn) fn)5022
(de nmode-use-color ()5048
(de nmode-use-alpha ()5177
(de install-nmode-keymap ()5326
(de uninstall-nmode-keymap ()5452
(de pasfiler ()5566
(de paseditor ()5659
(de nmode-load-required-modules ()5966
(de nmode-fixup-name (s) s)6367
(de nmode-load-all ()6392
(de nmode-load (s)6484
(de nmode-faslin (directory-name module-name)6578

PS:<PSL.NMODE>NMODE-ATTRIBUTES.SL.0
01477,PSL
(defconst     OPENER-BITS 2#000000001) % part of an opening "bracket"726
(defconst     CLOSER-BITS 2#000000010) % part of a closing "bracket"796
(defconst       ATOM-BITS 2#000000100) % part of an "atom"856
(defconst     BLANKS-BITS 2#000001000) % part of a "blank region"923
(defconst    COMMENT-BITS 2#000010000) % part of a comment983
(defconst     PREFIX-BITS 2#000100000) % a subclass of opening bracket1120
(defconst      FIRST-BITS 2#001000000) % the first character of an item1265
(defconst     MIDDLE-BITS 2#010000000) % neither first nor last1330
(defconst       LAST-BITS 2#100000000) % the last character of an item1402
(defconst       POSITION-BITS #.(| (const FIRST-BITS) 1470
(defconst        BRACKET-BITS #.(| (const OPENER-BITS) (const CLOSER-BITS)))1600
(defconst     WHITESPACE-BITS #.(| (const BLANKS-BITS) (const COMMENT-BITS)))1679
(defconst      NOT-SPACE-BITS #.(| (const BRACKET-BITS) (const ATOM-BITS)))1758
(defconst   PRIMARY-TYPE-BITS #.(| (const NOT-SPACE-BITS)1817
(defconst SECONDARY-TYPE-BITS #.(const PREFIX-BITS))1905
(defconst           TYPE-BITS #.(| (const PRIMARY-TYPE-BITS)1967
(de parse-character-attributes (attribute-list)2056
(de unparse-character-attributes (bits)3137
(de decode-character-attribute-type (bits)3896
(de fix-attribute-bits (bits)4257
(defmacro attributes attributes-list4594
(defmacro test-attributes attributes-list4692

PS:<PSL.NMODE>NMODE-BREAK.SL.0
00464,PSL
(de enable-nmode-break ()1282
(de nmode-break ()1607
(de nmode-break-handler ()1855
(de lisp-quit-command ()3159
(de lisp-retry-command ()3270
(de lisp-continue-command ()3506
(de lisp-abort-command ()3786
(de lisp-backtrace-command ()3861
(de lisp-help-command ()4134
(de ensure-in-break ()4366
(de nmode-yesp (message)4694
(de nmode-yes-or-no? (message)4855
(de nmode-y-or-n? (message)5237

PS:<PSL.NMODE>NMODE-INIT.SL.0
00112,PSL
(de nmode-initialize ()679
(de nmode-initialize-buffers ()1072

PS:<PSL.NMODE>NMODE-PARSING.SL.0
00733,PSL
(defmacro test-current-attributes attributes-list1376
(defmacro move-forward-to attributes-list1497
(defmacro move-backward-to attributes-list1611
(defmacro move-forward-within-line-to attributes-list1737
(defmacro move-backward-within-line-to attributes-list1875
(de test-current-attributes-bits (bits)2219
(de move-forward-to-bits (bits)2425
(de move-backward-to-bits (bits)2516
(de move-forward-within-line-to-bits (bits)2621
(de move-backward-within-line-to-bits (bits)2722
(de move-forward-to-bits-until (bits stop-predicate)2834
(de move-backward-to-bits-until (bits stop-predicate)3185
(de current-attributes ()3727
(de show-current-character ()4492

PS:<PSL.NMODE>NMODE-VAX.SL.0
00430,PSL
(de load-nmode ()1763
(de nmode-set-terminal ()2456
(de hp2648a () (ensure-terminal-type 'hp2648a))2997
(de vt52x () (ensure-terminal-type 'vt52x))3042
(de vax-actualize-file-name (file-name)3278
(de nmode-load-required-modules ()3843
(de nmode-fixup-name (s) s)4227
(de nmode-load-all ()4252
(de nmode-load (s)4344
(de nmode-faslin (directory-name module-name)4438

PS:<PSL.NMODE>PROMPTING.SL.0
00697,PSL
(de prompt-for-string (prompt-string default-string)2131
(de prompt-for-string-special (prompt-string default-string command-list)2809
(de nmode-substitute-default-input ()4540
(de nmode-get-input-string ()4986
(de nmode-replace-input-string (s)5268
(de nmode-terminate-input ()5505
(de nmode-yank-default-input ()5642
(de write-prompt (msg)6209
(de set-prompt (msg)6519
(de write-message (msg)6914
(de rewrite-message ()7202
(de set-message (msg)7349
(de reset-message ()7745
(de prompt-append-string (s)8126
(de prompt-append-character (ch)8264
(de message-append-string (s)8759
(de message-append-character (ch)8899

PS:<PSL.NMODE>QUERY-REPLACE.SL.0
00213,PSL
(de replace-string-command ()1218
(de query-replace-command ()1719
(de do-string-replacement (pattern replacement)4025
(de advance-over-string (pattern)4483

PS:<PSL.NMODE>READER.SL.0
00867,PSL
(de nmode-reader (nmode-exit-on-abort)2784
(de nmode-reader-step ()4607
(de nmode-read-command ()4806
(de nmode-execute-current-command ()5563
(de start-timing-command ()5966
(de stop-timing-command ()6335
(de nmode-start-timing ()6529
(de nmode-stop-timing ()6869
(de nmode-timed-reader-step ()7695
(de nmode-timed-refresh ()8881
(de nmode-timed-read-command ()9047
(de nmode-timed-execute-current-command ()9226
(de nmode-timing-message (s)9415
(de nmode-gc-check ()9754
(de nmode-gc ()10145
(de exit-nmode-reader ()10673
(de nmode-undefined-command (command)10806
(de nmode-error (s)10907
(de argument-digit ()11241
(de negative-argument ()11610
(de universal-argument ()12193
(de argument-or-insert-command ()12582
(de argument-digit-number (n)13423
(de char-digit (c)14045

PS:<PSL.NMODE>REC.SL.0
00220,PSL
(de recursive-edit-y-or-n (buffer outer-message inner-message)884
(de recursive-edit (new-buffer mode inner-message)1860
(de affirmative-exit ()2648
(de negative-exit ()2823

PS:<PSL.NMODE>SCREEN-LAYOUT.SL.0
01973,PSL
(de nmode-initialize-screen-layout ()4426
(de nmode-1-window ()5028
(de nmode-expand-top-window ()5096
(de nmode-expand-bottom-window ()5491
(de nmode-2-windows ()5858
(de nmode-set-window-position (p)6149
(de nmode-exchange-windows ()6375
(de nmode-grow-window (n)6744
(de nmode-expose-output-buffer (b)7204
(de nmode-normal-video ()7529
(de nmode-inverse-video ()7727
(de nmode-invert-video ()7929
(de nmode-use-two-screens ()8106
(de nmode-use-one-screen ()8529
(de one-window-command ()8955
(de two-windows-command ()9185
(de view-two-windows-command ()9479
(de grow-window-command ()9742
(de other-window-command ()9882
(de exchange-windows-command ()10070
(de nmode-select-window (window)10391
(de nmode-switch-windows ()11044
(de nmode-select-major-window ()11240
(de nmode-window-position ()11921
(de nmode-other-window ()12062
(de find-buffer-in-windows (b)12243
(de find-buffer-in-exposed-windows (b)12705
(de buffer-is-displayed? (b)12928
(de nmode-active-windows ()13135
(de nmode-begin-typeout ()13477
(de nmode-end-typeout ()13708
(de nmode-clear-screen ()13968
(de Enter-Raw-Mode ()14260
(de leave-raw-mode ()14807
(de nmode-refresh ()15419
(de nmode-full-refresh ()16062
(de nmode-refresh-one-window (w)16496
(de nmode-refresh-virtual-screen (s)16988
(de nmode-refresh-windows ()17565
(de nmode-refresh-window (w)18040
(de nmode-refresh-screen (s)18559
(de nmode-establish-video-polarity ()18844
(de ensure-terminal-type (type)19426
(de ensure-other-terminal-type (type)19712
(de nmode-new-terminal ()20015
(de nmode-create-screen (height width row-origin column-origin)22284
(de nmode-set-window-sizes ()22478
(de nmode-position-window (w height origin)23485
(de nmode-expose-both-windows ()23734
(de nmode-fixup-windows ()23968
(de nmode-create-top-window ()24588
(de nmode-create-bottom-window ()25228

PS:<PSL.NMODE>SEARCH.SL.0
00446,PSL
(de forward-string-search ()1009
(de reverse-string-search ()1458
(de buffer-search (pattern dir)1852
(de forward-search (pattern)2325
(de forward-search-in-string (string pattern)3069
(de forward-search-on-line (line-pos char-pos pattern)3589
(de reverse-search (pattern)4337
(de reverse-search-on-line (line-pos char-pos pattern)5056
(de pattern-matches-in-line (pattern line pos)5847

PS:<PSL.NMODE>SET-TERMINAL-20.SL.0
00258,PSL
(de nmode-default-terminal ()760
(de nmode-set-terminal ()818
(de ensure-terminal-type (type)1205
(de hp2648a () (ensure-terminal-type 'hp2648a))1470
(de vt52x () (ensure-terminal-type 'vt52x))1515

PS:<PSL.NMODE>SET-TERMINAL-9836.SL.0
00199,PSL
(de nmode-default-terminal ()717
(de nmode-set-terminal ()775
(de ensure-terminal-type (type)943
(de ensure-other-terminal-type (type)1150

PS:<PSL.NMODE>SOFTKEYS.SL.0
00369,PSL
(de nmode-define-softkey (n fcn label-string)1854
(de valid-softkey-number? (n)2549
(de softkey-char-to-number (ch)2663
(de softkey-number-to-char (n)2724
(de nmode-execute-softkey (n)2771
(de execute-softkey-command (n)3252
(de nmode-setup-softkey-label-screen (sps)3462
(de nmode-write-softkey-label (n)4660

PS:<PSL.NMODE>STRUCTURE-FUNCTIONS.SL.0
00723,PSL
(de move-forward-form ()1277
(de move-backward-form ()2174
(de move-backward-form-interruptible ()3146
(de move-backward-form-within-line ()3841
(de move-forward-item ()4773
(de move-backward-item ()5165
(de move-backward-item-within-line ()5752
(de move-forward-up-list ()6374
(de move-backward-up-list ()6713
(de move-forward-list ()7250
(de move-backward-list ()7652
(de display-matching-opener ()8262
(de unsafe-display-matching-opener ()8674
(de reverse-scan-for-left-paren (depth)9262
(de forward-scan-for-right-paren (depth)9874
(de move-forward-down-list ()10668
(de move-backward-down-list ()10946
(de skip-prefixes ()11305

PS:<PSL.NMODE>TERMINAL-INPUT.SL.0
00754,PSL
(de nmode-set-immediate-prompt (prompt-string)3139
(de nmode-set-delayed-prompt (prompt-string)3652
(de nmode-append-delayed-prompt (prompt-string)4195
(de nmode-append-separated-prompt (prompt-string)4799
(de nmode-complete-prompt (prompt-string)5197
(de input-available? ()5740
(de input-direct-terminal-character ()6081
(de &input-character-from-buffer ()6687
(de &input-character-from-string ()7237
(de &input-character-from-terminal ()7808
(de pause-until-terminal-input ()8471
(de sleep-until-timeout-or-input (n-60ths)8674
(de nmode-script-terminal-input (b)8846
(de nmode-execute-buffer (b)9494
(de nmode-execute-string (s)9817
(de nmode-script-character (ch)10132

PS:<PSL.NMODE>TEXT-BUFFER.SL.0
03311,PSL
(de create-text-buffer (name) % not for direct use in NMODE1447
(defflavor text-buffer (1548
(defmacro with-current-line ((var) . forms)2554
(defmacro with-current-line-copied ((var) . forms)2679
(defmethod (text-buffer position) ()3033
(defmethod (text-buffer set-position) (bp)3210
(defmethod (text-buffer buffer-end-position) ()3478
(defmethod (text-buffer goto) (lpos cpos)3704
(defmethod (text-buffer set-line-pos) (lpos)3992
(defmethod (text-buffer set-char-pos) (cpos)4406
(defmethod (text-buffer clip-position) (bp)4754
(defmethod (text-buffer size) ()5404
(defmethod (text-buffer visible-size) ()5633
(defmethod (text-buffer contents) ()6011
(defmethod (text-buffer current-line) ()6239
(defmethod (text-buffer fetch-line) (n)6361
(defmethod (text-buffer store-line) (n new-line)6648
(defmethod (text-buffer select) ()7069
(defmethod (text-buffer set-mark) (bp)7216
(defmethod (text-buffer set-mark-from-point) ()7428
(defmethod (text-buffer mark) ()7661
(defmethod (text-buffer previous-mark) ()7770
(defmethod (text-buffer get) (property-name)7967
(defmethod (text-buffer put) (property-name property)8236
(defmethod (text-buffer reset) ()8588
(defmethod (text-buffer extract-region) (delete-it bp1 bp2)8869
(defmethod (text-buffer current-line-length) ()11285
(defmethod (text-buffer current-line-empty?) ()11445
(defmethod (text-buffer current-line-blank?) ()11605
(defmethod (text-buffer at-line-start?) ()11855
(defmethod (text-buffer at-line-end?) ()11987
(defmethod (text-buffer at-buffer-start?) ()12171
(defmethod (text-buffer at-buffer-end?) ()12320
(defmethod (text-buffer current-line-is-first?) ()12544
(defmethod (text-buffer current-line-is-last?) ()12683
(defmethod (text-buffer current-line-fetch) (n)12828
(defmethod (text-buffer current-line-store) (n c)13226
(defmethod (text-buffer move-to-buffer-start) ()13696
(defmethod (text-buffer move-to-buffer-end) ()13835
(defmethod (text-buffer move-to-start-of-line) ()14024
(defmethod (text-buffer move-to-end-of-line) ()14145
(defmethod (text-buffer move-to-next-line) ()14303
(defmethod (text-buffer move-to-previous-line) ()14591
(defmethod (text-buffer move-forward) ()14835
(defmethod (text-buffer move-backward) ()15095
(defmethod (text-buffer next-character) ()15425
(defmethod (text-buffer previous-character) ()15752
(defmethod (text-buffer insert-character) (c)16048
(defmethod (text-buffer insert-eol) ()16895
(defmethod (text-buffer insert-line) (l)17721
(defmethod (text-buffer insert-string) (s)18070
(defmethod (text-buffer insert-text) (v)19024
(defmethod (text-buffer delete-next-character) ()19983
(defmethod (text-buffer delete-previous-character) ()20645
(defmethod (text-buffer read-from-stream) (s)20942
(defmethod (text-buffer read-from-stream-using-getl) (s)21218
(defmethod (text-buffer read-from-stream-using-getc) (s)21671
(defmethod (text-buffer write-to-stream) (s)22575
(defmethod (text-buffer cleanup) ()22837
(defmethod (text-buffer init) (init-plist)23170
(defmethod (text-buffer &insert-gap) (lpos n-lines)23383
(defmethod (text-buffer &ensure-room) (lines-needed)23975
(defmethod (text-buffer &delete-lines) (lpos n-lines)24729

PS:<PSL.NMODE>TEXT-COMMANDS.SL.0
01393,PSL
(de text-justifier-command? ()2542
(de valid-sentence-end? ()2957
(de move-to-end-of-last-sentence ()3310
(de start-of-last-sentence ()4015
(de end-of-next-sentence ()4873
(de forward-one-sentence ()5651
(de backward-one-sentence ()6290
(de forward-sentence-command ()6851
(de backward-sentence-command ()7452
(de kill-sentence-command ()8049
(de backward-kill-sentence-command ()8484
(de rest-of-current-line-blank? () 9140
(de mismatched-prefix? ()9499
(de pseudo-blank-line? ()10217
(de pseudo-indented-line? ()10902
(de start-line-paragraph? ()11416
(de end-line-paragraph? ()11913
(de forward-one-paragraph ()12503
(de forward-paragraph-command ()13159
(de backward-one-paragraph ()13763
(de backward-paragraph-command ()14525
(de paragraph-limits ()15123
(de mark-paragraph-command ()15811
(de next-char-list (end char-count init-pos)16339
(de justify (input desired-length)19544
(de position-adjusted-for-prefix (position)20760
(de remove-prefix-from-region (start end)21380
(de fill-directed-region (start end init-pos)22064
(de clip-region (limits region)25416
(de fill-region-command ()26425
(de fill-paragraph-command ()27722
(de fill-comment-command ()28202
(de center-current-line ()29516
(de center-line-command ()30056
(de what-cursor-position-command ()30609

PS:<PSL.NMODE>WINDOW.SL.0
00778,PSL
(de current-window-height ()925
(de current-window-top-line ()1068
(de current-window-set-top-line (new-top-line)1238
(de scroll-window-according-to-command (w)1615
(de scroll-window-by-lines (w n)2167
(de scroll-window-by-pages (w n)3169
(de scroll-window-horizontally (w n)4388
(de next-screen-command ()4878
(de previous-screen-command ()4978
(de scroll-other-window-command ()5144
(de scroll-window-up-line-command ()5305
(de scroll-window-down-line-command ()5424
(de scroll-window-up-page-command ()5545
(de scroll-window-down-page-command ()5664
(de scroll-window-right-command ()5783
(de scroll-window-left-command ()5901
(de nmode-adjust-window (w)6212
(de move-to-screen-edge-command ()6330

PS:<PSL.NMODE>WINDOW-LABEL.SL.0
00444,PSL
(de create-window-label (w)903
(defflavor window-label1082
(defmethod (window-label refresh) ()3304
(defmethod (window-label resize) ()4230
(defmethod (window-label init) (init-plist)4777
(defmethod (window-label &rewrite) ()4843
(defmethod (window-label &write-string) (string)8287
(defmethod (window-label &write-char) (ch)8480
(defmethod (window-label &advance-pos) (col)8592

PS:<PSL.NMODE.EXT>EXTENDED-INPUT.SL.0
00304,PSL
(de nmode-initialize-extended-input ()1285
(de input-extended-character ()1969
(de push-back-extended-character (ch)2177
(de input-direct-extended-character ()2263
(de push-back-input-character (ch)3121
(de input-terminal-character ()3195

PS:<PSL.NMODE.EXT>LISP-INTERFACE.SL.0
00732,PSL
(de yank-last-output-command ()1854
(de execute-form-command ()2389
(de execute-defun-command ()2603
(de make-buffer-terminated ()2918
(de execute-from-buffer ()3208
(de nmode-exit-to-superior ()4248
(de emode () (nmode)) % for user convenience4761
(de nmode ()4777
(de nmode-run-init-file ()5292
(de nmode-execute-init-file (fn)5573
(de nmode-read-and-evaluate-file (fn)5695
(de exit-nmode ()5872
(de nmode-invoke-lisp-listener ()6229
(de nmode-select-old-channels ()6817
(de nmode-select-buffer-channel ()7411
(de nmode-select-buffer-input-channel ()7658
(de nmode-channel-editor (chn)8068
(de nmode-main ()9269
(de nmode-top-loop ()10600

PS:<PSL.NONKERNEL>CHAR-MACRO.SL.0
00140,PSL
(dm Char (U)		%. Character constant macro474
(de DoChar (u)550
(de CharError (u)1329

PS:<PSL.SCRATCH>BROWSER-BROWSER.SL.0
01393,PSL
(de browser-browser-command ()3014
(de create-browser-browser ()3231
(de browser-browser-update (browser)3919
(de browser-browser-browse-command ()5038
(de browser-browser-name-sorter (b1 b2)5475
(de create-browser-browser-item (b)5832
(defflavor browser-browser-item5929
(defmethod (browser-browser-item init) (init-plist)6096
(defmethod (browser-browser-item &update-display-text) ()6196
(defmethod (browser-browser-item update) ()6561
(defmethod (browser-browser-item kill) ()6695
(defmethod (browser-browser-item view-buffer) (x)6779
(defmethod (browser-browser-item cleanup) ()6869
(defmethod (browser-browser-item apply-filter) (filter)6933
(de define-browser-prototype (create-function display-text documentation-text)7265
(de create-browser-browser-prototype-item (create-fcn display-text doc-text)7576
(defflavor browser-browser-prototype-item7774
(defmethod (browser-browser-prototype-item init) (init-plist)8068
(defmethod (browser-browser-prototype-item update) ()8575
(defmethod (browser-browser-prototype-item kill) ()8640
(defmethod (browser-browser-prototype-item view-buffer) (x)8715
(defmethod (browser-browser-prototype-item cleanup) ()8802
(defmethod (browser-browser-prototype-item apply-filter) (filter)8876
(defmethod (browser-browser-prototype-item instantiate) ()8948

PS:<PSL.SCRATCH>DIRED.SL.0
01825,PSL
(de dired-command ()4859
(de edit-directory-command ()5358
(de directory-editor (directory-name)5785
(de create-file-browser (directory-name)6584
(de dired-create-items (file-list display-width)7046
(de dired-exit ()7973
(de dired-browse-command ()8400
(de dired-create-command ()8656
(de dired-look-command ()9823
(de dired-filter-command ()10219
(de dired-filter-dispatch ()10347
(de dired-filter-compose (flag)10675
(de dired-reverse-sort ()11015
(de dired-reverse-sort-dispatch ()11142
(de dired-sort ()11702
(de dired-sort-dispatch ()11805
(de dired-string-filter-predicate (file-browser-item)12520
(de dired-determine-actions (b)12778
(de dired-present-actions (action-list)13347
(de get-upchar ()13996
(de dired-present-list (list prompt)14318
(de dired-perform-actions (action-list)14624
(de dired-filename-sorter (f1 f2)15133
(de dired-filename-reverser (f1 f2)15351
(de dired-size-sorter (f1 f2)15424
(de dired-size-reverser (f1 f2)15608
(de dired-write-sorter (f1 f2)15791
(de dired-write-reverser (f1 f2)15992
(de dired-read-sorter (f1 f2)16193
(de dired-read-reverser (f1 f2)16391
(de create-file-browser-item (width full-name nice-name deleted? size16857
(defflavor file-browser-item17129
(defmethod (file-browser-item init) (init-plist)17878
(defmethod (file-browser-item update) ()18556
(defmethod (file-browser-item delete) ()18660
(defmethod (file-browser-item undelete) ()18857
(defmethod (file-browser-item deleted?) ()19054
(defmethod (file-browser-item kill) ()19116
(defmethod (file-browser-item view-buffer) (x)19287
(defmethod (file-browser-item cleanup) ()19445
(defmethod (file-browser-item apply-filter) (filter)19743
(defmethod (file-browser-item action-wanted) ()19829

PS:<PSL.SCRATCH>EXTENDED-INPUT.SL.0
00302,PSL
(de nmode-initialize-extended-input ()1285
(de input-extended-character ()1969
(de push-back-extended-character (ch)2177
(de input-direct-extended-character ()2263
(de push-back-input-character (ch)3121
(de input-terminal-character ()3195

PS:<PSL.SCRATCH>INCR.SL.0
00912,PSL
(de incremental-search-command () (incr-search 1))1194
(de reverse-search-command () (incr-search -1))1245
(defflavor search-state1465
(defmethod (search-state push) ()2232
(defmethod (search-state pop) ()2518
(defmethod (search-state do-search) (next-command)3615
(defmethod (search-state actual-search) ()4813
(defmethod (search-state super-pop) ()5970
(defmethod (search-state init) () 6338
(defmethod (search-state prompt) ()6416
(defflavor parsed-char6486
(defmethod (parsed-char parse-next-character) ()7055
(de incr-search (direct)8019
(de continue (search-state parsed-char)8634
(de update-message (text found direct)9015
(de move-over-text (text)9653
(de trim-text (old-text)10039
(de new-text (old-text char)10677
(de text2list (text)11188
(de buffer-text-search? (text direct)11745
(de match-rest-of-text? (text)12473

PS:<PSL.SCRATCH>NMODE-VAX.SL.0
00432,PSL
(de load-nmode ()2012
(de nmode-set-terminal ()2687
(de hp2648a () (ensure-terminal-type 'hp2648a))3228
(de vt52x () (ensure-terminal-type 'vt52x))3273
(de vax-actualize-file-name (file-name)3509
(de nmode-load-required-modules ()4074
(de nmode-fixup-name (s) s)4458
(de nmode-load-all ()4483
(de nmode-load (s)4575
(de nmode-faslin (directory-name module-name)4669

PS:<PSL.SCRATCH>TEXT-COMMANDS.SL.0
01395,PSL
(de text-justifier-command? ()2684
(de valid-sentence-end? ()3099
(de move-to-end-of-last-sentence ()3452
(de start-of-last-sentence ()4157
(de end-of-next-sentence ()5015
(de forward-one-sentence ()5793
(de backward-one-sentence ()6432
(de forward-sentence-command ()6993
(de backward-sentence-command ()7594
(de kill-sentence-command ()8191
(de backward-kill-sentence-command ()8626
(de rest-of-current-line-blank? () 9282
(de mismatched-prefix? ()9641
(de pseudo-blank-line? ()10359
(de pseudo-indented-line? ()11044
(de start-line-paragraph? ()11558
(de end-line-paragraph? ()12055
(de forward-one-paragraph ()12645
(de forward-paragraph-command ()13301
(de backward-one-paragraph ()13905
(de backward-paragraph-command ()14667
(de paragraph-limits ()15265
(de mark-paragraph-command ()15953
(de next-char-list (end char-count init-pos)16481
(de justify (input desired-length)19686
(de position-adjusted-for-prefix (position)20902
(de remove-prefix-from-region (start end)21522
(de fill-directed-region (start end init-pos)22670
(de clip-region (limits region)26022
(de fill-region-command ()27031
(de fill-paragraph-command ()28328
(de fill-comment-command ()28808
(de center-current-line ()30122
(de center-line-command ()30662
(de what-cursor-position-command ()31215

PS:<PSL.TESTS>IREWRITE.SL.0
00595,PSL
(DE ADD-LEMMA (TERM)341
(DE ADD-LEMMA-LST (LST)638
(DE APPLY-SUBST (ALIST TERM)790
(DE APPLY-SUBST-LST (ALIST LST)1073
(DE FALSEP (X LST)1222
(DE ONE-WAY-UNIFY (TERM1 TERM2)1301
(DE ONE-WAY-UNIFY1 (TERM1 TERM2)1433
(DE ONE-WAY-UNIFY1-LST (LST1 LST2)1853
(DE PTIME NIL2036
(DE REWRITE (TERM)2163
(DE REWRITE-WITH-LEMMAS (TERM LST)2398
(DE SETUP NIL2609
(DE TAUTOLOGYP (X TRUE-LST FALSE-LST)11298
(DE TAUTP (X)11882
(DE TEST NIL11941
(DE TRANS-OF-IMPLIES (N)12656
(DE TRANS-OF-IMPLIES1 (N)12767
(DE TRUEP (X LST)12961

PS:<PSL.TESTS>NEW-TIME-PSL.SL.0
00112,PSL
(de test(x y)109
(de rtest(x y)230
(de printcases (fil)286

PS:<PSL.TESTS>OLD-TIME-PSL.SL.0
00047,PSL

PS:<PSL.TESTS>P-LAMBIND.SL.0
00134,PSL
(de *lambind (regs fluids)503
(de *progbind (fluids)1417
(de *freerstr (fluids)1717

PS:<PSL.TESTS>PSL-TIMER.SL.0
01011,PSL
(defun time () (* (car (ptime)) 17))557
(defun reclaim () (gc))582
(de TestSetup ()656
(de MakeLongList ()839
(de PrepareTest (n)1103
(de Cdr1Test (N)1280
(de Cdr2Test (N)1499
(de CddrTest (N)1718
(de ListOnlyCdrTest1 ()1945
(de ListOnlyCddrTest1 ()2213
(de ListOnlyCdrTest2 ()2484
(de ListOnlyCddrTest2 ()2752
(de EmptyTest (N)3017
(de SlowEmptyTest (N)3159
(de ReverseTest (N)3297
(de MyReverse1Test (N)3464
(de myreverse1 (L)3630
(de MyReverse2Test (N)3777
(de myreverse2 (L)3943
(de LengthTest (N)4086
(de Fact (N)4242
(de ArithmeticTest (N)4331
(de EvalTest (N)4482
(de TimeEval (Form)4643
(de topleveltak (x y z) (tak x y z))4770
(de tak (x y z)4789
(de toplevelgtak (x y z) (gtak x y z))4945
(de gtak (x y z)4965
(de gtsta (F)5096
(de gtstb (F)5261
(de g0 (X) X) 5422
(de g1 (X) (iadd1 X))5445
(de nreverse (x)5465
(de nreconc (x y)5506
(de nnils (N)5657
(de nils (N)5856
(de nr ()5909

PS:<PSL.TESTS>PSLTEST.SL.0
00316,PSL
(DE MSG(X)           % Prints general message 439
(DE EXPECT(X)        % Prints message about values551
(DE ERRORFN1 (X ERRORVAR3)21083
(DE LISTX (X) (LIST X (QUOTE X)))27284
(DE PRNTX (X) (PRINT (LISTX X)))27318
(DE TESTEACH (LST FN)29802
(DE SASSFN NIL31748

PS:<PSL.TESTS>SIMPLER-TIME.SL.0
00047,PSL

PS:<PSL.TESTS>TAK.SL.0
00099,PSL
(de topleveltak (x y z) (tak x y z))38
(de tak (x y z)57

PS:<PSL.TESTS>TIME-PSL.SL.0
00043,PSL

PS:<PSL.TESTS.20>DEC20-PATCHES.SL.0
00296,PSL
(de MakeLinkRegs(Fn Nargs)596
(de !*Link (FunctionName FunctionType NumberOfArguments)928
(de !*LinkE (DeAllocCount FunctionName FunctionType NumberOfArguments)1297
(de DataPrintUndefinedFunctionCell ()4162
(dm for(u) ( MkFor1 u))4447

PS:<PSL.TRASH>CHAR-MACRO.SL.0
00136,PSL
(dm Char (U)		%. Character constant macro474
(de DoChar (u)550
(de CharError (u)1363

PS:<PSL.TRASH>DIRECTORY.SL.0
00142,PSL
(de find-matching-files (filename include-deleted-files)426
(de fixup-directory-name (pn)1193

PS:<PSL.UTAH>GSORT.SL.0
00365,PSL
(ds swap-items (U V)721
(ds leq-function (X Y)1065
(ds greaterp-function (X Y)1204
(de Gsort (table leq-function)1546
(de GmergeSort (table leq-function)2126
(de merge-sort-list (lst leq-function)2843
(de split-list (lst leq-function)3958
(de Gmerge_lists (lst1 lst2 leq-function)4685
(de IdSort (table)5881

PS:<PSL.UTIL>ADDR2ID.SL.0
00089,PSL
(de code-address-to-symbol (code-address*)450

PS:<PSL.UTIL>ASSOCIATION.SL.0
00259,PSL
(defun association-create ()369
(defun association-bind (alist indicator value)514
(defun association-lookup (alist indicator)920
(defmacro map-over-association ((alist indicator-var value-var) . body)1210

PS:<PSL.UTIL>BACKQUOTE.SL.0
00410,PSL
(dm backquote (u) (backquote-form (cadr u)))686
(de backquote-form (u)712
(de backquote-vector (u)1392
(de backquote-list (u)2074
(de backquote-constantp (u)3251
(de backquote-constant-value (x)3387
(dm quoted-list (u) (mkquote (cdr u)))3712
(dm list* (u) (expand (cdr u) 'cons))3755
(dm quoted-list* (u)3779
(dm unquote (u) (ContinuableError4175

PS:<PSL.UTIL>BIND-MACROS.SL.0
00180,PSL
(defmacro prog1 (first . body)587
(defmacro let (specs . body)716
(defmacro let* (specs . body)1204
(de let*1 (specs body)1391

PS:<PSL.UTIL>CLCOMP1.SL.0
00169,PSL
(defmacro prog2 (first second . others)503
(defun char (s i) (igets s i))610
(defun throw-away-next-form (channel qt)1386

PS:<PSL.UTIL>COMMON.SL.0
01873,PSL
(defmacro cl-alias (sl-name cl-name)1158
(defmacro defvar (name . other)1370
(defun listp (x) (or (null x) (consp x)))1619
(defun functionp (x)1890
(defmacro fsymeval (symbol)2070
(defmacro boundp (name)2259
(defmacro fboundp (name)2315
(defmacro macro-p (x)2369
(defmacro special-form-p (x)2493
(defmacro fset (symbol value)2618
(defmacro makunbound (x)2679
(defmacro fmakunbound (x)2745
(defmacro funcall* (fn . args)2810
(defun expand-funcall* (args)2884
(defmacro progv (symbols values . body)3179
(defmacro dolist (bindspec . progbody)3495
(defmacro dotimes (bindspec . progbody)3895
(defmacro declare forms4443
(defmacro locally forms4477
(defmacro the (type form)4564
(defun samepnamep (x y)4735
(defun plusp (x)4859
(defun oddp (x)4921
(defun evenp (x)4990
(defmacro - args5210
(defmacro / args5394
(defun left-expand (arglist op)5571
(defun left-expand-aux (newform arglist op)5735
(defmacro logior args5989
(defmacro logxor args6045
(defmacro logand args6102
(defun copyseq (seq)6631
(defun endp (x)6686
(defun nthcdr (n l)7415
(defmacro putprop (symbol value indicator)7656
(defmacro defprop (symbol value indicator)7739
(defmacro eval-when (time . forms)7827
(defmacro selectq (on . s-forms)8180
(defun expand-select (s-forms formal)8385
(defmacro comment form8742
(defmacro special args8775
(defmacro unspecial args8825
(defun nthcdr (n l)9012
(defun tree-equal (x y)9112
(defun copylist (x)9286
(defun copyalist (x)9614
(defun revappend (x y)9915
(defun nreconc (x y)10003
(defun butlast (x)10103
(defun butlast-aux (x y)10197
(defun nbutlast (x)10312
(defun buttail (list sublist)10463
(defmacro ouch (char . maybe-channel)10805
(defmacro inch maybe-channel10940
(defmacro uninch (char . maybe-channel)11072

PS:<PSL.UTIL>COND-MACROS.SL.0
00215,PSL
(defmacro if (predicate then . else)327
(defmacro xor (u v) 448
(defmacro when (p . c) `(cond (,p . ,c)))713
(defmacro unless (p . c) `(cond ((not ,p) . ,c)))766

PS:<PSL.UTIL>DESTRUCTURE.SL.0
00297,PSL
(de destructure-form (target path)324
(de flatten (U)671
(de defmacro-1 (U)1055
(de macro-displace (u v)1450
(dm defmacro (u) (defmacro-1 u))1626
(dm defmacro-displace (u)1656
(dm defmacro-no-displace (u)1742
(defmacro desetq (U V)1916

PS:<PSL.UTIL>EXTENDED-CHAR.SL.0
00610,PSL
(ds X-Base (chr)771
(ds X-Zero-Base (chr)928
(ds X-UnMeta (chr)1035
(ds X-UnControl (chr)1135
(ds X-Meta? (chr)1234
(ds X-Control? (chr)1331
(ds X-Set-Meta (chr)1431
(ds X-Set-Control (chr)1512
(de X-UpperCaseP (chr)1656
(de X-LowerCaseP (chr)1773
(de X-Char-DownCase (chr)1832
(de X-Char-UpCase (chr)1956
(dm X-Char (form)2589
(de Create-Extended-Character (L)2669
(de X-char-process-id (id plist)3312
(de X-Char-process-fix (x plist)4184
(dm x-chars (chlist)4607
(de x-char-name (ch)5291
(defmacro m-x (command-string)6008

PS:<PSL.UTIL>FAST-EVECTORS.SL.0
00183,PSL
(de enable-fast-evectors ()821
(de enable-fast-evectors ()1102
(de enable-fast-evectors ()1355
(de disable-fast-evectors ()1542

PS:<PSL.UTIL>FAST-INT.SL.0
00042,PSL

PS:<PSL.UTIL>FAST-STRINGS.SL.0
00046,PSL

PS:<PSL.UTIL>FAST-VECTORS.SL.0
00046,PSL

PS:<PSL.UTIL>FOR-MACRO.SL.0
01041,PSL
(dm for (U) (for-build-loop (cdr U) 'do-loop 'let))695
(defmacro for* U715
(de for-build-loop (U loop-fn let-fn)795
(de process-for-clause (clause)2592
(de for-in-function (clause)2983
(de for-on-function (clause)3512
(de for-from-function (clause)3686
(de for-for-function (clause) (tconc for-vars* clause))4783
(de for-with-function (clause) 4818
(de for-initially-function (clause)4922
(de for-finally-function (clause)5027
(de for-do-function (clause)5127
(de for-collect-function (clause)5229
(de for-conc-function (clause)5680
(de for-join-function (clause)6146
(de for-intersection-function (clause)7290
(de for-intersectionq-function (clause)7728
(de for-always-function (clause)8971
(de for-never-function (clause)9129
(de for-thereis-function (clause)9281
(de for-returns-function (clause)9467
(de for-while-function (clause)9577
(de for-until-function (clause)9675
(de for-when-function (clause)9771
(de for-unless-function (clause)9873

PS:<PSL.UTIL>GRAPH-TREE.SL.0
00119,PSL
(de graph-to-tree (u)94
(de graph-to-tree-1 (u)192
(de cprint (u)827

PS:<PSL.UTIL>HASH.SL.0
00538,PSL
(defmacro funcall (fn . args)3573
(defflavor Hash3654
(defmethod (Hash init) (init-plist)4010
(defmethod (Hash Present?) (key)4321
(defmethod (Hash Lookup) (key)4480
(defmethod (Hash PutAssn) (key value)4689
(defmethod (Hash DeleteAssn) (key)5124
(defmethod (Hash MapAssn) (fn)5463
(defmethod (Hash ReSize) (new-size)5642
(defun Hash$HashBucket (table hashed-key) % Returns index of bucket6188
(defun no-op (x) x)6253
(defun StrHash (S)	 % Compute hash function of string6341

PS:<PSL.UTIL>HCONS.SL.0
00835,PSL
(DefConst hcons-table-size 103)1435
(DE next-table-number (table-number)1957
(DefConst entry-size 4)  % The size of an entry in "heap units"??2523
(DefConst pair-size 2)   % Similarly for pairs.2572
(DS create-hash-entry ()2600
(DS pair-info (ent)2670
(DS prop-list-info (ent)2716
(DS next-entry (ent)2758
(DS hcons-hash-function (htable X Y)2915
(DE move-hcons-table (src-table  dst-table)3410
(DM Hcons (X)4487
(DE Hcons2 (X Y)4672
(DN Hlist (X)7517
(DE do-hlist (X)7554
(DE Hcopy (lst)7795
(DE Happend (U V)7949
(DE Hreverse (U)8144
(DE entry-for-pair (p)8395
(DE extended-get (id-or-pair  indicator)9136
(DE extended-put (id-or-pair indicator val)9741
(DE pair-property-list (p)11007
(DE set-pair-property-list (p val)11254
(DE !%Reclaim ()11706

PS:<PSL.UTIL>HEAP-STATS.SL.0
00267,PSL
(defflavor heap-stats1033
(defmethod (heap-stats init) (init-plist)1357
(defmethod (heap-stats print-stats) (channel)1962
(defun print-histo (template table spacetable channel)2984
(defun collect-stats (file)3915

PS:<PSL.UTIL>HISTORY.SL.0
01185,PSL
(defmacro unreadch (x) `(unreadchar (id2int ,x)))5272
(defmacro last-command () `(caadr historylist*))5322
(defmacro last-answer () `(cdadr historylist*))5371
(defun nth-command (n part) (cond ((eq part 'input) (inp n))5433
(defun my-nthcdr (l n)5480
(defvar *print-history-command-expansion t)5600
(de skip-if (stop-char)5627
(defun return-command (command)5731
(defun do-history-command-and-return-command (string1 c)5894
(defun nth-back-command (n)6071
(defvar *flink (*makhunk 80))6230
(defun kmp-flowchart-construction (p m)6273
(defun kmp-scan (p m s)6495
(defun match-list-beginnings (starting-list list)6820
(defun uppercassify (y)6975
(defun read-till-and-raise (stop-char)7091
(defun do-history-command (string1 command)7295
(defun match-back-command (partial-match /&optional (part-to-return 'input))9600
(defun match-and-substitute (partial-match command replacement)9989
(defun match-and-substitute1 (p m s command replacement l)10312
(defun kmp-scan-and-replace (p m s replacement l command)10646
(defun read-sub-word ()11594
(defun re-execute-command (/&optional (part 'input))11837

PS:<PSL.UTIL>IF.SL.0
00186,PSL
(defun construct-new-if (form)296
(defun next-if-clause (tail)1207
(defun sym= (a b) (eq a b))1389
(defun ldiff (x y)1411
(dm if (form)1702

PS:<PSL.UTIL>INIT-FILE.SL.0
00082,PSL
(de read-init-file (program-name)360

PS:<PSL.UTIL>ITER-MACROS.SL.0
00254,PSL
(defmacro do (iterators result . body)455
(defmacro do* (iterators result . body)1150
(defmacro do-loop (iterators prologue result . body)1856
(defmacro do-loop* (iterators prologue result . body)2582

PS:<PSL.UTIL>KERNEL.SL.0
00382,PSL
(de kernel (kernel-name-list*)1218
(de build-command-files (k-list)1513
(de build-link-script ()2031
(de build-kernel-file (n-list)2407
(de insert-link-file-names ()2797
(de insert-file-names (n-list format)3006
(de insert-file-names-aux (n-list format)3134
(de build-init-file ()3318
(de build-file-aux (n-list format)3494

PS:<PSL.UTIL>MACROEXPAND.SL.0
00275,PSL
(defmacro macroexpand (form . macros)437
(de macroexpand1 (U L)538
(de macroexpand2 (U L)743
(de macroexpand-cond (U L)1415
(de macroexpand-prog (U L)1540
(de macroexpand-random (U L)1647
(de macroexpand-loop ()2030

PS:<PSL.UTIL>MAN.SL.0
00282,PSL
(defun get-index-buffer ()2512
(defun index-browse-command ()2895
(defun get-key (line)5093
(defun get-dot-pos (line start)5666
(defun not-digitp (c)5957
(defun nonblank (c)6001
(defun search-in-string-fn (testfn domain start)6258

PS:<PSL.UTIL>MINI.SL.0
01078,PSL
(DE RUL NIL (AND (PROG (X) (SETQ X (STK!-LENGTH)) G0109 (COND ((OR (AND (80
(DE ALT NIL (AND (SEQ) (FAIL!-NOT (PROGN (AND (EQTOK!-NEXT (QUOTE !/)) (1468
(DE SEQ NIL (AND (REP) (FAIL!-NOT (PROGN (AND (SEQ) (FAIL!-NOT (PUSH (LIST (1642
(DE REP NIL (AND (ONE) (FAIL!-NOT (PROGN (OR (AND (EQTOK!-NEXT (QUOTE ![)) (1793
(DE BLD!-EXPR NIL (PUSH (LIST (QUOTE PROG) (LIST (QUOTE X)) (LIST (QUOTE 2433
(DE ANYKEY NIL (AND (ANYTOK) (FAIL!-NOT (PROGN (ADDKEY (REF 1)) T))))2708
(DE ONE NIL (OR (AND (EQTOK!-NEXT (QUOTE !')) (FAIL!-NOT (AND (ANYKEY) (2784
(DE UNLBLD NIL (OR (AND (EQTOK!-NEXT (QUOTE !()) (FAIL!-NOT (AND (UNLBLD) (4068
(DE EVLBLD NIL (OR (AND (EQTOK!-NEXT (QUOTE !()) (FAIL!-NOT (AND (EVLBLD) (4726
(DE LBLD NIL (OR (AND (EQTOK!-NEXT (QUOTE !#)) (FAIL!-NOT (AND (NUM) (5240
(DE PRUL NIL (AND (PROGN (SETQ INDEXLIST!* NIL) T) (FAIL!-NOT (AND (PAT) (6166
(DE PAT NIL (OR (AND (EQTOK!-NEXT (QUOTE !&)) (FAIL!-NOT (OR (AND (6798
(DE PSIMP NIL (OR (ID) (OR (NUM) (OR (AND (EQTOK!-NEXT (QUOTE !()) (FAIL!-NOT (7864

PS:<PSL.UTIL>MISC-MACROS.SL.0
00489,PSL
(defmacro funcall u `(apply ,(car u) (list ,@(cdr u))))323
(defmacro eqfirst (u v) `(eqcar ,u ,v))392
(defmacro bldid (s . args) `(intern (bldmsg ,s ,@args)))452
(defmacro nary-concat u (expand u 'concat))499
(de stub-print (name arg-names actual-args)817
(defmacro circular-list L1001
(defmacro nothing U nil) % Nary no-op returning nil; args not evaluated.1189
(defmacro make-list (N . rst)1222
(de make-list-1 (N init)1304

PS:<PSL.UTIL>NUMERIC-OPERATORS.SL.0
00892,PSL
(de = (a b) (EqN a b))3084
(de < (a b) (LessP a b))3110
(de > (a b) (GreaterP a b))3139
(de <= (a b) (LEq a b))3164
(de >= (a b) (GEq a b))3189
(defmacro + args3209
(defmacro * args3377
(defmacro - args3547
(defmacro / args3781
(de ~= (a b) (not (EqN a b)))4102
(de fast-plus (a b) (Plus a b))4135
(de fast-times (a b) (Times a b))4170
(de fast-minus (a) (Minus a))4201
(de fast-difference (a b) (Difference a b))4246
(de fast-quotient (a b) (Quotient a b))4287
(de // (a b) (Remainder a b))4318
(de ~ (a) (LNot a))4339
(de & (a b) (LAnd a b))4364
(de | (a b) (LOr a b))4388
(de ^ (a b) (LXor a b))4413
(de << (a b) (LShift a b))4441
(de >> (a b) (LShift a (Minus b)))4477
(de enable-fast-numeric-operators ()4730
(de disable-fast-numeric-operators ()5777
(de for-from-function (clause)6496

PS:<PSL.UTIL>OBJECTS.SL.0
02899,PSL
(defmacro $defflavor-error (format . arguments)4077
(defmacro defflavor (flavor-name variable-list flavor-list . options-list)6040
(defmacro defmethod ((flavor-name method-name) argument-list . body)8635
(defmacro => (object message-name . arguments)9707
(defmacro send (target-form method-form . argument-forms)10162
(defmacro send-if-handles (object message-name . arguments)11648
(defmacro lexpr-send (object message-name . arguments)12268
(defmacro lexpr-send-if-handles (object message-name . arguments)13095
(defmacro lexpr-send-1 (object message-name argument-list)14144
(de ev-send (obj msg arg-list)14733
(defmacro lexpr-send-1-if-handles (object message-name argument-list)15168
(defmacro make-instance (flavor-name . init-plist)15935
(defun instantiate-flavor (flavor-name init-plist)16393
(defun object-type (object)17398
(defun object-get-handler (object message-name)18299
(defun object-get-handler-quietly (object message-name)19019
(de trace-method-lookups ()19521
(de untrace-method-lookups ()19796
(de print-method-lookup-info ()19954
(defmacro declare-flavor (flavor-name . variable-names)22694
(dm undeclare-flavor (form)23164
(defun $object-perform-initialization (object init-plist)26002
(defun $object-lookup-variable-in-list (variable-names name)26946
(defun $substitute-for-symbols (U var-names)27165
(defun $flavor-define-method (flavor-name method-name function-name)27863
(defun $flavor-fetch-method (flavor-name method-name)28117
(defun $create-method-source-code (function-name flavor-name)28382
(defun $defflavor-process-varlist (flavor-name variable-list)28700
(defun $defflavor-build-describe (flavor-name var-names)29675
(defun $defflavor-process-options-list (flavor-name var-names options-list)30145
(defun $defflavor-process-option (flavor-name var-names var-options option)30481
(defun $defflavor-do-gettable-option (flavor-name var-names var-options args)31246
(defun $defflavor-do-settable-option (flavor-name var-names var-options args)31412
(defun $defflavor-do-initable-option (flavor-name var-names var-options args)31578
(defun $defflavor-insert-keyword (flavor-name var-names var-options args key)31744
(defun $defflavor-define-access-function (flavor-name var-name)32279
(defun $defflavor-define-update-function (flavor-name var-name)32401
(defun $defflavor-create-methods (flavor-name var-options)32635
(defun $defflavor-initable-vars (flavor-name var-options)33310
(de $defflavor-function-name (flavor-name method-name)33668
(de $normal-send-expansion (target-form method-form argument-forms)33820
(de $self-send-expansion (method-name argument-forms)34023
(de $direct-send-expansion (target-id method-name argument-forms)34208
(de $traced-object-get-handler (obj method-name)34484
(de $method-info-sortfn (m1 m2)34747

PS:<PSL.UTIL>OLD-PRETTYPRINT.SL.0
00758,PSL
(DE WARNING (X) (ERRORPRINTF "*** %L" X))577
(DE PRETTYPRINT (X) (PROGN (SPRINT X 1) (TERPRI)))698
(DM PP (L)712
(DE EVPP (L)767
(DE PP1 (EXP)831
(DE PP-VAL (ID)975
(DE PP-DEF (ID)1211
(DE PP-DEF-1 (FN NAME TAIL)2022
(DE BROKEN (X) (GET X 'TRACE))2339
(DE GET-GOOD-DEF (X)2363
(DE S2PRINT (S EXP)2580
(DE SPRINT (EXP LEFT-MARGIN)2751
(DE PM-DEF (FORM)6040
(DE CHRCT NIL (DIFFERENCE (MIN 80 (LINELENGTH NIL)) (POSN)))6154
(DE SPACES-LEFT NIL (SUB1 (CHRCT)))6193
(DE SAFE-PPOS (N SIZE)6219
(DE PPFLATSIZE (EXP) (DIFFERENCE (FLATSIZE EXP) (PP-SAVINGS EXP)))6505
(DE PP-SAVINGS (Y)6527
(DE POSN1 NIL (ADD1 (POSN)))6883
(DE POSN2 NIL (PLUS 2 (POSN)))6917
(DE PPOS (N)6933

PS:<PSL.UTIL>PARSE-COMMAND-STRING.SL.0
00088,PSL
(de parse-command-string (s)396

PS:<PSL.UTIL>PATHIN.SL.0
00127,PSL
(de pathin (filename-tail)1185
(de pathin-aux (filename-tail search-path-list)1275

PS:<PSL.UTIL>PATHNAMEX.SL.0
00265,PSL
(de maybe-pathname (x)540
(de pathname-without-name (pn)738
(de pathname-without-type (pn)990
(de pathname-without-version (pn)1267
(de pathname-set-default-type (pn typ)1570
(de pathname-set-type (pn typ)1953

PS:<PSL.UTIL>PP.SL.0
02047,PSL
(DE WARNING (X) (ERRORPRINTF "*** %L" X))3284
(DE PRETTYPRINT (X) (PROGN (SPRINT X (posn)) (TERPRI)))3410
(DM PP (L)3424
(DE EVPP (L)3479
(DE PP1 (EXP)3543
(DE PP-VAL (ID)3708
(DE PP-DEF (ID)3895
(DE PP-DEF-1 (FN NAME TAIL)5017
(DE BROKEN (X) (GET X 'TRACE))5110
(DE GET-GOOD-DEF (X)5134
(DE S2PRINT (S EXP)5372
(de make-room-for (left-margin size flag)5557
(de is-read-macrop (exp)5745
(de read-macro-internal-sprint (read-macro-c a lm1)5911
(de sprint-read-macro (exp left-margin)6154
(de handle-read-macros (exp left-margin)6304
(dm define-special-sprint-list-structure (x)6674
(de handle-special-list-structures (exp left-margin)6940
(de handle-special-list-structures-in-cdr-slot (exp left-margin)7485
(de sprint-cond-test (exp)9000
(de sprint-cond (exp left-margin)9091
(de sprint-defun-test (exp)9269
(de sprint-defun (exp left-margin)9362
(defun sprint-rest-of-vertical-list (list left-margin)9709
(de special-sprint-lambda-expression (exp left-margin)10248
(de sprint-prog-test (exp)10471
(de sprint-prog (exp left-margin)10563
(de sprint-let-test (exp)10872
(de sprint-let (exp left-margin)10963
(de sprint-do-test (exp)11291
(de sprint-do (exp left-margin)11484
(de sprint-rest-of-prog-vertical-list (exp a b)11927
(de sprint-lambda-test (exp)12448
(de sprint-lambda (exp left-margin)12533
(de depth-greater-than-n (l n)12783
(de sprint-dtpr2 (exp left-margin)13027
(de sprint-dtpr (exp left-margin)15019
(de sprint-vector (vector left-margin)15393
(de check-if-room-for-and-back-indent (a lm)16549
(de internal-sprint (a lm)17070
(de sprint (exp left-margin)17975
(DE PM-DEF (FORM)18415
(DE CHRCT NIL (DIFFERENCE (MIN 80 (LINELENGTH NIL)) (POSN)))18529
(DE SPACES-LEFT NIL (SUB1 (CHRCT)))18568
(DE SAFE-PPOS (N SIZE)18594
(DE POSN1 NIL (ADD1 (POSN)))18842
(DE POSN2 NIL (PLUS 2 (POSN)))18876
(DE PPOS (N)18892
(de nflatsize (n) (nflatsize1 n sprint-level))19088
(de nflatsize1 (n currentlevel)19123

PS:<PSL.UTIL>PR-DEMO.SL.0
00041,PSL

PS:<PSL.UTIL>PR2D-DEMO.SL.0
00043,PSL

PS:<PSL.UTIL>PROGRAM-COMMAND-INTERPRETER.SL.0
00205,PSL
(de main ()1222
(de perform-program-command (c-list)1565
(de compile-program-command (c-list)1965
(de compile-file (file-name-root)2405

PS:<PSL.UTIL>PSL-INPUT-STREAM.SL.0
01018,PSL
(de attempt-to-open-input (file-name)1646
(de open-input (file-name)1775
(defflavor input-stream ((chn NIL)	% PSL "channel"1909
(defmethod (input-stream getc) ()2171
(defmethod (input-stream getc-image) ()2553
(defmethod (input-stream empty?) ()2611
(defmethod (input-stream peekc) ()2682
(defmethod (input-stream peekc-image) ()2946
(defmethod (input-stream getl) ()3003
(defmethod (input-stream tell-position) ()3427
(defmethod (input-stream seek-position) (p)3486
(defmethod (input-stream open) (name-of-file)3539
(defmethod (input-stream close) ()3843
(defmethod (input-stream read-date) ()3966
(defmethod (input-stream write-date) ()4015
(defmethod (input-stream delete-file) ()4065
(defmethod (input-stream undelete-file) ()4116
(defmethod (input-stream delete-and-expunge-file) ()4177
(defmethod (input-stream author) ()4221
(defmethod (input-stream original-author) ()4276
(defmethod (input-stream file-length) ()4327

PS:<PSL.UTIL>PSL-OUTPUT-STREAM.SL.0
00687,PSL
(de attempt-to-open-output (file-name)461
(de attempt-to-open-append (file-name)603
(de open-output (file-name)734
(de open-append (file-name)846
(defflavor output-stream ((chn NIL)	% PSL "channel"989
(defmethod (output-stream putc) (ch)1133
(defmethod (output-stream put-newline) ()1338
(defmethod (output-stream putc-image) (ch)1452
(defmethod (output-stream puts) (str)1527
(defmethod (output-stream putl) (str)1672
(defmethod (output-stream open) (name-of-file)1838
(defmethod (output-stream open-append) (name-of-file)2140
(defmethod (output-stream close) ()2211
(defmethod (output-stream flush) ()2308

PS:<PSL.UTIL>PSLCOMP-MAIN.SL.0
00225,PSL
(de main ()1619
(de pslcomp ()	% Not in use. /csp1924
  (de evin (x)2051
(de compile-files (c-list)2139
(de attempt-to-compile-file (fn)2407
(de compile-file (fn)2642

PS:<PSL.UTIL>READ-MACROS.SL.0
00474,PSL
(de backquote-read-macro (channel qt)840
(de unquote-read-macro (channel qt)937
(de unquotel-read-macro (channel qt)1033
(de unquoted-read-macro (channel qt)1130
(de function-read-macro (channel qt)2080
(de eval-read-macro (channel qt)2169
(de if-system-read-macro (channel qt)2365
(de if-not-system-read-macro (channel qt)2643
(de single-char-read-macro (channel qt)3752
(de char-read-macro (channel qt)4142

PS:<PSL.UTIL>RING-BUFFER.SL.0
00568,PSL
(de ring-buffer-create (maximum-size)553
(defflavor ring-buffer ((maximum-size 16)	% Maximum number of elements.688
(defmethod (ring-buffer init) (init-plist)972
(defmethod (ring-buffer push) (new-element)1062
(defmethod (ring-buffer top) ()1356
(defmethod (ring-buffer pop) ()1454
(defmethod (ring-buffer fetch) (index)1710
(defmethod (ring-buffer rotate) (count)2015
(de ring-buffer-mod (a b)2257
(de ring-buffer-push (rb new-element)2460
(de ring-buffer-top (rb)2517
(de ring-buffer-pop (rb)2561

PS:<PSL.UTIL>RLISPCOMP.SL.0
00164,PSL
(de rlispcomp ()729
(de compile-files (c-list)904
(de attempt-to-compile-file (fn)1153
(de compile-file (fn)1415

PS:<PSL.UTIL>SET-MACROS.SL.0
00808,PSL
(defmacro setf u908
(de setf1 (u)1102
(de setf2 (lhs rhs)1282
(de expand-setf (lhs rhs)1613
(de expand-pnth-setf (lhs rhs)4040
(de flag-setf (nam flg val)4514
(de getd-setf (trgt src)4626
(de list-setf (lhs rhs)5024
(de cons-setf (lhs rhs)5255
(de vector-setf (lhs rhs)5584
(defmacro push (item stack) `(setf ,stack (cons ,item ,stack)))5932
(defmacro pop (stack . rst)5963
(defmacro adjoin-to (e s) `(setf ,s (adjoin ,e ,s)))6122
(defmacro adjoinq-to (e s) `(setf ,s (adjoinq ,e ,s)))6180
(defmacro incr (var . rst)6210
(defmacro decr (var . rst)6299
(defmacro clear L6392
(defmacro psetq rst6493
(defmacro psetf rst6903
(defmacro defswitch (nam var . acts)7234
       (de ,nam () (let ((,nam ,var)) ,read-act) ,var)7507

PS:<PSL.UTIL>SLOW-STRINGS.SL.0
00192,PSL
(de string-fetch (s i)607
(de string-store (s i c)772
(de string-length (s)994
(de string-upper-bound (s)1117
(de string-empty? (s)1230

PS:<PSL.UTIL>SLOW-VECTORS.SL.0
00190,PSL
(de vector-fetch (v i)604
(de vector-store (v i x)769
(de vector-size (v)934
(de vector-upper-bound (v)1055
(de vector-empty? (v)1168

PS:<PSL.UTIL>STRING-INPUT.SL.0
00296,PSL
(defun with-input-from-string (str fn)722
(defun with-input-from-terminated-string (str fn)1261
(defun string-read (str)1805
(defun string-readtoken (str)2076
(defun string-readchar (chan)2275
(defun string-readchar-terminated (chan)2611

PS:<PSL.UTIL>STRING-SEARCH.SL.0
00144,PSL
(defun string-search (target domain)1007
(defun string-search-from (target domain start)1667

PS:<PSL.UTIL>STRINGX.SL.0
00249,PSL
(de string-rest (s i)722
(de string-pad-right (s desired-length)803
(de string-pad-left (s desired-length)1110
(de string-largest-common-prefix (s1 s2)1418
(de strings-largest-common-prefix (l)1717

PS:<PSL.UTIL>TIME-FNC.SL.0
00591,PSL
(defvar *timed-functions* nil)1854
(defvar *all-timed-functions* nil)1890
(defun timef fexpr (names)1920
(defun set-up-time-function (type x old-func)2519
(defvar |* timing time *| 0)2973
(defvar *call-overhead-time* 0.147)3021
(defvar *call-overhead-time* 0.1)3065
(defvar *time-overhead-time* 0.437)3113
(defvar *time-overhead-time* 1.3)3157
(defvar |* number of sub time calls *| 0)3202
(defun time-function (name function-pointer arguments)3260
(defun untimef fexpr (names)4380
(defun print-time-info fexpr (names)4677

PS:<PSL.UTIL>UTIL.SL.0
00243,PSL
(defun integer$parse (str)343
(defun integer$unparse (num)1125
(defun integer-base$parse (base str)1571
(defun integer-base$unparse (base num)2414
(defun LoadSoftKey (key mode command label)2869

PS:<PSL.UTIL.20>BUG.SL.0
00059,PSL
(defun bug ()546

PS:<PSL.UTIL.20>DIRECTORY.SL.0
00144,PSL
(de find-matching-files (filename include-deleted-files)570
(de fixup-directory-name (pn)2358

PS:<PSL.UTIL.20>FILE-PRIMITIVES.SL.0
00546,PSL
(de file-deleted-status (file-name)857
(de file-delete (file-name)1464
(de file-delete-and-expunge (file-name)2026
(de file-undelete (file-name)2615
(de file-read-date (file-name)3225
(de file-write-date (file-name)3684
(de file-byte-count (file-name)4147
(de file-page-count (file-name)4638
(de file-original-author (file-name)5133
(de file-author (file-name)5557
(de file-date-to-string (fdate)6172
(de fixup-file-name (name)6536
(de trim-filename-to-prefix (s)6944

PS:<PSL.UTIL.20>FILE-SUPPORT.SL.0
00464,PSL
(de jfn-truename (jfn)805
(de jfn-deleted? (jfn)991
(de jfn-write-date (jfn)1127
(de jfn-read-date (jfn)1232
(de jfn-byte-count (jfn)1338
(de jfn-page-count (jfn)1444
(de jfn-original-author (jfn)1569
(de jfn-author (jfn)1749
(de jfn-delete (jfn)1929
(de jfn-delete-and-expunge (jfn)2037
(de jfn-undelete (jfn)2164
(de jfn-release (jfn)2281
(de attempt-to-get-jfn (file-name the-bits)2585

PS:<PSL.UTIL.20>GET-COMMAND-ARGS.SL.0
00082,PSL
(de get-command-args ()575

PS:<PSL.UTIL.20>GET-COMMAND-STRING.SL.0
00185,PSL
(de char-blank? (ch)520
(de get-command-string ()626
(de dec20-get-command-string ()736
(de dec20-read-process-arg ()1818

PS:<PSL.UTIL.20>GET-HEAP-BOUNDS.SL.0
00128,PSL
(de get-heap-bounds ()555
(de heaplast ()645
(de heaplowerbound ()828

PS:<PSL.UTIL.20>HOMEDIR.SL.0
00215,PSL
(de init-file-string (program-name)592
(lap '((*entry user-homedir-string expr 0)798
(de user-homedir-string-aux (p)1056
(lap '((*entry get-dir-string expr 2)1162

PS:<PSL.UTIL.20>INPUT-STREAM.SL.0
01816,PSL
(de attempt-to-open-input (file-name)2464
(de open-input (file-name)2593
(DefConst FILE-BUFFER-SIZE #.(* 5 512))2716
(defflavor input-stream ((jfn NIL)	% TOPS-20 file number2776
(defmethod (input-stream getc) ()3742
(defmethod (input-stream &getc-after-CR) () % Internal method.4460
(defmethod (input-stream &fill-buffer-and-getc) () % Internal method.4794
(defmethod (input-stream getc-image) ()4885
(defmethod (input-stream &fill-buffer-and-getc-image) () % Internal method.5260
(defmethod (input-stream empty?) ()5353
(defmethod (input-stream peekc) ()5424
(defmethod (input-stream &fill-buffer-and-peekc) () % Internal method.5883
(defmethod (input-stream peekc-image) ()5976
(defmethod (input-stream &fill-buffer-and-peekc-image) () % Internal method.6289
(defmethod (input-stream &peek2) () % Internal method.6402
(defmethod (input-stream &fill-buffer) () % Internal method.7039
(defmethod (input-stream getl) ()7359
(defmethod (input-stream tell-position) ()8510
(defmethod (input-stream seek-position) (p)9126
(defmethod (input-stream open) (name-of-file)9484
(defmethod (input-stream close) ()10218
(defmethod (input-stream read-date) ()10402
(defmethod (input-stream write-date) ()10469
(defmethod (input-stream delete-file) ()10538
(defmethod (input-stream undelete-file) ()10605
(defmethod (input-stream delete-and-expunge-file) ()10684
(defmethod (input-stream author) ()10756
(defmethod (input-stream original-author) ()10825
(defmethod (input-stream file-length) ()10899
(de test-buffered-input (name-of-file)11172
(de time-buffered-input (name-of-file)11372
(de time-buffered-input-1 (name-of-file)11577
(de time-standard-input (name-of-file)11770
(de time-input (name-of-file)11985

PS:<PSL.UTIL.20>OUTPUT-STREAM.SL.0
01046,PSL
(de attempt-to-open-output (file-name)817
(de attempt-to-open-append (file-name)959
(de open-output (file-name)1090
(de open-append (file-name)1202
(defconst FILE-BUFFER-SIZE #.(* 5 512))1333
(defflavor output-stream ((jfn NIL)	% TOPS-20 file number1394
(defmethod (output-stream putc) (ch)1768
(defmethod (output-stream put-newline) ()2368
(defmethod (output-stream putc-image) (ch)2686
(defmethod (output-stream puts) (str)2923
(defmethod (output-stream putl) (str)3277
(defmethod (output-stream open) (name-of-file)3447
(defmethod (output-stream open-append) (name-of-file)4033
(defmethod (output-stream attach-to-jfn) (new-jfn)4630
(defmethod (output-stream &fixup) ()4801
(defmethod (output-stream close) ()5268
(defmethod (output-stream flush) ()5409
(de time-buffered-output (n-lines)5825
(de time-buffered-output-1 (n-lines)6207
(de time-standard-output (n-lines)6579
(de time-output (n-lines)6903
(de time-buffered-output-string (n-lines)7118

PS:<PSL.UTIL.20>PATHNAMES.SL.0
01249,PSL
  (de string2integer (s)856
(dn make-pathname (keyword-arg-list)1083
(de pathname-host (pn)1698
(de pathname-device (pn)1754
(de pathname-directory (pn)1815
(de pathname-name (pn)1874
(de pathname-type (pn)1928
(de pathname-version (pn)1985
(de PathnameP (x)2037
(de StreamP (x)2104
(de truename (x) (pathname x))2202
(de pathname (x)2222
(de namestring (x)2489
(de file-namestring (x)3183
(de directory-namestring (x)3558
(de user-homedir-pathname ()3737
(de init-file-pathname (program-name)4097
(de merge-pathname-defaults (pn defaults-pn default-type default-version)4293
(defflavor pathname5208
(defmethod (pathname set-host) (new-host)5405
(defmethod (pathname set-device) (new-device)5718
(defmethod (pathname set-directory) (new-directory)6186
(defmethod (pathname set-name) (new-name)6689
(defmethod (pathname set-type) (new-type)7117
(defmethod (pathname set-version) (new-version)7445
(de string-to-pathname (s)7860
(de pathname-bite (pn i)9088
(de pathname-field-from-string (s)9544
(de pathname-version-from-string (s)9717
(de pathname-empty-field? (x)9998
(de pathname-field-to-string (x)10087
(de string-is-integer (s)10275

PS:<PSL.UTIL.20>PROCESSOR-TIME.SL.0
00078,PSL
(de processor-time ()395

PS:<PSL.UTIL.20>WAIT.SL.0
00075,PSL
(de wait-timeout (f n-60ths)404

PS:<PSL.UTIL.APOLLO>HOMEDIR.SL.0
00122,PSL
(de init-file-string (program-name)425
(de user-homedir-string (p)616

PS:<PSL.UTIL.HP>DGL.SL.0
00747,PSL
(de DGL(X) 261
(de MakeDgl (a)373
(de Graphics_init()431
(de Graphics_Term()516
(de Display_Init(Unit Mode)679
(de BW_Display()782
(de Color_Display()933
(de Plotter()1082
(de Set_Color (i)1272
(de Clear_Display()1484
(de HalfWords(x y)1534
(de LowHalf (x)1656
(de GLine(x y)1847
(de Gmove(x y)1932
(de set_line_style (x)2002
(de Set_char_size (w h)2215
(de Set_text_rot (x y)2316
(de Gtext (s)2404
(de Set_display_lim(x0 x1 y0 y1)2504
(de Set_aspect(x y)2661
(de Set_viewport(x0 x1 y0 y1)2772
(de Set_window(x0 x1 y0 y1)2897
(De Init_9111()3135
(De Sample_Locator()3251
(De Await_Locator()3439
(De gDraw(Color Style x1 y1 x2 y2)3658
(De Demo_Dgl()3850

PS:<PSL.UTIL.HP>DGL-MENU.SL.0
00189,PSL
(de mainloop()331
(de onecycle()404
(de marginp()488
(de domargin()567
(de doline()849
(de getxy()898
  (DE PRINT!-OPTION (X)1050

PS:<PSL.UTIL.HP>DIRECTORY.SL.0
00046,PSL

PS:<PSL.UTIL.HP>FILE-PRIMITIVES.SL.0
01263,PSL
(de file-deleted-status (file-name)2236
(de file-delete (file-name)2278
(de file-delete-and-expunge (file-name)2765
(de file-undelete (file-name)3203
(de file-read-date (file-name)3584
(de file-write-date (file-name)3811
(de file-byte-count (file-name)4206
(de file-page-count (file-name)4589
(de file-original-author (file-name)4851
(de file-author (file-name)5037
(de file-date-to-string (fdate)5423
(de fixup-file-name (name)5644
(de trim-filename-to-prefix (s)5954
(de fixup-directory-name (path)6383
(de find-matching-files (pattern)6735
(de &fileinfo-find-path-name (pattern)8930
(de &fileinfo-includes-directory-name (pattern)9326
(de &fileinfo-directory-name (pattern directory-name-length)9578
(de &fileinfo-open-directory (pattern) 10147
(de &fileinfo-close-directory (directory) 10271
(de &fileinfo-next-file (directory)10352
(de &fileinfo-get-information (buffer directory)10443
(de &fileinfo-file-name (buffer directory-path-name)10547
(de &fileinfo-byte-count (buffer)10768
(de &fileinfo-write-date (buffer)10826
(de &fileinfo-leap-year-p (year)10906
(de &fileinfo-buffer-to-string (buffer length) 10989
(de &fileinfo-decode (encoding)11162

PS:<PSL.UTIL.HP>INPUT-STREAM.SL.0
01508,PSL
(de attempt-to-open-input (file-name)2579
(de open-input (file-name)2708
(DefConst FILE-BUFFER-SIZE #.(* 4 512)) % Must be a multiple of 512 for BlockIO.3023
(defflavor input-stream3387
(defmethod (input-stream getc) ()4154
(defmethod (input-stream &fill-buffer-and-getc) () % Internal method.4807
(defmethod (input-stream getc-image) ()4898
(defmethod (input-stream &fill-buffer-and-getc-image) () % Internal method.5285
(defmethod (input-stream empty?) ()5378
(defmethod (input-stream peekc) ()5449
(defmethod (input-stream &fill-buffer-and-peekc) () % Internal method.5836
(defmethod (input-stream peekc-image) ()5929
(defmethod (input-stream &fill-buffer-and-peekc-image) () % Internal method.6236
(defmethod (input-stream &fill-buffer) () % Internal method.6355
(lap '((*entry &is-find-cr expr 3)6967
(defmethod (input-stream getl) ()7326
(defmethod (input-stream tell-position) ()8604
(defmethod (input-stream seek-position) (p)8756
(defmethod (input-stream open) (name-of-file)9053
(defmethod (input-stream close) ()9641
(defmethod (input-stream read-date) ()9884
(defmethod (input-stream write-date) ()9935
(defmethod (input-stream delete-file) ()9987
(defmethod (input-stream undelete-file) ()10041
(defmethod (input-stream delete-and-expunge-file) ()10105
(defmethod (input-stream author) ()10152
(defmethod (input-stream original-author) ()10208
(defmethod (input-stream file-length) ()10260

PS:<PSL.UTIL.HP>INPUT-TEXT.SL.0
01656,PSL
(DefConst FILE-BUFFER-SIZE #.(* 4 512)) % Must be a multiple of 512 for BlockIO.1805
(defflavor input-text-stream1837
(defmethod (input-text-stream getc) ()2514
(defmethod (input-text-stream &fill-buffer-and-getc) () % Internal method.3461
(defmethod (input-text-stream &uncompress-getc) () % Internal method.3582
(defmethod (input-text-stream getc-image) ()3697
(defmethod (input-text-stream &fill-buffer-and-getc-image) () % Internal method.4070
(defmethod (input-text-stream empty?) ()4168
(defmethod (input-text-stream peekc) ()4244
(defmethod (input-text-stream &uncompress-peekc) () % Internal method.4866
(defmethod (input-text-stream &fill-buffer-and-peekc) () % Internal method.5037
(defmethod (input-text-stream peekc-image) ()5135
(defmethod (input-text-stream &fill-buffer-and-peekc-image) () % Internal method.5447
(defmethod (input-text-stream &fill-buffer) () % Internal method.5571
(defmethod (input-text-stream getl) ()6188
(defmethod (input-text-stream tell-position) ()6676
(defmethod (input-text-stream seek-position) (p)6833
(defmethod (input-text-stream open) (name-of-file)7135
(defmethod (input-text-stream close) ()7720
(defmethod (input-text-stream read-date) ()7968
(defmethod (input-text-stream write-date) ()8024
(defmethod (input-text-stream delete-file) ()8081
(defmethod (input-text-stream undelete-file) ()8140
(defmethod (input-text-stream delete-and-expunge-file) ()8209
(defmethod (input-text-stream author) ()8261
(defmethod (input-text-stream original-author) ()8322
(defmethod (input-text-stream file-length) ()8379

PS:<PSL.UTIL.HP>NMODE-AIDS.SL.0
00171,PSL
(de keyboard-input-character ()114
(de keyboard-input-available? ()182
(de screen-set-cursor-position (row column)286

PS:<PSL.UTIL.HP>OUTPUT-STREAM.SL.0
00614,PSL
(de attempt-to-open-output (file-name)881
(de open-output (file-name)1012
(defconst FILE-BUFFER-SIZE #.(* 4 512))1136
(defflavor output-stream1164
(defmethod (output-stream putc) (ch)1563
(defmethod (output-stream put-newline) ()2164
(defmethod (output-stream putc-image) (ch)2369
(lap '((*entry copy-substring expr 5)2675
(defmethod (output-stream puts) (str)3243
(defmethod (output-stream putl) (str)3845
(defmethod (output-stream open) (name-of-file)4013
(defmethod (output-stream close) ()4433
(defmethod (output-stream flush) ()4605

PS:<PSL.UTIL.HP>PATHNAMES.SL.0
01292,PSL
  (de string2integer (s)1003
(dn make-pathname (keyword-arg-list)1230
(de pathname-host (pn)1845
(de pathname-device (pn)1901
(de pathname-directory (pn)1962
(de pathname-name (pn)2021
(de pathname-type (pn)2075
(de pathname-version (pn)2132
(de PathnameP (x)2184
(de StreamP (x)2251
(de truename (x) (pathname x))2349
(de pathname (x)2369
(de namestring (x)2636
(de file-namestring (x)3307
(de directory-namestring (x)3682
(de user-homedir-pathname ()3853
(de init-file-pathname (program-name)4013
(de merge-pathname-defaults (pn defaults-pn default-type default-version)4209
(defflavor pathname5124
(defmethod (pathname set-host) (new-host)5321
(defmethod (pathname set-device) (new-device)5634
(defmethod (pathname set-directory) (new-directory)6102
(defmethod (pathname set-name) (new-name)6605
(defmethod (pathname set-type) (new-type)7033
(defmethod (pathname set-version) (new-version)7361
(de string-to-pathname (s)7776
(de pathname-bite (pn i)9364
(de pathname-field-from-string (s)9750
(de pathname-version-from-string (s)9923
(de pathname-device-to-string (x)10208
(de pathname-empty-field? (x)10345
(de pathname-field-to-string (x)10434
(de string-is-integer (s)10619

PS:<PSL.UTIL.HP>PROCESSOR-TIME.SL.0
00051,PSL

PS:<PSL.UTIL.HP>WAIT.SL.0
00075,PSL
(de wait-timeout (f n-60ths)342

PS:<PSL.UTIL.VAX>GET-COMMAND-ARGS.SL.0
00083,PSL
(de get-command-args ()295

PS:<PSL.UTIL.VAX>INPUT-STREAM.SL.0
00050,PSL

PS:<PSL.UTIL.VAX>OUTPUT-STREAM.SL.0
00051,PSL

PS:<PSL.UTIL.VAX>PATHNAMES.SL.0
01205,PSL
(dn make-pathname (keyword-arg-list)789
(de pathname-host (pn)1410
(de pathname-device (pn)1466
(de pathname-directory (pn)1527
(de pathname-name (pn)1586
(de pathname-type (pn)1640
(de pathname-version (pn)1697
(de PathnameP (x)1749
(de StreamP (x)1816
(de truename (x) (pathname x))1914
(de pathname (x)1934
(de namestring (x)2207
(de file-namestring (x)3460
(de directory-namestring (x)3733
(de user-homedir-pathname ()3914
(de init-file-pathname (program-name)4158
(de merge-pathname-defaults (pn defaults-pn default-type default-version)4551
(defflavor pathname5506
(defmethod (pathname set-host) (new-host)5703
(defmethod (pathname set-device) (new-device)5985
(defmethod (pathname set-directory) (new-directory)6422
(defmethod (pathname set-name) (new-name)7011
(defmethod (pathname set-type) (new-type)7407
(defmethod (pathname set-version) (new-version)7719
(de string-to-pathname (s)8134
(de partition-string (strng delim-char-list)9805
(de pathname-field-from-string (s)11226
(de pathname-version-from-string (s)11396
(de pathname-field-to-string (x)11781
(de string-is-integer (s)12294

PS:<PSL.UTIL.VAX>WAIT.SL.0
00076,PSL
(de wait-timeout (f n-60ths)520

PS:<PSL.WINDOWS>9836-ALPHA.SL.0
00975,PSL
(defflavor 9836-alpha (739
(defmethod (9836-alpha get-character) ()1328
(defmethod (9836-alpha ring-bell) ()1403
(defmethod (9836-alpha move-cursor) (row column)1491
(defmethod (9836-alpha enter-raw-mode) ()1640
(defmethod (9836-alpha leave-raw-mode) ()1779
(defmethod (9836-alpha erase) ()1905
(defmethod (9836-alpha clear-line) ()2174
(defmethod (9836-alpha convert-character) (ch)2286
(defmethod (9836-alpha normal-enhancement) ()2545
(defmethod (9836-alpha highlighted-enhancement) ()2634
(defmethod (9836-alpha supported-enhancements) ()2736
(defmethod (9836-alpha write-char) (row column ch)2865
(defmethod (9836-alpha write-line) (row data)2973
(defmethod (9836-alpha read-char) (row column)3077
(defmethod (9836-alpha init) ()3265
(lap '((*entry screen80-write-char expr 4) % buffer-address row column word3349
(lap '((*entry screen80-write-line expr 3) % buffer-address row data3674

PS:<PSL.WINDOWS>9836-BITMAP.SL.0
01292,PSL
(defflavor 9836-bitmap954
(defmethod (9836-bitmap get-character) ()2757
(defmethod (9836-bitmap ring-bell) ()2833
(defmethod (9836-bitmap move-cursor) (row column)2922
(defmethod (9836-bitmap xor-cursor) ()3073
(defmethod (9836-bitmap enter-raw-mode) ()3459
(defmethod (9836-bitmap leave-raw-mode) ()3625
(defmethod (9836-bitmap display-on) ()3757
(defmethod (9836-bitmap display-off) ()3892
(defmethod (9836-bitmap erase) ()4023
(defmethod (9836-bitmap &fill-plane) (address word-value count)4306
(defmethod (9836-bitmap clear-line) ()4475
(defmethod (9836-bitmap convert-character) (ch)4557
(defmethod (9836-bitmap normal-enhancement) ()4752
(defmethod (9836-bitmap highlighted-enhancement) ()4842
(defmethod (9836-bitmap supported-enhancements) ()4945
(defmethod (9836-bitmap write-line) (row line)5044
(defmethod (9836-bitmap write-char) (row column ch)5204
(defmethod (9836-bitmap set-character-pattern) (ch pattern)5778
(defmethod (9836-bitmap init) (init-plist)6420
(de create-color-bitmap ()7221
(de create-color-bitmap-selectcode (select-code)7317
(de color-display-on-function (device-address)7803
(de color-display-off-function (device-address)8124
(de create-graphics-bitmap ()8194

PS:<PSL.WINDOWS>9836-COLOR.SL.0
01228,PSL
(defflavor 9836-color1305
(defmethod (9836-color select-color) (new-color)2795
(defmethod (9836-color select-cursor-color) (new-color)3007
(defmethod (9836-color select-background-color) (new-color)3290
(defmethod (9836-color get-character) ()3548
(defmethod (9836-color ring-bell) ()3623
(defmethod (9836-color move-cursor) (row column)3711
(defmethod (9836-color write-cursor) (bits)3876
(defmethod (9836-color enter-raw-mode) ()4175
(defmethod (9836-color leave-raw-mode) ()4340
(defmethod (9836-color display-on) ()4471
(defmethod (9836-color display-off) ()4685
(defmethod (9836-color erase) ()4754
(defmethod (9836-color &fill-plane) (plane word-value count)5361
(defmethod (9836-color clear-line) ()5580
(defmethod (9836-color convert-character) (ch)5661
(defmethod (9836-color normal-enhancement) ()5928
(defmethod (9836-color highlighted-enhancement) ()6017
(defmethod (9836-color supported-enhancements) ()6119
(defmethod (9836-color write-line) (row line)6262
(defmethod (9836-color write-char) (row column ch)6421
(defmethod (9836-color set-character-pattern) (ch pattern)6936
(defmethod (9836-color init) (init-plist)7577

PS:<PSL.WINDOWS>DIRECT-PHYSICAL-SCREEN.SL.0
01114,PSL
(de create-physical-screen (display-terminal)1091
(defflavor physical-screen1185
(defmacro image-fetch (image row col)2364
(defmacro image-store (image row col value)2461
(defmethod (physical-screen ring-bell) ()2670
(defmethod (physical-screen enter-raw-mode) ()2748
(defmethod (physical-screen leave-raw-mode) ()2831
(defmethod (physical-screen get-character) ()2913
(defmethod (physical-screen convert-character) (ch)3012
(defmethod (physical-screen normal-enhancement) ()3117
(defmethod (physical-screen highlighted-enhancement) ()3213
(defmethod (physical-screen supported-enhancements) ()3313
(defmethod (physical-screen write) (ch row col)3405
(defmethod (physical-screen set-cursor-position) (row col)3691
(defmethod (physical-screen refresh) (breakout-allowed)3875
(defmethod (physical-screen full-refresh) (breakout-allowed)4323
(defmethod (physical-screen write-to-stream) (s)4704
(defmethod (physical-screen init) (init-plist) % For internal use only!5122
(defmethod (physical-screen create-image) ()5811

PS:<PSL.WINDOWS>DISPLAY-CHAR.SL.0
00408,PSL
(dm dc-make-enhancement-mask (form)770
(defmacro dc-make-font-mask (font-number)1072
(defmacro display-character-cons (enhancement-mask font-mask char-code)1173
(defmacro dc-enhancement-mask (dc)1264
(defmacro dc-enhancement-index (dc)1323
(defmacro dc-font-mask (dc)1412
(defmacro dc-font-number (dc)1466
(defmacro dc-character-code (dc)1519

PS:<PSL.WINDOWS>FONT8.SL.0
00101,PSL
(de fixup-font-patterns (patterns character-height)18959

PS:<PSL.WINDOWS>HP2648A.SL.0
00919,PSL
(defflavor hp2648a (413
  (defmacro out-n (n)1212
  (defmacro out-char (ch)1374
  (dm out-chars (form)1441
  (defmacro out-move ()1590
(defmethod (hp2648a get-character) ()1743
(defmethod (hp2648a ring-bell) ()1805
(defmethod (hp2648a move-cursor) (row column)1878
(defmethod (hp2648a enter-raw-mode) ()2949
(defmethod (hp2648a leave-raw-mode) ()3101
(defmethod (hp2648a erase) ()3240
(defmethod (hp2648a clear-line) ()3612
(defmethod (hp2648a convert-character) (ch)3830
(defmethod (hp2648a normal-enhancement) ()4207
(defmethod (hp2648a highlighted-enhancement) ()4293
(defmethod (hp2648a supported-enhancements) ()4392
(defmethod (hp2648a update-line) (row old-line new-line columns)4535
(defmethod (hp2648a init) ()10240
(defmethod (hp2648a move-cursor-forward) (column line)10431
(defmethod (hp2648a write-field-marker) (ch)10754

PS:<PSL.WINDOWS>PERQ.SL.0
00881,PSL
(defflavor perq (651
  (defmacro out-n (n)1304
  (defmacro out-char (ch)1466
  (dm out-chars (form)1533
  (defmacro out-move (row col)1689
(defmethod (perq get-character) ()1905
(defmethod (perq ring-bell) ()1964
(defmethod (perq move-cursor) (row column)2034
(defmethod (perq enter-raw-mode) ()3014
(defmethod (perq leave-raw-mode) ()3139
(defmethod (perq erase) ()3294
(defmethod (perq clear-line) ()3553
(defmethod (perq convert-character) (ch)3623
(defmethod (perq normal-enhancement) ()3997
(defmethod (perq highlighted-enhancement) ()4080
(defmethod (perq supported-enhancements) ()4162
(defmethod (perq update-line) (row old-line new-line columns)4262
(defmethod (perq init) ()7654
(defmethod (perq &move-cursor-forward) (column line)7715
(defmethod (perq &set-terminal-enhancement) (enh)8033

PS:<PSL.WINDOWS>PHYSICAL-SCREEN.SL.0
01445,PSL
(de create-physical-screen (display-terminal)918
(defflavor physical-screen 1013
(defmacro image-fetch (image row col)2174
(defmacro image-store (image row col value)2271
(defmacro range-create ()2359
(defmacro range-cons (min max)2411
(defmacro range-min (r)2458
(defmacro range-max (r)2497
(defmacro range-set-min (r x)2542
(defmacro range-set-max (r x)2593
(defmacro range-reset (r)2640
(defmacro range-empty? (r)2730
(defmacro range-within? (r x) 2801
(defmacro range-extend (r x)2888
(defmethod (physical-screen ring-bell) ()3273
(defmethod (physical-screen enter-raw-mode) ()3351
(defmethod (physical-screen leave-raw-mode) ()3434
(defmethod (physical-screen get-character) ()3516
(defmethod (physical-screen convert-character) (ch)3615
(defmethod (physical-screen normal-enhancement) ()3720
(defmethod (physical-screen highlighted-enhancement) ()3816
(defmethod (physical-screen supported-enhancements) ()3916
(defmethod (physical-screen write) (ch row col)4008
(defmethod (physical-screen set-cursor-position) (row col)4274
(defmethod (physical-screen refresh) (breakout-allowed)4387
(defmethod (physical-screen full-refresh) (breakout-allowed)5408
(defmethod (physical-screen write-to-stream) (s)5939
(defmethod (physical-screen init) (init-plist) % For internal use only!6370
(defmethod (physical-screen create-image) ()7180

PS:<PSL.WINDOWS>SHARED-PHYSICAL-SCREEN.SL.0
02134,PSL
(de create-shared-physical-screen (physical-screen)2082
(defflavor shared-physical-screen (2189
(defmacro map-fetch (map row col)2914
(defmacro map-store (map row col value)3005
(defmethod (shared-physical-screen ring-bell) ()3219
(defmethod (shared-physical-screen enter-raw-mode) ()3302
(defmethod (shared-physical-screen leave-raw-mode) ()3390
(defmethod (shared-physical-screen get-character) ()3477
(defmethod (shared-physical-screen convert-character) (ch)3569
(defmethod (shared-physical-screen normal-enhancement) ()3667
(defmethod (shared-physical-screen highlighted-enhancement) ()3768
(defmethod (shared-physical-screen supported-enhancements) ()3873
(defmethod (shared-physical-screen write-to-stream) (s)3971
(defmethod (shared-physical-screen set-screen) (new-screen)4068
(defmethod (shared-physical-screen owner) (row col)4181
(defmethod (shared-physical-screen select-primary-owner) (owner)4474
(defmethod (shared-physical-screen remove-owner) (owner)4977
(defmethod (shared-physical-screen refresh) (breakout-allowed)5423
(defmethod (shared-physical-screen full-refresh) (breakout-allowed)5768
(defmethod (shared-physical-screen set-owner) (row col owner)6450
(defmethod (shared-physical-screen set-owner-region) (row col h w owner)6636
(defmethod (shared-physical-screen write) (ch row col owner)7273
(defmethod (shared-physical-screen init) (init-plist)7899
(defmethod (shared-physical-screen &new-screen) ()7983
(defmethod (shared-physical-screen &new-size) ()8133
(defmethod (shared-physical-screen &recalculate-ownership) ()8470
(defmethod (shared-physical-screen &get-owners-changes) (breakout-allowed)8930
(defmethod (shared-physical-screen &get-owner-changes) (owner breakout-allowed)9305
(defmethod (shared-physical-screen &get-owners-contents) (breakout-allowed)9568
(defmethod (shared-physical-screen &get-owner-contents) (owner breakout-allowed)10149
(defmethod (shared-physical-screen &assert-ownership) (owner)10400
(defmethod (shared-physical-screen &update-cursor) (owner)10620

PS:<PSL.WINDOWS>TELERAY.SL.0
00932,PSL
(defflavor teleray (526
  (defmacro out-n (n)1179
  (defmacro out-char (ch)1341
  (dm out-chars (form)1408
  (defmacro out-move (row col)1564
(defmethod (teleray get-character) ()1783
(defmethod (teleray ring-bell) ()1845
(defmethod (teleray move-cursor) (row column)1918
(defmethod (teleray enter-raw-mode) ()2901
(defmethod (teleray leave-raw-mode) ()3029
(defmethod (teleray erase) ()3187
(defmethod (teleray clear-line) ()3449
(defmethod (teleray convert-character) (ch)3522
(defmethod (teleray normal-enhancement) ()3899
(defmethod (teleray highlighted-enhancement) ()3985
(defmethod (teleray supported-enhancements) ()4070
(defmethod (teleray update-line) (row old-line new-line columns)4173
(defmethod (teleray init) ()7670
(defmethod (teleray &move-cursor-forward) (column line)7734
(defmethod (teleray &set-terminal-enhancement) (enh)8055

PS:<PSL.WINDOWS>VAX-PHYSICAL-SCREEN.SL.0
01450,PSL
(de create-physical-screen (display-terminal)1040
(defflavor physical-screen 1135
(defmacro image-fetch (image row col)2296
(defmacro image-store (image row col value)2393
(defmacro range-create ()2481
(defmacro range-cons (min max)2533
(defmacro range-min (r)2580
(defmacro range-max (r)2619
(defmacro range-set-min (r x)2664
(defmacro range-set-max (r x)2715
(defmacro range-reset (r)2762
(defmacro range-empty? (r)2852
(defmacro range-within? (r x) 2923
(defmacro range-extend (r x)3010
(defmethod (physical-screen ring-bell) ()3395
(defmethod (physical-screen enter-raw-mode) ()3473
(defmethod (physical-screen leave-raw-mode) ()3556
(defmethod (physical-screen get-character) ()3638
(defmethod (physical-screen convert-character) (ch)3737
(defmethod (physical-screen normal-enhancement) ()3842
(defmethod (physical-screen highlighted-enhancement) ()3938
(defmethod (physical-screen supported-enhancements) ()4038
(defmethod (physical-screen write) (ch row col)4130
(defmethod (physical-screen set-cursor-position) (row col)4396
(defmethod (physical-screen refresh) (breakout-allowed)4509
(defmethod (physical-screen full-refresh) (breakout-allowed)5666
(defmethod (physical-screen write-to-stream) (s)6197
(defmethod (physical-screen init) (init-plist) % For internal use only!6628
(defmethod (physical-screen create-image) ()7438

PS:<PSL.WINDOWS>VIRTUAL-SCREEN.SL.0
01467,PSL
(de create-virtual-screen (shared-physical-screen)1567
(defflavor virtual-screen1663
(defmacro image-fetch (image row col)2816
(defmacro image-store (image row col value)2913
(dm for-all-positions (form)3004
(dm for-all-columns (form)3395
(defmethod (virtual-screen set-size) (new-height new-width)3876
(defmethod (virtual-screen set-origin) (new-row new-column)4219
(defmethod (virtual-screen set-cursor-position) (row column)4522
(defmethod (virtual-screen write) (ch row column)4792
(defmethod (virtual-screen write-range) (ch row left-column right-column)5310
(defmethod (virtual-screen write-display-character) (dc row column)5993
(defmethod (virtual-screen write-string) (row left-column s count)6377
(defmethod (virtual-screen write-vector) (row left-column v count)7408
(defmethod (virtual-screen clear) ()8268
(defmethod (virtual-screen clear-to-end) (first-row)8630
(defmethod (virtual-screen clear-to-eol) (row first-column)9166
(defmethod (virtual-screen expose) ()9761
(defmethod (virtual-screen deexpose) ()9931
(defmethod (virtual-screen send-changes) (breakout-allowed)10385
(defmethod (virtual-screen send-contents) (breakout-allowed)10663
(defmethod (virtual-screen assert-ownership) ()10950
(defmethod (virtual-screen screen-cursor-position) ()11201
(defmethod (virtual-screen init) (init-plist)11643
(defmethod (virtual-screen &new-size) ()11715

PS:<PSL.WINDOWS>VT52X.SL.0
00898,PSL
(defflavor vt52x (527
  (defmacro out-n (n)1180
  (defmacro out-char (ch)1342
  (dm out-chars (form)1409
  (defmacro out-move (row col)1565
(defmethod (vt52x get-character) ()1783
(defmethod (vt52x ring-bell) ()1843
(defmethod (vt52x move-cursor) (row column)1914
(defmethod (vt52x enter-raw-mode) ()2895
(defmethod (vt52x leave-raw-mode) ()3021
(defmethod (vt52x erase) ()3177
(defmethod (vt52x clear-line) ()3437
(defmethod (vt52x convert-character) (ch)3508
(defmethod (vt52x normal-enhancement) ()3883
(defmethod (vt52x highlighted-enhancement) ()3967
(defmethod (vt52x supported-enhancements) ()4064
(defmethod (vt52x update-line) (row old-line new-line columns)4205
(defmethod (vt52x init) ()7407
(defmethod (vt52x &move-cursor-forward) (column line)7469
(defmethod (vt52x &set-terminal-enhancement) (enh)7788

PS:<PSL.WINDOWS>WINDOWS-20.SL.0
00188,PSL
(de window-fixup-name (s) s)946
(de window-load-all ()972
(de window-load (s)1067
(de window-faslin (directory-name module-name)1164

PS:<PSL.WINDOWS>WINDOWS-9836.SL.0
00400,PSL
(de charsininputbuffer () (if (keyboard-input-available?) 1 0))1082
(de window-fixup-name (s) s)1311
(de window-load-all ()1337
(de window-load (s)1432
(de window-faslin (directory-name module-name)1529
(lap '((*entry mul16 expr 2)2291
(lap '((*entry write-char-raster expr 4)2499
(lap '((*entry write-inverted-char-raster expr 4)3394

PS:<PSL.WINDOWS>WINDOWS-VAX.SL.0
00189,PSL
(de window-fixup-name (s) s)948
(de window-load-all ()974
(de window-load (s)1069
(de window-faslin (directory-name module-name)1166

PS:<PSL.UTIL>CHARS.LSP.0
00950,PSL
(defvar char-code-limit 128 "Upper bound of character code values")464
(defvar char-font-limit 1 "Upper bound on supported fonts")527
(defvar char-bits-limit 1 "Upper bound on values produces by char-bits")603
(defun standard-charp (c)672
(defun graphicp (c)871
(defun string-charp (c)1044
(defun alphap (c)1192
(defun uppercasep (c)1302
(defun lowercasep (c)1446
(defun digitp (c)1687
(defun alphanumericp (c)1889
(defun char= (c1 c2)1986
(defun char-equal (c1 c2)2098
(defun char< (c1 c2)2419
(defun char> (c1 c2)2521
(defun char-lessp (c1 c2)2636
(defun char-greaterp (c1 c2)2979
(defmacro char-code (c)3314
(defmacro char-bits (c)3395
(defmacro char-font (c)3476
(defmacro code-char (c)3588
(defun character (c)3684
(defun char-upcase (c)3924
(defun char-downcase (c)4145
(defun digit-char (i)4400
(defmacro char-int (c)4549
(defmacro int-char (c)4659

PS:<PSL.UTIL>EVALHOOK.LSP.0
00185,PSL
(defvar evalhook () "Variable to be funcalled if not () when Eval is called")370
(defun eval (form)445
(defun evalhookfn (form hook)734

PS:<PSL.UTIL>FAST-STRUCT.LSP.0
00101,PSL
(defun make-hashed-tree-for-defstruct (arg size)3832

PS:<PSL.UTIL>LOOP.LSP.0
02849,PSL
(defmacro data-type? (x) `(get ,x ':data-type))775
(defmacro c-mapc (x y) `(mapc ,y ,x))1051
(defmacro c-mapcar (x y) `(mapcar ,y ,x))1094
(defmacro loop-error (x y) `(stderror (list ,x ,y)))1148
(defun loop-displace (x y)1307
(defmacro loop-finish () 1447
(defun loop-make-psetq (frobs)1546
(defmacro loop-psetq frobs1735
(defvar loop-keyword-alist			;clause introducers1824
(defvar loop-for-keyword-alist			;Types of FOR2662
(defvar loop-path-keyword-alist nil)		; PATH functions2919
(defvar loop-variables)				;Variables local to the loop2976
(defvar loop-declarations)			; Local dcls for above3029
(defvar loop-variable-stack)3059
(defvar loop-declaration-stack)3092
(defvar loop-prologue)				;List of forms in reverse order3151
(defvar loop-body)				;..3178
(defvar loop-after-body)			;.. for FOR steppers3227
(defvar loop-epilogue)				;..3258
(defvar loop-after-epilogue)			;So COLLECT's RETURN comes after FINALLY3331
(defvar loop-conditionals)			;If non-NIL, condition for next form in body3406
(defvar loop-when-it-variable)			;See LOOP-DO-WHEN3762
(defvar loop-collect-cruft)			; for multiple COLLECTs (etc)3823
(defvar loop-source-code)3850
(defvar loop-attachment-transformer		; see attachment definition3916
(defun loop-add-keyword (cruft alist-name)4075
(defmacro define-loop-macro (keyword)4316
(defun loop-translate (x)4621
(defun loop-translate-1 (loop-source-code)4716
(defun loop-bind-block ()6944
(defun loop-get-form ()7279
(defun loop-make-setq (var-or-pattern value)7584
(defun loop-imply-type (expression type)7707
(defun loop-make-variable (name initialization dtype)7900
(defun loop-declare-variable (name dtype)8864
(defun loop-maybe-bind-form (form data-type?)9360
(defun loop-optional-type ()9572
(defmacro loop-tequal (x1 x2) `(eq ,x1 ,x2))9959
(defun loop-emit-body (form)10031
(defun loop-do-initially ()10711
(defun loop-do-finally ()10781
(defun loop-do-do ()10846
(defun loop-do-return ()10911
(defun loop-do-collect (type)10995
(defun loop-do-while (cond)13716
(defun loop-do-when (negate?)13810
(defun loop-do-with ()14433
(defun loop-do-always (true)15429
(defun loop-do-thereis ()15699
(defun loop-do-for ()15968
(defun loop-for-equals (var val data-type?)17608
(defun loop-for-on (var val data-type?)17947
(defun loop-for-in (var val data-type?)18701
(defun loop-for-arithmetic (var val data-type? forced-direction)19329
(defun loop-for-being (var val data-type?)21864
(defun loop-gather-preps (preps-allowed)25039
(defun loop-add-path (name data)25276
(defmacro define-loop-path (names . cruft)25391
(defun loop-path-carcdr (name var dtype pps inclusive? preps data)25684
(defun loop-interned-symbols-path (path variable data-type prep-phrases26203

PS:<PSL.UTIL>NSTRUCT.LSP.0
01297,PSL
(defun nth (n l)2569
(defun nthcdr (n l)2678
(defun displace (x y)2841
(defun defstruct-dont-displace (x y)3068
(defmacro append-symbols args3840
(defmacro defstruct-putprop (sym val ind)3923
(defmacro defstruct-put-macro (sym fcn)4015
(defmacro make-empty () `'%%defstruct-empty%%)4420
(defmacro emptyp (x) `(eq ,x '%%defstruct-empty%%))4475
(defmacro defstruct-error (message . args)4632
(defun get-defstruct-description (name)7217
(defmacro defstruct (options . items)10321
(defun defstruct-parse-options (options)12156
(defun defstruct-parse-items (items description)18464
(defun defstruct-parse-one-field (it number ppss rest conc-name)20554
(defun defstruct-define-ref-macros (new-slots description)21634
(defun defstruct-expand-size-macro (x)24394
(defvar defstruct-ref-macro-name)24862
(defun defstruct-expand-ref-macro (x)24903
(defun defstruct-parse-setq-style-slots (l slots others x)26442
(defun defstruct-make-init-dsc (kludge name code slots others x)26791
(defun defstruct-code-from-dsc (dsc)27683
(defun defstruct-expand-cons-macro (x)28670
(defun defstruct-expand-alter-macro (x)33894
(defmacro defstruct-define-type (type . options)35307
(defun make-tree-for-defstruct (arg size)53004

PS:<PSL.UTIL>STEP.LSP.0
00843,PSL
(defvar step-level 0 "Level of recursion while stepping")497
(defvar step-form () "Current form being evaluated")553
(defvar step-pending-forms () "Buffer of forms being evaluated")621
(defvar abort-step () "Flag to indicate exiting step")679
(defvar step-dispatch (make-vector 127 t ())727
(defvar step-channel () "I/O Channel used for printing truncated forms.")854
(defmacro def-step-command (char . form)987
(defun step (form)1104
(defun step-eval (step-form)1282
(defun display-last-10 ()3255
(defun display-aux (b n)3323
(defun step-command ()3574
(defun step-print-form (form herald)3792
(defun step-print-value (form value)3989
(defun step-break ()4219
(lap '((*entry step-get-char expr 0)4339
(defun step-get-char ()4455
(defun step-put-char (channel ch)4697

PS:<PSL.UTIL>STRINGS.LSP.0
01615,PSL
(defun rplachar (s i x)856
(defun string-equal (s1 s2)1109
(defun string-equal-aux (s1 s2 len i)1352
(defun string< (s1 s2)1544
(defun string<-aux (s1 s2 len1 len2 i)1742
(defun string> (s1 s2)2021
(defun string<= (s1 s2)2121
(defun string<=-aux (s1 s2 len1 len2 i)2285
(defun string>= (s1 s2)2539
(defun string<> (s1 s2)2640
(defun string<>-aux (s1 s2 len1 len2 i)2907
(defun string-lessp (s1 s2)3134
(defun string-lessp-aux (s1 s2 len1 len2 i)3306
(defun string-greaterp (s1 s2)3609
(defun string-not-greaterp (s1 s2)3736
(defun string-not-greaterp-aux (s1 s2 len1 len2 i)3922
(defun string-not-lessp (s1 s2)4223
(defun string-not-equal (s1 s2)4345
(defun string-not-equal-aux (s1 s2 len1 len2 i)4636
(defun make-string (count fill-character)4872
(defun string-repeat (s i)5002
(defun string-trim (c-bag s)5452
(defun string-trim-left-index (c-bag s i uplim)5720
(defun string-trim-right-index (c-bag s i)5895
(defun bag-element (elem c-bag)6057
(defun bag-element-aux (elem c-bag i uplim)6234
(defun string-left-trim (c-bag s)6446
(defun string-right-trim (c-bag s)6718
(defun string-upcase (s)6959
(defun nstring-upcase (s)7129
(defun string-downcase (s)7412
(defun nstring-downcase (s)7588
(defun string-capitalize (s)7877
(defun nstring-capitalize (s)8049
(defun stringify (x)8566
(defun string-to-list (s)8782
(defun string-to-vector (s)8914
(defun substring (string start end)9044
(defun string-length (s)9169
(defmacro string-concat args9263
(defun string-concat-aux (args len)9465

PS:<PSL.UTIL>ZBASIC.LSP.0
01262,PSL
(DE MAP2 (!#L1 !#L2 !#FN)10715
(DE MAP2C (!#L1 !#L2 !#FN)11165
(DE NUMERAL (!#X) (OR (DIGIT !#X) (NUMBERP !#X)))15104
(DE RAND16 NIL17232
(DE IRAND (N) (QUOTIENT (TIMES (RAND16) N) G!:RMOD))17571
(DE CAT!-DE (!#L)24967
(DE CAT!-ID!-DE (!#L) (COMPRESS (MAPCAN !#L (FUNCTION EXPLODE2))))25327
(DE SSEXPR (!#STR)25479
(DE PRINT2 (!#X) (PROGN (PRIN2 !#X) (TERPRI) !#X))26598
(DE CONFIRM (!#QUEST)26623
(DE EATEOL NIL28068
(DE TTY!-DE (!#L)28975
(DE TTY!-TX!-DE (!#L)29120
(DE TTY!-XT!-DE (!#L)29292
(DE TTY!-TT!-DE (!#L)29464
(DE TTY!-ELT (!#E) (COND ((EQ !#E !$EOL!$) (Q!-TERPRI)) (T (Q!-PRIN2 !#E))))29718
(DE PRINA (!#X)29999
(DE PRIN1SQ (!#X)31070
(DE PRIN2SQ (!#X)32109
(DE PRINCS (!#X) (PROGN (COND ((LESSP (CHRCT) 1) (TERPRI))) (PRINC !#X)))33185
(DE SEND NIL34358
(DE SEND!-1 (!#EE) (APPLY (CAR !#EE) (NCONS (CDR !#EE))))34910
(DE ENQUEUE (!#FN !#ARG)34938
(DE Q!-PRIN1 (!#E)35099
(DE Q!-PRINT (!#E)35181
(DE Q!-PRIN2 (!#E)35263
(DE Q!-TERPRI NIL35344
(DE ONEARG!-TERPRI (!#E) (TERPRI))35448
(DE Q!-TYO (!#N) (COND (!*BATCHOUT (ENQUEUE 'TYO !#N)) (1 (TYO !#N))))35522
(DE Q!-PRINC (!#C)35544
(DE ERRSET!-DE (!#EXP !#LBL)38147
(DE BUG!-STOP (!#STR)39189

PS:<PSL.UTIL>ZBOOT.LSP.0
00390,PSL
(DM !* (!#X) NIL)17
(DE CDEF (!#FDSCR !#TYPE)2023
(DF CDE (!#Z) (CDEF !#Z 'EXPR))3229
(DF CDF (!#Z) (CDEF !#Z 'FEXPR))3265
(DF CDM (!#Z) (CDEF !#Z 'MACRO))3301
(DE CLAP (LAP!#CODE)3603
(DM CDE (!#X) (CONS 'DE (CDR !#X)))4216
(DM CDF (!#X) (CONS 'DF (CDR !#X)))4255
(DM CDM (!#X) (CONS 'DM (CDR !#X)))4294
(DF C!-SETQ (!#ARGS)4543

PS:<PSL.UTIL>ZFILES.LSP.0
00656,PSL
(DE FORM!-FILE (FILE!#DSCR)2324
(DE GRABBER (!#SELECTION FILE!#DSCR)3428
(DE GRAB!-EVAL!-CTL (!#SELECTION EXPR!#READ FILE!#ID)5108
(DE DUMPER (!#DSCR)6435
(DE DUMPFNS!-DE (!#SELECTION FILE!#DSCR)7185
(DE DUMP!-REMAINING (!#SELECTION !#DUMPED)9102
(DE FCOPY (IN!#DSCR OUT!#DSCR)9881
(DE FCOPY!-SQ (IN!#DSCR OUT!#DSCR)11544
(DE REFPRINT!-FOR!-GRAB!-CTL (!#X) NIL)12336
(DF COMPILE-FILE (FILE:NAME)12417
(DF COMPILE-IN-CORE (FILE:NAME)12450
(DE PPLAP (!#MODE !#CODE) (PRIN1SQ (LIST !#MODE (MKQUOTE !#CODE))))13098
(DF COMPILE!-FILE (FILE!:DSCR)13889
(DF COMPILE!-IN!-CORE (FILE!:DSCR)18658

PS:<PSL.UTIL>ZMACRO.LSP.0
02411,PSL
(DM NEQN (!#X) (LIST 'NOT (CONS 'EQN (CDR !#X))))2935
(DM NEQUAL (!#X) (LIST 'NOT (CONS 'EQUAL (CDR !#X))))3083
(DM DREVERSE (!#X) (CONS 'REVERSIP (CDR !#X)))4715
(DE XP!#SELECTQ (!#L!#)7226
(DE XP!#WHILE (!#BOOL !#BODY)8511
(DE XP!#REPEAT (!#BODY !#BOOL)9289
(DE XP!#FOREACH (!#VAR !#MOD !#LST !#ACTION !#BODY)10032
(DM SAY (!#X)10923
(DE XP!#SAY1 (!#Y)11041
(DM TTY (!#X) (LIST 'TTY!-DE (CONS 'LIST (CDR !#X))))13158
(DM TTY!-TX (!#X) (LIST 'TTY!-TX!-DE (CONS 'LIST (CDR !#X))))13223
(DM TTY!-XT (!#X) (LIST 'TTY!-XT!-DE (CONS 'LIST (CDR !#X))))13288
(DM TTY!-TT (!#X) (LIST 'TTY!-TT!-DE (CONS 'LIST (CDR !#X))))13353
(DM GRAB (!#X) (LIST 'GRABBER NIL (MKQUOTE (CDR !#X))))14077
(DM GRABFNS (!#X) (LIST 'GRABBER (CADR !#X) (MKQUOTE (CDDR !#X))))14299
(DM DUMP (!#X) (LIST 'DUMPER (MKQUOTE (CDR !#X))))14511
(DM DUMPFNS (!#X) (LIST 'DUMPFNS!-DE (CADR !#X) (MKQUOTE (CDDR !#X))))14773
(DM DO!-UNTIL (FORM)15641
(DM SAI!-IF (IF!#X) (XP!#SAI!-IF (CDR IF!#X)))16242
(DM SAI2!-IF (IF!#X) (XP!#SAI!-IF (CDR IF!#X)))16293
(DE XP!#SAI!-IF (IF!#X)16320
(DM SAI!-DONE (C!#X) '(RETURN NIL))18202
(DM SAI!-CONTINUE (C!#X) '(GO CONTINUE!:))18248
(DM SAI!-WHILE (WH!#X) (XP!#SAI!-WHILE WH!#X))18750
(DE XP!#SAI!-WHILE (WH!#X)18780
(DM SAI!-FOREACH (FOREACH!#X) (XP!#SAI!-FOREACH FOREACH!#X))19075
(DE XP!#SAI!-FOREACH (FORE!#X)19109
(DM SAI!-FOR (FOR!#X) (XP!#SAI!-FOR FOR!#X))19485
(DE XP!#SAI!-FOR (FOR!#X)19514
(DM SAI!-BEGIN (BEG!#X) (CONS 'DO (CDR BEG!#X)))20934
(DM PBEGIN (PBEG!#X)20958
(DM PRETURN (PRET!#X)21044
(DM SAI!-ASSIGN (!#X) (LIST 'SETQ (CADR !#X) (CADDR !#X)))21162
(DM MSETQ (MSETQ!#X)21186
(DM SAI!-COLLECT (X)21477
(DM IFC (X)21552
(DM OUTSTR (!#X) (CONS 'TTY (CDR !#X)))21707
(DM SAI!-SAY (!#X) (CONS 'TTY (CDR !#X)))21977
(DM SAI!-!& (!#X) (CONS 'CAT (CDR !#X)))22021
(DM SAI!-LENGTH (!#X) (CONS 'FLATSIZE2 (CDR !#X)))22075
(DM CVSEST (!#X) (CADR !#X))22107
(DM CVSEN (!#X) (CADR !#X))22138
(DM CVS (!#X) (CADR !#X))22167
(DM SUBSTRING!-FOR (!#L)22195
(DM SUBSTRING!-TO (!#L) (XP!#SUBSTRING!-TO (CDR !#L)))22970
(DE XP!#SUBSTRING!-TO (!#L)23001
(DM PUSHES (!#X) NIL)23758
(DM PUSHVARS (!#X) NIL)23785
(DM SLIST (!#X) (CONS 'LIST (CDR !#X)))23828
(DM SAI!-MAPC (!#L) (LIST 'MAPC (CADDR !#L) (CADR !#L)))23888
(DM SAI!-EQU (!#L) (CONS 'EQUAL (CDR !#L)))23935

PS:<PSL.UTIL>ZPEDIT.LSP.0
03477,PSL
(DE PRETTYPRINT (!#X) (PROGN (SPRINT !#X 1) (TERPRI)))921
(DF PPL (!#L)1147
(DE FPP!#READMACRO (!#A)1962
(DE PP1 (!#EXP)2258
(DE PP!-VAL (!#ID)3024
(DE PP!-DEF (!#ID)3273
(DE BROKEN (!#X) (GET !#X 'TRACE))4798
(DE GET!#GOOD!#DEF (!#X)4826
(DE PP!-PROP (!#ID !#PROP)5020
(DE PP!-FLAG (!#ID !#FLAG)5309
(DE ADD!#SELF!#REF (!#ID)5556
(DE S2PRINT (!#S !#EXP)5846
(DE SPRINT (!#EXP LEFT!#MARGIN)6029
(DE SPRIN1 (!#EXP !#C1 !#C2)11265
(DE SPRINL (!#EXP !#C1 !#C2)11705
(DE !#QUOTE (!#L)12503
(DE !#QUOTES (!#L !#CH)12553
(DE !#BACKQUOTE (!#L)12888
(DE !#UNQUOTE (!#L)12975
(DE !#UNQUOTEL (!#L)13065
(DE !#UNQUOTED (!#L)13156
(DE !#!* (!#L)13198
(DE PRINCOMMA (!#LIST FIRST!#COL)14792
(DE SPACES!#LEFT NIL (SUB1 (CHRCT)))15383
(DE SAFE!#PPOS (!#N !#SIZE)15414
(DE PPFLATSIZE (!#EXP) (DIFFERENCE (FLATSIZE !#EXP) (PP!#SAVINGS !#EXP)))15718
(DE PP!#SAVINGS (Y)15741
(DE FIRSTLINE!-FITS (!#STR !#N)16102
(DE POSN1 NIL (ADD1 (POSN)))16459
(DE POSN2 NIL (PLUS 2 (POSN)))16493
(DE PPOS (N)16509
(DE EDITLINEREAD NIL18179
(DM EDIT!#!# (!#X) (LIST 'EDIT!#!#DE (MKQUOTE (CDR !#X))))18592
(DE EDIT!#!#DE (!#COMS)18619
(DF EDITFNS (!#X)18723
(DF EDITF (!#X)19015
(DF EDITV (!#X)19873
(DE EDIT (EDIT!:FORM)20719
(DF EDITP (!#X)20790
(DE EDITE (!#EXPR !#COMS !#ATM)21341
(DE EDITL (F!:E!#LOCLST !#COMS !#ATM F!:E!#MARKLST !#MESS)21578
(DE EDITL0 (F!:E!#DEPTH !#COMS !#MESS F!:E!#ID)22232
(DE EDIT1 (!#COMS)24021
(DE EDITVAL (!#X)24219
(DE EDITL1 NIL24396
(DE EDITREAD NIL25463
(DE EDITCOM (!#CMD F!:E!#TOPFLG)26167
(DE EDITCOMA (!#CMD F!:E!#COPYFLG)26772
(DE EDITCOML (!#CMD F!:E!#COPYFLG)33011
(DE EDITNEWC2 (F!:E!#LOCLST !#C2)38984
(DE EDITM (!#CMD !#C2)39232
(DE EDITNEWLOCLST (F!:E!#LOCLST !#C2)39969
(DE EDITMAC (!#C !#LST !#FLG)40713
(DE EDITCOMS (!#COMS)41067
(DE EDITH (!#LST)41247
(DE EDITUNDO (!#PRINTFLG !#UNDOFLG !#UNDOP)41686
(DE EDITUNDOCOM (!#X !#FLG)42411
(DE EDITSMASH (!#OLD !#A !#D)43470
(DE EDITNCONC (!#X !#Y)43739
(DE EDITDSUBST (!#X !#Y !#Z)43991
(DE EDIT1F (!#C F!:E!#LOCLST)44375
(DE EDIT2F (!#N !#X)45183
(DE EDIT4E (!#PAT !#Y)46735
(DE EDITQF (!#PAT)48108
(DE EDIT4F (!#PAT F!:E!#SN)48610
(DE EDITFPAT (!#PAT)50578
(DE EDIT4F1 (!#PAT !#X !#LVL !#FF)50853
(DE EDITFINDP (!#X !#PAT !#FLG)52359
(DE EDITBF (!#PAT !#N)52593
(DE EDITBF1 (!#PAT !#X !#LVL !#TAIL !#FF)53547
(DE EDITNTH (!#X !#N)54958
(DE EDITBPNT0 (!#EXP !#DEPTH)55513
(DE EDITBPNT (!#X)56018
(DE EDITRI (!#M !#N !#X)56558
(DE EDITRO (!#N !#X)56846
(DE EDITLI (!#N !#X)57085
(DE EDITLO (!#N !#X)57250
(DE EDITBI (!#M !#N !#X)57432
(DE EDITBO (!#N !#X)57793
(DE EDITDEFAULT (!#X)57978
(DE EDITUP NIL59196
(DE EDIT!* (!#N)60108
(DE EDITOR (!#COMS)60593
(DE EDITOR1 (!#COMS)60990
(DE EDITERRCOM (!#COMS)61246
(DE EDITRPT (!#EDRX !#QUIET)61357
(DE EDITLOC (!#X)61906
(DE EDITLOCL (!#COMS)62626
(DE EDIT!: (!#TYPE !#LC !#X)62908
(DE EDITMBD (!#LC !#X)64308
(DE EDITXTR (!#LC !#X)64987
(DE EDITELT (!#LC F!:E!#LOCLST)66011
(DE EDITCONT (!#LC1 F!:E!#SN)66212
(DE EDITSW (!#M !#N)67165
(DE EDITMV (!#LC !#OP !#X)67440
(DE EDITTO (!#LC1 !#LC2 !#FLG)68630
(DE EDITBELOW (!#PLACE !#DEPTH)69395
(DE EDITRAN (!#C !#DEF)70153
(DE EDIT!#PRINT (!#E !#DEPTH !#DOTFLG)71749
(DE DEPTH!#PRINT (!#E !#DEPTH !#PLENGTH !#DOTFLG)72137
(DE PRINT2 (!#X) (PROGN (PRIN2 !#X) (TERPRI) !#X))73649

PS:<PSL.UTIL>ZSYS.LSP.0
00489,PSL
(DM MAKE!-SYS!-FILE!-NAME (!#X)1443
(DM MAKE!-UTAH!-TENEX!-NAME (!#X)1966
(DM MAKE!-UTAH!-TOPS10!-NAME (!#X)3140
(DM MAKE!-IMSSS!-TENEX!-NAME (!#X)4559
(DM MAKE!-PSL!-TOPS20!-NAME (!#X)5973
(DM MAKE!-PSL!-UNIX!-NAME (!#X)7832
(DE EXTRACT!-FILE!-ID (!#X)9176
(DE ID!-LIST!-TO!-STRING (!#X)9887
(DE EXTRACT!-FILE!-ID (!#X)10125
(DE ID!-LIST!-TO!-STRING (!#X)10920
(DE MAKE!-OPEN!-FILE!-NAME (!#DSCR) (MAKE!-SYS!-FILE!-NAME))11240

PS:<PSL.KERNEL.VAX>ECHO.C.0
00041,C

PS:<PSL.KERNEL.VAX>PSLIO.C.0
00042,C

PS:<PSL.KERNEL.VAX>PWD-FN.C.0
00043,C

PS:<PSL.KERNEL.VAX>UNEXEC.C.0
00043,C

