2964 lines, 316 procedures found
SYSWRITEREC (FILEDESCRIPTOR, STRINGTOWRITE, STRINGLE P20T:XXX-SYSTE 123/7
!%COPY!-FUNCTION!-CELL EXPR 2) % FROM TO P20T:XXX-HEADE 128/20
!%RECLAIM(); MINI-GC 9/1
!%STORE!-JCALL EXPR 2) % CODEADDRESS, STORAGE ADDRESS P20T:XXX-HEADE 122/19
"PK:BINDING.RED"$ SUB6 3/1
"PT:IO-DATA.RED"$ SUB7 6/2
"PT:MINI-ARITHMETIC.RED"$ SUB5 8/3
"PT:MINI-CARCDR.RED"$ SUB5 9/4
"PT:MINI-CHAR-IO.RED"$ SUB2 3/1
"PT:MINI-COMP-SUPPORT.RED"$ SUB3 5/3
"PT:MINI-CONS-MKVECT.RED"$ SUB3 4/2
"PT:MINI-DSKIN.RED"$ SUB7 8/4
"PT:MINI-EASY-NON-SL.RED"$ SUB5 11/6
"PT:MINI-EASY-SL.RED"$ SUB5 10/5
"PT:MINI-EQUAL.RED"$ SUB4 6/1
"PT:MINI-ERROR-ERRORSET.RED"$ SUB2 5/3
"PT:MINI-ERROR-HANDLERS.RED"$ SUB2 6/4
"PT:MINI-EVAL-APPLY.RED"$ SUB5 12/7
"PT:MINI-GC.RED"$ STUBS3 4/1
"PT:MINI-IO-ERRORS.RED"$ SUB7 7/3
"PT:MINI-KNOWN-TO-COMP.RED"$ SUB5 13/8
"PT:MINI-LOOP-MACROS.RED"$ SUB5 14/9
"PT:MINI-OBLIST.RED"$ SUB5 16/11
"PT:MINI-OPEN-CLOSE.RED"$ SUB7 9/5
"PT:MINI-OTHERS-SL.RED"$ SUB5 15/10
"PT:MINI-PRINTERS.RED"$ SUB2 4/2
"PT:MINI-PRINTF.RED"$ STUBS6 3/1
"PT:MINI-PROPERTY-LIST.RED"$ SUB5 17/12
"PT:MINI-PUTD-GETD.RED"$ SUB6 6/3
"PT:MINI-RDS-WRS.RED"$ SUB7 10/6
"PT:MINI-READ.RED"$ SUB4 8/3
"PT:MINI-SEQUENCE.RED"$ SUB3 7/4
"PT:MINI-SYMBOL-VALUES.RED"$ SUB5 18/13
"PT:MINI-TOKEN.RED"$ SUB4 7/2
"PT:MINI-TOP-LOOP.RED"$ STUBS6 4/2
"PT:MINI-TYPE-CONVERSIONS.RED"$ SUB5 19/14
"PT:MINI-TYPE-ERRORS.RED"$ SUB2 7/5
"PT:P-ALLOCATORS.RED"$ SUB3 3/1
"PT:P-APPLY-LAP.RED"$ SUB5 6/2
"PT:P-FAST-BINDER.RED"$ SUB6 4/2
"PT:P-FUNCTION-PRIMITIVES.RED"$ MAIN4 6/2
"PT:P-FUNCTION-PRIMITIVES.RED"$ SUB5 5/1
"PT:PSL-TIMER.SL"$ MAIN7 11/7
"PT:STUBS3.RED"$ MAIN3 7/2
"PT:STUBS3.RED"$ MAIN4 8/4
"PT:STUBS3.RED"$ MAIN5 5/2
"PT:STUBS3.RED"$ MAIN6 6/2
"PT:STUBS3.RED"$ MAIN7 6/2
"PT:STUBS4.RED"$ MAIN4 7/3
"PT:STUBS4.RED"$ MAIN5 6/3
"PT:STUBS4.RED"$ MAIN6 7/3
"PT:STUBS4.RED"$ MAIN7 7/3
"PT:STUBS5.RED"$ MAIN5 7/4
"PT:STUBS5.RED"$ MAIN6 8/4
"PT:STUBS5.RED"$ MAIN7 8/4
"PT:STUBS6.RED"$ MAIN6 9/5
"PT:STUBS6.RED"$ MAIN7 9/5
"PT:STUBS7.RED"$ MAIN7 10/6
"PT:SYSTEM-IO.RED"$ SUB7 11/7
"XXX-HEADER.RED"$ MAIN2 6/1
"XXX-HEADER.RED"$ MAIN3 6/1
"XXX-HEADER.RED"$ MAIN4 5/1
"XXX-HEADER.RED"$ MAIN5 4/1
"XXX-HEADER.RED"$ MAIN6 5/1
"XXX-HEADER.RED"$ MAIN7 5/1
"XXX-SYSTEM-IO.RED"$ SUB7 5/1
ADD1 N; MINI-ARITHMETI 12/3
ALPHAESCP X; MINI-TOKEN 150/20
ALPHANUMESCP X; MINI-TOKEN 156/22
ALPHANUMP X; MINI-TOKEN 153/21
ALPHAP(X); MINI-TOKEN 138/16
APPEND(U,V); MINI-EASY-SL 13/2
APPLY(FN,A); MINI-EVAL-APPL 43/3
ATOM X; MINI-EASY-SL 8/1
ATSOC(X,Y); MINI-EASY-NON- 3/1
BINDEVAL(FORMALS, ARGS); P-APPLY-LAP 363/4
BINDEVALAUX(FORMALS, ARGS, N); P-APPLY-LAP 366/5
BINDINGTEST; MAIN6 55/8
BLDMSG(FMT,A1,A2,A3,A4,A5,A6); MINI-PRINTF 3/1
BUFFERTOSTRING N; MINI-TOKEN 59/7
CAAR X; MINI-CARCDR 13/3
CADR X; MINI-CARCDR 16/4
CAR X; MINI-CARCDR 5/1
CASETEST; MAIN3 23/4
CBIND1(X,CFL1,CFL2); MAIN6 139/15
CBIND2(); MAIN6 149/16
CDAR X; MINI-CARCDR 19/5
CDDR X; MINI-CARCDR 22/6
CDR X; MINI-CARCDR 8/2
CHANNELPRIN2(CHN,X); MINI-PRINTERS 102/16
CHANNELWRITECHAR(CHN,X); MINI-CHAR-IO 3/1
CLEARCOMMENT(); MINI-TOKEN 45/5
CLEARWHITE(); MINI-TOKEN 41/4
CLOSE N; MINI-OPEN-CLOS 8/2
CODEAPPLY(CODEPTR, ARGLIST); P-APPLY-LAP 53/1
CODEEVALAPPLY EXPR 2) P-APPLY-LAP 206/2
CODEEVALAPPLYAUX(CODEPTR, ARGLIST, P); P-APPLY-LAP 213/3
CODEP X; MINI-KNOWN-TO- 3/1
CODEPRIMITIVE EXPR 15) P-FUNCTION-PRI 121/9
COMPBINDTEST(); MAIN6 129/14
COMPILED1(XXX,YYY); MAIN6 117/12
COMPILED1; MAIN4 124/8
COMPILED2(XXX,YYY); MAIN6 122/13
COMPILED2; MAIN4 128/9
COMPILED3(A1,A2,A3,A4); MAIN4 132/10
COMPILEDCALLINGINTERPRETED EXPR 15) P-FUNCTION-PRI 136/10
COMPILEDCALLINGINTERPRETEDAUX(); MAIN4 155/12
COMPILEDCALLINGINTERPRETEDAUX(); P-APPLY-LAP 381/6
COMPILEDCALLINGINTERPRETEDAUXAUX FN; P-APPLY-LAP 391/8
COND X; MINI-EASY-SL 51/9
CONS(X,Y); MINI-CONS-MKVE 14/2
CONSTEST(); MAIN3 56/7
COPYD(NEWID,OLDID); MINI-EASY-NON- 18/5
CTEST N; MAIN3 41/5
DASHED(M); STUBS4 7/2
DATE; P20T:XXX-HEADE 112/16
DE(X); MINI-EASY-SL 60/12
DEC20OPEN EXPR 3) P20T:XXX-SYSTE 64/4
DEC20READCHAR EXPR 1) P20T:XXX-SYSTE 98/6
DEC20WRITECHAR EXPR 2) P20T:XXX-SYSTE 130/8
DELATQ(X,Y); MINI-EASY-NON- 28/6
DF(X); MINI-EASY-SL 63/13
DIFFERENCE(N1,N2); MINI-ARITHMETI 27/7
DIGITP X; MINI-TOKEN 135/15
DM(X); MINI-EASY-SL 69/15
DN(X); MINI-EASY-SL 66/14
DOLAMBDA(VARS,BODY,ARGS); MINI-EVAL-APPL 71/6
DOTTED(M); STUBS4 12/3
DSKIN F; MINI-DSKIN 12/2
EQ(X,Y); MINI-KNOWN-TO- 12/4
EQCAR(X,Y); MINI-EASY-NON- 15/4
EQSTR(S1,S2); MINI-EQUAL 5/1
ERNAL WARRAY BPS[BPSSIZE]; % COULD DO A DYNAMIC ALL P20T:XXX-HEADE 37/7
ERNAL WARRAY HEAP[HEAPSIZE]; % COULD DO A DYNAMIC A P20T:XXX-HEADE 22/4
ERNAL WARRAY OTHERHEAP[HEAPSIZE]; P20T:XXX-HEADE 30/5
ERNAL WARRAY STACK[STACKSIZE]; P20T:XXX-HEADE 12/2
ERNAL WCONST BPSSIZE = 500; P20T:XXX-HEADE 36/6
ERNAL WCONST HEAPSIZE = 150000; % ENOUGH FOR PSL-TIM P20T:XXX-HEADE 21/3
ERNAL WCONST MAXARGBLOCK = (MAXARGS - MAXREALREGS) - P20T:XXX-HEADE 54/9
ERNAL WCONST STACKSIZE = 5000; P20T:XXX-HEADE 11/1
ERROR S; MINI-ERROR-ERR 7/2
ERRORHEADER; MINI-ERROR-ERR 4/1
ERRORTRAILER S; MINI-ERROR-ERR 11/3
ESCAPEP X; MINI-TOKEN 147/19
EVAL X; MINI-EVAL-APPL 19/2
EVCOND FL; MINI-EASY-SL 45/8
EVLIS X; MINI-EASY-SL 31/5
EVPROGN FL; MINI-EASY-SL 35/6
FASTAPPLY EXPR 0) P-FUNCTION-PRI 153/11
FASTLAMBDAAPPLY(); P-APPLY-LAP 387/7
FATALERROR S; MINI-ERROR-HAN 5/1
FCODEP FN; P-FUNCTION-PRI 91/6
FIRSTCALL; MAIN2 14/2
FIRSTCALL; MAIN3 12/3
FIRSTCALL; MAIN4 15/5
FIRSTCALL; MAIN5 13/5
FIRSTCALL; MAIN6 15/6
FIRSTCALL; MAIN7 17/8
FLAG EXPR 2) % DUMMY FOR INIT P20T:XXX-HEADE 142/22
FLAMBDALINKP FN; P-FUNCTION-PRI 79/4
FUNBOUNDP FN; P-FUNCTION-PRI 65/2
FUNCALL(FN,I); STUBS6 8/3
FUNCTIONTEST(); MAIN4 74/7
GEQ(N1,N2); MINI-EASY-NON- 9/2
GET(X,Y); MINI-PROPERTY- 9/2
GETC(); P20T:XXX-HEADE 98/12
GETD(FN); MINI-PUTD-GETD 6/1
GETFCODEPOINTER U; P-FUNCTION-PRI 106/8
GETFNTYPE X; MINI-PROPERTY- 38/5
GETLAMBDA(FN); MINI-EVAL-APPL 89/8
GREATERP(N1,N2); MINI-ARITHMETI 21/5
GTHEAP N; MINI-ALLOCATOR 14/1
GTID(); MINI-ALLOCATOR 48/5
GTSTR N; MINI-ALLOCATOR 27/2
GTVECT N; MINI-ALLOCATOR 36/3
GTWARRAY N; MINI-ALLOCATOR 44/4
HARDCONS(X,Y); MINI-CONS-MKVE 6/1
HEAPINFO(); MINI-GC 17/3
IDP X; MINI-KNOWN-TO- 9/3
INF X; STUBS5 22/2
INIT(); P20T:XXX-HEADE 92/11
INITEVAL; MINI-EVAL-APPL 5/1
INITHEAP(); P20T:XXX-HEADE 44/8
INITNEWID(D,S); MINI-TOKEN 105/12
INITREAD; MINI-TOKEN 11/1
INTERN S; MINI-TOKEN 95/11
INTERPTEST(); MAIN6 71/9
IOERROR M; MINI-IO-ERRORS 3/1
IOTEST; MAIN7 61/9
LAMBDAAPPLY(X,A); MINI-EVAL-APPL 60/4
LAMBDAEVALAPPLY(X,Y); MINI-EVAL-APPL 68/5
LAMBDAP(X); MINI-EVAL-APPL 86/7
LAMBIND V; P-FAST-BINDER 23/1
LAPIN F; MINI-DSKIN 25/3
LBIND1(X,Y); MAIN5 67/10
LENGTH U; MINI-OTHERS-SL 4/1
LENGTH1(U, N); MINI-OTHERS-SL 8/2
LEQ(N1,N2); MINI-EASY-NON- 12/3
LESSP(N1,N2); MINI-ARITHMETI 24/6
LIST X; MINI-EASY-SL 73/16
LIST2(A1,A2); MINI-COMP-SUPP 4/1
LIST3(A1,A2,A3); MINI-COMP-SUPP 7/2
LIST4(A1,A2,A3,A4); MINI-COMP-SUPP 10/3
LIST5(A1,A2,A3,A4,A5); MINI-COMP-SUPP 13/4
LONGDIV(X,Y); P20T:XXX-HEADE 151/24
LONGREMAINDER(X,Y); P20T:XXX-HEADE 154/25
LONGTIMES(X,Y); P20T:XXX-HEADE 148/23
LOOKUPID(S); MINI-TOKEN 115/13
LOWERCASEP X; MINI-TOKEN 144/18
MAIN!. EXPR 0) P20T:XXX-HEADE 68/10
MAKEFCODE(U, CODEPTR); P-FUNCTION-PRI 96/7
MAKEFLAMBDALINK D; P-FUNCTION-PRI 85/5
MAKEFUNBOUND(D); P-FUNCTION-PRI 73/3
MAPOBL(FN); MINI-OBLIST 6/1
MEMQ(X,Y); MINI-EASY-SL 17/3
MINUS(X); MINI-ARITHMETI 8/2
MKITEM(X,Y); STUBS5 28/4
MKSTRING(L, C); MINI-SEQUENCE 5/1
MKVECT N; MINI-CONS-MKVE 23/5
MORESTUFF; MAIN4 68/6
NCONS X; MINI-CONS-MKVE 20/4
NONIDERROR(X,Y); MINI-TYPE-ERRO 28/3
NONINTEGERERROR(OFFENDER, FN); MINI-TYPE-ERRO 34/5
NONNUMBERERROR(OFFENDER, FN); MINI-TYPE-ERRO 31/4
NONPOSITIVEINTEGERERROR(OFFENDER, FN); MINI-TYPE-ERRO 37/6
NOT X; MINI-KNOWN-TO- 18/6
NULL X; MINI-KNOWN-TO- 15/5
OPEN(FILENAME,HOW); MINI-OPEN-CLOS 3/1
PAIRP X; MINI-KNOWN-TO- 6/2
PBLANK; MINI-PRINTERS 30/5
PLUS2(X,Y); MINI-ARITHMETI 4/1
PRIN1 X; MINI-PRINTERS 8/1
PRIN1ID X; MINI-PRINTERS 45/8
PRIN1INT X; MINI-PRINTERS 33/6
PRIN1INTX X; MINI-PRINTERS 40/7
PRIN1PAIR X; MINI-PRINTERS 67/12
PRIN1STRING X; MINI-PRINTERS 53/10
PRIN2 X; MINI-PRINTERS 15/2
PRIN2ID X; MINI-PRINTERS 50/9
PRIN2PAIR X; MINI-PRINTERS 78/13
PRIN2STRING X; MINI-PRINTERS 60/11
PRIN2T X; MINI-PRINTERS 25/4
PRINT X; MINI-PRINTERS 22/3
PRINT1FEXPR(X); MINI-OBLIST 12/3
PRINT1FUNCTION(X); MINI-OBLIST 18/5
PRINTFEXPRS; MINI-OBLIST 9/2
PRINTFUNCTIONS; MINI-OBLIST 15/4
PROGBIND V; P-FAST-BINDER 32/2
PROGN X; MINI-EASY-SL 42/7
PROP X; MINI-PROPERTY- 5/1
PRTITM X; MINI-PRINTERS 92/15
PUT(X,Y,Z); MINI-PROPERTY- 17/3
PUTC X; P20T:XXX-HEADE 105/14
PUTD(FN,TYPE,BODY); MINI-PUTD-GETD 21/2
PUTINT I; P20T:XXX-HEADE 118/18
QUIT; P20T:XXX-HEADE 109/15
QUOTE A; MINI-EASY-SL 54/10
RAISECHAR C; MINI-TOKEN 88/10
RATOM; MINI-TOKEN 24/3
RDS N; MINI-RDS-WRS 5/1
READ1(X); MINI-READ 10/2
READ; MINI-READ 6/1
READID; MINI-TOKEN 77/9
READINT; MINI-TOKEN 50/6
READLIST(X); MINI-READ 15/3
READSTR; MINI-TOKEN 67/8
RECLAIM(); MINI-GC 13/2
REMPROP(X,Y); MINI-PROPERTY- 28/4
RESET(); SUB6 8/4
REVERSE U; MINI-EASY-SL 22/4
SAVEREGISTERS(A1, A2, A3, A4, A5, P-FUNCTION-PRI 193/12
SET(X,Y); MINI-SYMBOL-VA 3/1
SETQ A; MINI-EASY-SL 57/11
SETRAISE X; MINI-TOKEN 21/2
SHOULDBE(M,V,E); STUBS4 18/4
SHOW(N,S); MAIN3 49/6
SPACED(M); STUBS4 3/1
STDERROR M; MINI-ERROR-HAN 8/2
SUB1 N; MINI-ARITHMETI 16/4
SYMFNCBASE D; % THE ADDRESS OF CELL, P-FUNCTION-PRI 57/1
SYS2FIXN N; MINI-TYPE-CONV 9/2
SYS2INT N; %. CONVERT WORD TO LISP NUMBER MINI-TYPE-CONV 5/1
SYSCLEARIO EXPR 0) P20T:XXX-SYSTE 30/1
SYSCLOSE EXPR 1) P20T:XXX-SYSTE 145/9
SYSMAXBUFFER(FILEDESC); P20T:XXX-SYSTE 154/10
SYSOPENREAD(CHANNEL,FILENAME); P20T:XXX-SYSTE 44/2
SYSOPENWRITE(CHANNEL,FILENAME); P20T:XXX-SYSTE 56/3
SYSREADREC(FILEDESCRIPTOR,STRINGBUFFER); P20T:XXX-SYSTE 83/5
TAG X; STUBS5 25/3
TERPRI(); MINI-PRINTERS 89/14
TESTAPPLY(MSG,FN,ANSWER); MAIN6 107/11
TESTFASTAPPLY EXPR 0) MAIN6 102/10
TESTGET(); MAIN5 49/7
TESTSERIES(); MAIN5 45/6
TESTSERIES(); MAIN6 48/7
TESTUNDEFINED; MAIN5 59/8
TIMC(); P20T:XXX-HEADE 102/13
TIME(); MINI-TOP-LOOP 3/1
TIMES2(N1,N2); MINI-ARITHMETI 31/8
TYPEERROR(OFFENDER, FN, TYP); MINI-TYPE-ERRO 3/1
TYPEFILE F; MINI-DSKIN 3/1
UNBINDN N; MAIN5 64/9
UNDEFINEDFUNCTION EXPR 0) % FOR MISSING FUNCTION P20T:XXX-HEADE 135/21
UNDEFINEDFUNCTIONAUX EXPR 0) P-FUNCTION-PRI 214/13
UNDEFINEDFUNCTIONAUX; MAIN2 77/3
UNDEFINEDFUNCTIONAUX; MAIN3 68/8
UNDEFINEDFUNCTIONAUXAUX ; MAIN4 142/11
UNDEFINEDFUNCTIONAUXAUX; STUBS5 6/1
UPPERCASEP X; MINI-TOKEN 141/17
USAGETYPEERROR(OFFENDER, FN, TYP, USAGE); MINI-TYPE-ERRO 14/2
VERSIONNAME; P20T:XXX-HEADE 115/17
WHILE FL; MINI-LOOP-MACR 3/1
WHITEP X; MINI-TOKEN 131/14
WRITECHAR CH; MINI-CHAR-IO 6/2
WRS N; MINI-RDS-WRS 13/2
XCONS(X,Y); MINI-CONS-MKVE 17/3