21-Feb-83 10:59:57-MST,50099;000000000001 Return-path: <hplabs!GRISS@HP-HULK> Received: from UTAH-CS by UTAH-20; Mon 21 Feb 83 10:57:48-MST Date: 20 Feb 1983 1725-PST From: hplabs!GRISS@HP-HULK Subject: PK headers To: kessler@hp-venus cc: swanson@hp-venus The following may be of interest, in converting TEST series to bootstrap; Im still working on the program: 8333 lines, 655 procedures found !%CLEAR!-CATCH!-STACK(); PK:CATCH-THROW 151/18 !%RECLAIM(); PK:COPYING-GC 61/2 !%RECLAIM(); % GARBAGE COLLECTOR PK:COMPACTING- 164/2 !%THROW(TAG, VALUE); PK:CATCH-THROW 154/19 !%UNCATCH PREVIOUS; PK:CATCH-THROW 147/17 !*CATCH U; PK:CATCH-THROW 72/5 !*THROW(X,Y); PK:CATCH-THROW 75/6 ABS U; %. ABSOLUTE VALUE OF NUMBER PK:EASY-SL 173/23 ACONC(U, V); %. DESTRUCTIVELY ADD ELEMENT V TO THE TA PK:EASY-NON-SL 275/45 ADDTOOBLIST U; PK:OBLIST 43/1 ADJOIN(ELEMENT, ASET); %. ADD ELEMENT TO SET PK:SETS 22/3 ADJOINQ(ELEMENT, ASET); %. EQ VERSION OF ADJOIN PK:SETS 25/4 AND U; %. SEQUENTIALLY EVALUATE UNTIL NIL PK:EASY-SL 128/15 ANS N; %. RETURN NTH OUTPUT PK:TOP-LOOP 151/7 APPEND(U, V); %. COMBINE 2 LISTS PK:EASY-SL 232/37 APPLY(FN, ARGS); %. INDIRECT FUNCTION CALL PK:EVAL-APPLY 89/3 ASS(F, U, V); %. GENERALIZED ASSOC, F IS COMPARISON F PK:EASY-NON-SL 174/28 ASSOC(U, V); %. RETURN FIRST (U . XXX) IN V, OR NIL PK:EASY-SL 251/38 ATOM U; %. IS U A NON PAIR? PK:EASY-SL 35/1 ATSOC(U, V); %. EQ VERSION OF ASSOC PK:EASY-NON-SL 169/27 BACKTRACE(); PK:BACKTRACE 26/2 BACKTRACE1(ITEM, CODE); PK:BACKTRACE 64/5 BACKTRACERANGE(STARTING, ENDING, INTERPFLAG); PK:BACKTRACE 33/3 BIGFLOATFIX N; PK:ARITHMETIC 220/12 BIGP U; %. IS U A BIGNUM? PK:KNOWN-TO-CO 29/4 BLDMSG(FORMAT, ARG1, ARG2, ARG3, ARG4); %. PRINT TO S PK:PRINTF 174/6 BOTHTIMES U; %. EVALUATE AT COMPILE AND LOAD TIME PK:EVAL-WHEN 28/3 BR L; %. BREAK FUNCTIONS IN L PK:MINI-TRACE 197/13 BR!.1 NAM; % CALLED TO TRACE A SINGLE FUNCTION PK:MINI-TRACE 162/11 BR!.PRC(PN, B, A); % CALLED IN PLACE OF "BROKEN" COD PK:MINI-TRACE 128/10 BREAK(); %. ENTER TOP LOOP WITHIN EVALUATION PK:BREAK 31/1 BREAKCONTINUE(); PK:BREAK 73/4 BREAKEDIT(); PK:BREAK 93/8 BREAKERRMSG(); PK:BREAK 90/7 BREAKEVAL U; PK:BREAK 62/2 BREAKQUIT(); PK:BREAK 69/3 BREAKRETRY(); PK:BREAK 77/5 BSTACKOVERFLOW(); PK:BINDING 33/1 BSTACKUNDERFLOW(); PK:BINDING 40/2 BUILDRELOCATIONFIELDS(); PK:COMPACTING- 278/11 CAAAAR U; %. PK:CARCDR 34/1 CAAADR U; %. PK:CARCDR 38/2 CAAAR U; %. PK:CARCDR 99/17 CAADAR U; %. PK:CARCDR 42/3 CAADDR U; %. PK:CARCDR 46/4 CAADR U; %. PK:CARCDR 103/18 CAAR U; %. PK:CARCDR 141/27 CADAAR U; %. PK:CARCDR 50/5 CADADR U; %. PK:CARCDR 54/6 CADAR U; %. PK:CARCDR 107/19 CADDAR U; %. PK:CARCDR 58/7 CADDDR U; %. PK:CARCDR 62/8 CADDR U; %. PK:CARCDR 111/20 CADR U; %. PK:CARCDR 145/28 CAPTUREENVIRONMENT(); %. SAVE BINDINGS TO BE RESTORE PK:BINDING 47/3 CAR U; %. LEFT SUBTREE OF PAIR PK:KNOWN-TO-CO 49/9 CATCH U; PK:CATCH-THROW 64/4 CATCH!-ALL U; PK:CATCH-THROW 30/1 CATCHPOP(); PK:CATCH-THROW 89/7 CATCHPUSH(TAG, PC, SP, ENV); PK:CATCH-THROW 98/9 CATCHSETUP EXPR 1) %. CATCHSETUP(TAG) PK:CATCH-THROW 133/15 CATCHSETUPAUX(TAG, PC, SP); PK:CATCH-THROW 139/16 CATCHSTACKDECREMENT X; PK:CATCH-THROW 92/8 CATCHTAGAT X; PK:CATCH-THROW 114/11 CATCHTOPENV(); PK:CATCH-THROW 123/14 CATCHTOPPC(); PK:CATCH-THROW 117/12 CATCHTOPSP(); PK:CATCH-THROW 120/13 CATCHTOPTAG(); PK:CATCH-THROW 111/10 CDAAAR U; %. PK:CARCDR 66/9 CDAADR U; %. PK:CARCDR 70/10 CDAAR U; %. PK:CARCDR 115/21 CDADAR U; %. PK:CARCDR 74/11 CDADDR U; %. PK:CARCDR 78/12 CDADR U; %. PK:CARCDR 119/22 CDAR U; %. PK:CARCDR 149/29 CDDAAR U; %. PK:CARCDR 82/13 CDDADR U; %. PK:CARCDR 86/14 CDDAR U; %. PK:CARCDR 123/23 CDDDAR U; %. PK:CARCDR 90/15 CDDDDR U; %. PK:CARCDR 94/16 CDDDR U; %. PK:CARCDR 127/24 CDDR U; %. PK:CARCDR 153/30 CDR U; %. RIGHT SUBTREE OF PAIR PK:KNOWN-TO-CO 53/10 CHANNELEJECT C; %. SKIP TO TOP OF NEXT OUTPUT PAGE PK:OTHER-IO 34/1 CHANNELERROR(CHANNEL, MESSAGE); PK:IO-ERRORS 29/6 CHANNELLINELENGTH(CHN, LEN); %. SET MAXIMUM LINE LENG PK:OTHER-IO 41/3 CHANNELLPOSN CHN; %. NUMBER OF EOLS SINCE LAST FF PK:OTHER-IO 61/7 CHANNELNOTOPEN(CHN, CH); PK:IO-ERRORS 14/1 CHANNELPOSN CHN; %. NUMBER OF CHARACTERS SINCE LAST E PK:OTHER-IO 55/5 CHANNELPRIN1(CHANNEL, ITM); %. DISPLAY ITM IN READABL PK:PRINTERS 477/33 CHANNELPRIN2(CHANNEL, ITM); %. DISPLAY ITM ON CHANNEL PK:PRINTERS 435/30 CHANNELPRIN2T(C, U); %. PRIN2 AND TERPRI PK:EASY-NON-SL 333/50 CHANNELPRINT(C, U); %. DISPLAY U AND TERMINATE LINE PK:EASY-SL 345/54 CHANNELPRINTEVECTOR(CHANNEL, EVEC, LEVEL); PK:PRINTERS 363/26 CHANNELPRINTF(OUT!*, FORMAT, A1, A2, A3, A4, A5, A6, PK:PRINTF 205/9 CHANNELPRINTID(CHANNEL, ITM); PK:PRINTERS 187/16 CHANNELPRINTPAIR(CHANNEL, ITM, LEVEL); PK:PRINTERS 274/22 CHANNELPRINTSTRING(CHANNEL, STRNG); PK:PRINTERS 159/13 CHANNELPRINTUNBOUND(CHANNEL, ITM); PK:PRINTERS 218/17 CHANNELPRINTVECTOR(CHANNEL, VEC, LEVEL); PK:PRINTERS 324/24 CHANNELREAD CHANNEL; %. PARSE S-EXPRESSION FROM CHANN PK:READ 45/2 CHANNELREADCH CHN; %. READ A SINGLE CHARACTER ID PK:OTHER-IO 67/9 CHANNELREADCHAR FILEDES; %. READ ONE CHAR FROM CHANNE PK:CHAR-IO 28/1 CHANNELREADEOF(CHANNEL, EF); % HANDLE END-OF-FILE IN PK:READ 56/4 CHANNELREADLINE CHN; PK:TOKEN-SCANN 529/17 CHANNELREADLISTORDOTTEDPAIR(CHANNEL, PA); % READ MACR PK:READ 67/6 CHANNELREADQUOTEDEXPRESSION(CHANNEL, QT); % READ MACR PK:READ 64/5 CHANNELREADRIGHTPAREN(CHANNEL, TOK); PK:READ 98/7 CHANNELREADTOKEN CHANNEL; %. TOKEN SCANNER PK:TOKEN-SCANN 162/7 CHANNELREADTOKENWITHHOOKS CHANNEL; % SCAN TOKEN W/RE PK:READ 34/1 CHANNELREADVECTOR CHANNEL; % READ MACRO [ PK:READ 111/9 CHANNELSPACES(C, N); %. PRIN2 N SPACES PK:EASY-NON-SL 341/52 CHANNELTAB(CHN, N); %. SPACES TO COLUMN N PK:EASY-NON-SL 347/54 CHANNELTERPRI CHN; %. TERMINATE CURRENT OUTPUT LINE PK:OTHER-IO 78/11 CHANNELTYI CHN; %. READ ONE CHAR ASCII VALUE PK:IO-EXTENSIO 14/1 CHANNELTYO(CHN, CH); %. WRITE ONE CHAR ASCII VALUE PK:IO-EXTENSIO 17/2 CHANNELUNREADCHAR(CHANNEL, CH); %. INPUT BACKUP FU PK:CHAR-IO 72/5 CHANNELWRITEBITSTRAUX(CHANNEL, NUMBER, DIGITMASK, EXP PK:PRINTERS 123/7 CHANNELWRITEBITSTRING(CHANNEL, NUMBER, DIGITMASK, EXP PK:PRINTERS 119/6 CHANNELWRITEBLANKOREOL CHANNEL; PK:PRINTERS 240/20 CHANNELWRITEBYTES(CHANNEL, ITM); PK:PRINTERS 417/29 CHANNELWRITECHAR(FILEDES, CH); %. WRITE ONE CHAR TO C PK:CHAR-IO 47/3 CHANNELWRITECODEPOINTER(CHANNEL, CP); PK:PRINTERS 223/18 CHANNELWRITEEVECTOR(CHANNEL, EVEC, LEVEL); PK:PRINTERS 346/25 CHANNELWRITEFIXNUM(CHANNEL, NUM); PK:PRINTERS 137/9 CHANNELWRITEFLOAT(CHANNEL, LISPFLOATPTR); PK:PRINTERS 156/12 CHANNELWRITEHALFWORDS(CHANNEL, ITM); PK:PRINTERS 398/28 CHANNELWRITEID(CHANNEL, ITM); PK:PRINTERS 170/14 CHANNELWRITEINTEGER(CHANNEL, NUM); PK:PRINTERS 140/10 CHANNELWRITEPAIR(CHANNEL, ITM, LEVEL); PK:PRINTERS 246/21 CHANNELWRITESTRING(CHANNEL, STRNG); PK:PRINTERS 82/2 CHANNELWRITESYSFLOAT(CHANNEL, FLOATPTR); PK:PRINTERS 150/11 CHANNELWRITESYSINTEGER(CHANNEL, NUMBER, RADIX); PK:PRINTERS 99/4 CHANNELWRITEUNBOUND(CHANNEL, ITM); PK:PRINTERS 182/15 CHANNELWRITEUNKNOWNITEM(CHANNEL, ITM); PK:PRINTERS 235/19 CHANNELWRITEVECTOR(CHANNEL, VEC, LEVEL); PK:PRINTERS 302/23 CHANNELWRITEWORDS(CHANNEL, ITM); PK:PRINTERS 380/27 CHECKANDSETMARK P; PK:COMPACTING- 232/8 CHECKLINEFIT(LEN, CHN, FN, ITM); PK:PRINTERS 77/1 CLEARBINDINGS(); %. RESTORE BINDINGS TO TOP LEVEL PK:BINDING 56/5 CLEARCOMPRESSCHANNEL(); PK:EXPLODE-COM 74/8 CLOSE FILEDES; %. END ACCESS TO FILE PK:OPEN-CLOSE 55/2 CODE!-NUMBER!-OF!-ARGUMENTS CP; PK:PUTD-GETD 115/4 CODEP U; %. IS U A CODE POINTER? PK:KNOWN-TO-CO 20/1 COMMENTOUTCODE U; %. COMMENT OUT A SINGLE EXPRESSION PK:EVAL-WHEN 17/1 COMPACTHEAP(); PK:COMPACTING- 409/17 COMPILETIME U; %. EVALUATE AT COMPILE TIME ONLY PK:EVAL-WHEN 20/2 COMPRESS COMPRESSLIST!*; %. CHAR-LIST --> S-EXPR PK:EXPLODE-COM 83/10 COMPRESSERROR(); PK:EXPLODE-COM 80/9 COMPRESSREADCHAR CHANNEL; PK:EXPLODE-COM 63/7 CONCAT(R1, R2); %. CONCATENATE 2 SEQUENCES PK:SEQUENCE 251/7 COND U; %. CONDITIONAL EVALUATION CONSTRUCT PK:EASY-SL 145/20 CONS(U, V); %. CONSTRUCT PAIR WITH CAR U AND CDR V PK:CONS-MKVECT 33/2 CONST FORM; PK:DEFCONST 30/3 CONSTANTP U; %. IS EVAL U EQ U BY DEFINITION? PK:EASY-SL 38/2 CONTERROR U; %. SET UP FOR CONTINUABLEERROR PK:CONT-ERROR 23/1 CONTINUABLEERROR(ERRNUM, MESSAGE, ERRORFORM!*); %. MA PK:ERROR-HANDL 69/5 COPY U; %. COPY ALL PAIRS IN S-EXPR PK:EASY-NON-SL 254/41 COPYD(NEW, OLD); %. FUNDEF NEW := FUNDEF OLD; PK:EASY-NON-SL 61/10 COPYFROMALLBASES(); PK:COPYING-GC 93/4 COPYFROMBASE P; PK:COPYING-GC 120/6 COPYFROMRANGE(LO, HI); PK:COPYING-GC 110/5 COPYITEM X; PK:COPYING-GC 123/7 COPYITEM1 S; % COPIER FOR GC PK:COPYING-GC 138/8 COPYSTRING S; %. COPY TO NEW HEAP STRING PK:COPIERS 28/2 COPYSTRINGTOFROM(NEW, OLD); %. COPY ALL CHARS IN OLD PK:COPIERS 17/1 COPYVECTOR S; %. COPY TO NEW VECTOR IN HEAP PK:COPIERS 50/5 COPYVECTORTOFROM(NEW, OLD); %. MOVE ELEMENTS, DON'T R PK:COPIERS 40/4 COPYWARRAY(NEW, OLD, UPLIM); %. COPY UPLIM + 1 WORDS PK:COPIERS 35/3 COPYWRDS S; %. ALLOCATE NEW WRDS ARRAY IN HEAP PK:COPIERS 67/7 COPYWRDSTOFROM(NEW, OLD); %. LIKE COPYWARRAY IN HEAP PK:COPIERS 57/6 DE U; %. TERSE SYNTAX FOR PUTD CALL FOR EXPR PK:EASY-SL 72/7 DECLAREFLUIDORGLOBAL(IDLIST, FG); PK:FLUID-GLOBA 28/1 DECLAREFLUIDORGLOBAL1(U, FG); PK:FLUID-GLOBA 31/2 DEFARITH1ENTRY U; PK:ARITHMETIC 243/17 DEFARITH1PREDICATEENTRY U; PK:ARITHMETIC 246/18 DEFARITH2ENTRY U; PK:ARITHMETIC 240/16 DEFARITHENTRY L; PK:ARITHMETIC 258/21 DEFAUTOLOAD U; PK:AUTOLOAD 17/1 DEFCONST FORM; %. DEFCONST(NAME, VALUE, ...); PK:DEFCONST 14/1 DEFLIST(DLIST, INDICATOR); %. PUT MANY IDS, SAME INDI PK:EASY-SL 277/42 DEFNPRINT U; % HANDLE CASE OF !*DEFN:=T PK:TOP-LOOP 119/2 DEFNPRINT1 U; PK:TOP-LOOP 130/3 DEL(F, U, V); %. GENERALIZED DELETE, F IS COMPARISON PK:EASY-NON-SL 152/24 DELASC(U, V); %. REMOVE FIRST (U . XXX) FROM V PK:EASY-NON-SL 192/31 DELASCIP(U, V); %. DESTRUCTIVE DELASC PK:EASY-NON-SL 203/33 DELASCIP1(U, V); % AUXILIARY FUNCTION FOR DELASCIP PK:EASY-NON-SL 197/32 DELATQ(U, V); %. EQ VERSION OF DELASC PK:EASY-NON-SL 210/34 DELATQIP(U, V); %. DESTRUCTIVE DELATQ PK:EASY-NON-SL 221/36 DELATQIP1(U, V); % AUXILIARY FUNCTION FOR DELATQIP PK:EASY-NON-SL 215/35 DELBPS(BOTTOM, TOP); %. RETURN SPACE TO BPS PK:ALLOCATORS 133/12 DELETE(U, V); %. REMOVE FIRST TOP-LEVEL U IN V PK:EASY-SL 282/43 DELETIP(U, V); %. DESTRUCTIVE DELETE PK:EASY-NON-SL 140/22 DELETIP1(U, V); % AUXILIARY FUNCTION FOR DELETIP PK:EASY-NON-SL 135/21 DELHEAP(LOWPOINTER, HIGHPOINTER); PK:ALLOCATORS 45/2 DELQ(U, V); %. EQ VERSION OF DELETE PK:EASY-NON-SL 147/23 DELQIP(U, V); %. DESTRUCTIVE DELQ PK:EASY-NON-SL 162/26 DELQIP1(U, V); % AUXILIARY FUNCTION FOR DELQIP PK:EASY-NON-SL 157/25 DELWARRAY(BOTTOM, TOP); %. RETURN SPACE FOR WARRAY PK:ALLOCATORS 147/14 DF U; %. TERSE SYNTAX FOR PUTD CALL FOR FEXPR PK:EASY-SL 77/8 DIGIT U; %. IS U AN ID WHOSE PRINT NAME IS A DIGIT? PK:OTHERS-SL 24/2 DIGITTONUMBER D; PK:TOKEN-SCANN 462/9 DIVIDE(U, V); %. DOTTED PAIR REMAINDER AND QUOTIENT PK:EASY-SL 176/24 DM U; %. TERSE SYNTAX FOR PUTD CALL FOR MACRO PK:EASY-SL 82/9 DN U; %. TERSE SYNTAX FOR PUTD CALL FOR NEXPR PK:EASY-SL 87/10 DOPNTH(U, N); PK:EASY-NON-SL 265/43 DOTCONTEXTERROR(); % PARSING ERROR PK:READ 106/8 DS FORM; %. DEFINE SMACRO PK:DEFINE-SMAC 29/3 DSKIN F; %. READ A FILE (DSKIN "FILE") PK:DSKIN 27/1 DSKINDEFNPRINT U; % HANDLE CASE OF !*DEFN:=T PK:DSKIN 52/3 DSKINEVAL U; PK:DSKIN 49/2 EDCOPY(L,N); PK:MINI-EDITOR 111/5 EDIT S; %. EDIT A STRUCTURE, S PK:MINI-EDITOR 44/2 EDIT0(S,READER,PRINTER); PK:MINI-EDITOR 54/3 EDITF(FN); %. EDIT A COPY OF FUNCTION BODY PK:MINI-EDITOR 28/1 EGETV(VEC, I); %. RETRIEVE THE I'TH ENTRY OF PK:VECTORS 63/5 EHELP; PK:MINI-EDITOR 140/10 EJECT(); %. SKIP TO TOP OF NEXT OUTPUT PAGE PK:OTHER-IO 38/2 EPUTV(VEC, I, VAL); %. STORE VAL AT I'TH POSITION PK:VECTORS 80/6 EQ(U, V); %. ARE U AND V IDENTICAL? PK:KNOWN-TO-CO 23/2 EQCAR(U, V); %. CAR U EQ V PK:EASY-NON-SL 44/5 EQN(U, V); %. EQ OR NUMERIC EQUALITY PK:EQUAL 21/1 EQSTR(U, V); %. EQ OR STRING EQUALITY PK:EQUAL 62/3 ERROR(NUMBER, MESSAGE); %. THROW TO ERRORSET PK:ERROR-ERROR 39/1 ERRORPRINTF(FORMAT, A1, A2, A3, A4); % ALSO A5..A14 PK:PRINTF 153/4 ERRORSET(FORM, !*EMSGP, !*INNER!*BACKTRACE); %. PROTE PK:ERROR-ERROR 58/3 ERRPRIN U; %. `PRIN1 WITH QUOTES' PK:PRINTF 186/7 ERRSET U; PK:ERROR-ERROR 52/2 EUPBV V; %. UPPER LIMIT OF VECTOR V PK:VECTORS 97/7 EVAL U; %. INTERPRET S-EXPRESSION AS PROGRAM PK:EVAL-APPLY 108/4 EVALINITFORMS(); %. EVALUATE AND CLEAR INITFORMS!* PK:TOP-LOOP 209/14 EVAND U; %. EXPR SUPPORT FOR AND PK:EASY-SL 131/16 EVAND1 U; % AUXILIARY FUNCTION FOR EVAND PK:EASY-SL 134/17 EVBR L; PK:MINI-TRACE 200/14 EVCOND U; %. EXPR SUPPORT FOR COND PK:EASY-SL 148/21 EVDEFCONST(CONSTNAME, CONSTVALUE); PK:DEFCONST 27/2 EVECTORP V; PK:VECTORS 60/4 EVLIS U; %. FOR EACH X IN U COLLECT EVAL X PK:EASY-SL 322/49 EVLOAD U; PK:LOAD 60/2 EVOR U; %. EXPR SUPPORT FOR OR PK:EASY-SL 142/19 EVPROGN U; %. EXPR SUPPORT FOR PROGN, EVAL, COND PK:EASY-SL 118/14 EVRELOAD U; PK:LOAD 66/4 EVTR L; PK:MINI-TRACE 90/5 EVUNBR L; PK:MINI-TRACE 206/16 EVUNTR L; PK:MINI-TRACE 96/7 EXIT U; %. TO LEAVE CURRENT ITERATION PK:LOOP-MACROS 49/2 EXPAND(L, FN); %. L = (A B C) --> (FN A (FN B C)) PK:EASY-SL 329/51 EXPANDSETF(LHS, RHS); PK:LISP-MACROS 48/3 EXPLODE U; %. S-EXPR --> CHAR-LIST PK:EXPLODE-COM 28/2 EXPLODE2 U; %. PRIN2 VERSION OF EXPLODE PK:EXPLODE-COM 36/3 EXPLODEWRITECHAR(CHANNEL, CH); PK:EXPLODE-COM 24/1 EXPRP U; %. IS U AN EXPR? PK:EASY-NON-SL 47/6 EXPT(X, N); PK:EASY-SL 47/5 EXTRAARGUMENTP U; PK:FASLIN 25/3 FASLIN FILE; PK:FASLIN 34/5 FATALERROR S; PK:ERROR-HANDL 31/1 FEXPRP U; %. IS U AN FEXPR? PK:EASY-NON-SL 53/8 FILEP EXPR 1) PK:EASY-NON-SL 360/56 FILEP F; %. IS F AN EXISTING FILE? PK:EASY-NON-SL 374/57 FINDCATCHMARKANDTHROW(TAG, VALUE, P); PK:CATCH-THROW 185/22 FINDFIRST(A,S,TRC); %. FIND OCCURANCE OF A IN S PK:MINI-EDITOR 120/7 FIRST U; %. FIRST ELEMENT OF A LIST PK:EASY-NON-SL 95/13 FIXP U; %. IS U AN INTEGER? PK:OTHERS-SL 19/1 FLAG(IDLIST, INDICATOR); %. MARK ALL IN IDLIST WITH I PK:PROPERTY-LI 92/6 FLAG1(U, INDICATOR); PK:PROPERTY-LI 98/7 FLAGP(U, INDICATOR); %. IS U MARKED WITH INDICATOR? PK:PROPERTY-LI 43/3 FLATSIZE U; %. CHARACTER LENGTH OF S-EXPRESSION PK:EXPLODE-COM 49/5 FLATSIZE2 U; %. PRIN2 VERSION OF FLATSIZE PK:EXPLODE-COM 55/6 FLATSIZEWRITECHAR(CHANNEL, CH); PK:EXPLODE-COM 46/4 FLOATADD1 FIRSTARG; PK:ARITHMETIC 432/41 FLOATDIFFERENCE(FIRSTARG, SECONDARG); PK:ARITHMETIC 300/25 FLOATFIX ARG; PK:ARITHMETIC 464/47 FLOATGREATERP(FIRSTARG, SECONDARG); PK:ARITHMETIC 411/37 FLOATINTARG ARG; PK:ARITHMETIC 472/48 FLOATLESSP(FIRSTARG, SECONDARG); PK:ARITHMETIC 420/39 FLOATMINUS FIRSTARG; PK:ARITHMETIC 459/46 FLOATMINUSP FIRSTARG; PK:ARITHMETIC 485/50 FLOATONEP FIRSTARG; PK:ARITHMETIC 501/54 FLOATP U; %. IS U A FLOATING POINT NUMBER? PK:KNOWN-TO-CO 26/3 FLOATPLUS2(FIRSTARG, SECONDARG); PK:ARITHMETIC 283/23 FLOATQUOTIENT(FIRSTARG, SECONDARG); PK:ARITHMETIC 340/29 FLOATREMAINDER(FIRSTARG, SECONDARG); PK:ARITHMETIC 365/31 FLOATSUB1 FIRSTARG; PK:ARITHMETIC 443/43 FLOATTIMES2(FIRSTARG, SECONDARG); PK:ARITHMETIC 319/27 FLOATZEROP FIRSTARG; PK:ARITHMETIC 493/52 FLUID IDLIST; %. DECLARE ALL IN IDLIST AS FLUID VARS PK:FLUID-GLOBA 43/3 FLUID1 U; %. DECLARE U FLUID PK:FLUID-GLOBA 46/4 FLUIDP U; %. IS U A FLUID VARIABLE? PK:FLUID-GLOBA 49/5 FOR U; PK:LOOP-MACROS 85/6 FOREACH U; %. MACRO FOR MAP FUNCTIONS PK:LOOP-MACROS 15/1 FOURTH U; %. FOURTH ELEMENT OF A LIST PK:EASY-NON-SL 104/16 FUNCTION U; %. SAME AS QUOTE IN THIS VERSION PK:EASY-SL 339/53 GCERROR(MESSAGE, P); PK:COMPACTING- 442/18 GCMESSAGE(); PK:COMPACTING- 447/19 GCSTATS(); PK:COPYING-GC 193/10 GENSYM(); %. GENERATE UNIQUE, UNINTERNED SYMBOL PK:OBLIST 160/10 GENSYM1 N; % AUXILIARY FUNCTION FOR GENSYM PK:OBLIST 164/11 GEQ(U, V); %. GREATER THAN OR EQUAL TO PK:EASY-NON-SL 38/3 GET(U, INDICATOR); %. RETRIEVE VALUE STORED FOR U WIT PK:PROPERTY-LI 69/5 GETD U; %. LOOKUP FUNCTION DEFINITION OF U PK:PUTD-GETD 42/1 GETFNTYPE U; PK:PROPERTY-LI 64/4 GETV(VEC, I); %. RETRIEVE THE I'TH ENTRY OF VEC PK:VECTORS 19/1 GLOBAL IDLIST; %. DECLARE ALL IN IDLIST AS GLOBAL VA PK:FLUID-GLOBA 52/6 GLOBAL1 U; %. DECLARE U GLOBAL PK:FLUID-GLOBA 55/7 GLOBALINSTALL S; % ADD NEW ID WITH PNAME S TO OBLIST PK:OBLIST 197/15 GLOBALLOOKUP S; % LOOKUP STRING S IN GLOBAL OBLIST PK:OBLIST 191/14 GLOBALP U; %. IS U A GLOBAL VARIABLE PK:FLUID-GLOBA 58/8 GLOBALREMOVE S; % REMOVE ID WITH PNAME S FROM OBLIST PK:OBLIST 209/16 GO U; %. GOTO LABEL WITHIN PROG PK:PROG-AND-FR 46/2 GTBPS N; %. ALLOCATE N WORDS FOR BINARY CODE PK:ALLOCATORS 122/11 GTCONSTSTR N; %. ALLOCATE UN-COLLECTED STRING FOR PR PK:ALLOCATORS 56/4 GTFIXN(); %. ALLOCATE SPACE FOR A FIXNUM PK:ALLOCATORS 88/8 GTFLTN(); %. ALLOCATE SPACE FOR A FLOAT PK:ALLOCATORS 95/9 GTHALFWORDS N; %. ALLOCATE SPACE FOR N HALFWORDS PK:ALLOCATORS 64/5 GTHEAP N; %. GET HEAP BLOCK OF N WORDS PK:ALLOCATORS 33/1 GTID(); %. ALLOCATE A NEW ID PK:ALLOCATORS 104/10 GTSTR N; %. ALLOCATE SPACE FOR A STRING N CHARS PK:ALLOCATORS 48/3 GTVECT N; %. ALLOCATE SPACE FOR A VECTOR N ITEMS PK:ALLOCATORS 71/6 GTWARRAY N; %. ALLOCATE N WORDS FOR WVAR/WARRAY/WSTRI PK:ALLOCATORS 136/13 GTWRDS N; %. ALLOCATE SPACE FOR N UNTRACED WORDS PK:ALLOCATORS 80/7 HALFWORDSEQUAL(U, V); PK:EQUAL 92/6 HARDCONS(U, V); % BASIC CONS WITH CAR U AND CDR V PK:CONS-MKVECT 24/1 HASHFUNCTION S; % COMPUTE HASH FUNCTION OF STRING PK:OBLIST 93/5 HELPBREAK(); PK:BREAK 86/6 HIST AL; %. PRINT HISTORY ENTRIES PK:TOP-LOOP 154/8 HISTPRINT(L, N, M); PK:TOP-LOOP 177/9 ID2INT U; %. RETURN ID INDEX AS LISP NUMBER PK:TYPE-CONVER 25/1 ID2STRING U; %. RETURN PRINT NAME OF U (NOT COPY) PK:TYPE-CONVER 67/8 IDP U; %. IS U AN ID? PK:KNOWN-TO-CO 32/5 ILLEGALSTANDARDCHANNELCLOSE CHN; PK:IO-ERRORS 23/4 IMPLODE COMPRESSLIST!*; %. COMPRESS WITH IDS INTERNED PK:EXPLODE-COM 90/11 IMPORTS L; PK:LOAD 101/6 INDEXERROR(OFFENDER, FN); PK:TYPE-ERRORS 26/3 INDX(R1, R2); %. ELEMENT OF SEQUENCE PK:SEQUENCE 24/1 INITNEWID(U, V); % INITIALIZE CELLS OF AN ID TO DEFAU PK:OBLIST 85/4 INITOBLIST(); PK:OBLIST 219/17 INOBLIST U; % U IS A STRING. RETURNS AN OBARRAY POIN PK:OBLIST 104/6 INP N; %. RETURN NTH INPUT PK:TOP-LOOP 145/5 INSTANTIATEINFORM(FORMALS, FORM); PK:DEFINE-SMAC 21/1 INT2CODE N; %. CONVERT LISP INTEGER TO CODE POINTER PK:TYPE-CONVER 53/5 INT2ID U; %. RETURN ID CORRESPONDING TO INDEX PK:TYPE-CONVER 29/2 INT2SYS N; %. CONVERT LISP INTEGER TO UNTAGGED PK:TYPE-CONVER 38/3 INTADD1 FIRSTARG; PK:ARITHMETIC 426/40 INTDIFFERENCE(FIRSTARG, SECONDARG); PK:ARITHMETIC 294/24 INTERN U; %. ADD U TO OBLIST PK:OBLIST 124/7 INTERNGENSYM(); %. GENERATE UNIQUE, INTERNED SYMBOL PK:OBLIST 177/12 INTERNP U; %. IS U AN INTERNED ID? PK:OBLIST 150/9 INTERPBACKTRACE(); PK:BACKTRACE 19/1 INTGREATERP(FIRSTARG, SECONDARG); PK:ARITHMETIC 408/36 INTHISCASE(CASEEXPR,CASES); PK:LISP-MACROS 37/1 INTLAND(FIRSTARG, SECONDARG); PK:ARITHMETIC 377/32 INTLESSP(FIRSTARG, SECONDARG); PK:ARITHMETIC 417/38 INTLNOT X; PK:ARITHMETIC 448/44 INTLOR(FIRSTARG, SECONDARG); PK:ARITHMETIC 384/33 INTLSHIFT(FIRSTARG, SECONDARG); PK:ARITHMETIC 400/35 INTLXOR(FIRSTARG, SECONDARG); PK:ARITHMETIC 391/34 INTMINUS FIRSTARG; PK:ARITHMETIC 453/45 INTMINUSP FIRSTARG; PK:ARITHMETIC 482/49 INTONEP FIRSTARG; PK:ARITHMETIC 498/53 INTPLUS2(FIRSTARG, SECONDARG); PK:ARITHMETIC 277/22 INTQUOTIENT(FIRSTARG, SECONDARG); PK:ARITHMETIC 330/28 INTREMAINDER(FIRSTARG, SECONDARG); PK:ARITHMETIC 355/30 INTSUB1 FIRSTARG; PK:ARITHMETIC 437/42 INTTIMES2(FIRSTARG, SECONDARG); PK:ARITHMETIC 313/26 INTZEROP FIRSTARG; PK:ARITHMETIC 490/51 IOERROR(MESSAGE); PK:IO-ERRORS 26/5 LAMBDAAPPLY(FN, ARGS); %. FN IS LAMBDA, UNEVALED ARGS PK:EVAL-APPLY 61/2 LAMBDAEVALAPPLY(FN, ARGS); %. FN IS LAMBDA, ARGS TO B PK:EVAL-APPLY 45/1 LAMBIND V; % V IS VECTOR OF IDS PK:FAST-BINDER 22/1 LAPIN FIL; PK:DSKIN 67/4 LASTCAR X; %. LAST ELEMENT OF LIST PK:EASY-NON-SL 248/39 LASTPAIR X; %. LAST PAIR OF LIST PK:EASY-NON-SL 251/40 LBIND1(IDNAME, VALUETOBIND); %. SUPPORT FOR LAMBDA PK:BINDING 63/7 LCONC(PTR, LST); %. NCONC MAINTAINING POINTER TO END PK:EASY-NON-SL 294/47 LENGTH U; %. LENGTH OF LIST U PK:OTHERS-SL 35/4 LENGTH1(U, N); PK:OTHERS-SL 38/5 LEQ(U, V); %. LESS THAN OR EQUAL TO PK:EASY-NON-SL 41/4 LINELENGTH LEN; %. SET MAXIMUM LINE LENGTH PK:OTHER-IO 52/4 LISP2CHAR U; %. CONVERT LISP ITEM TO SYSLSP CHAR PK:TYPE-CONVER 43/4 LISPEQUAL(U, V); %. STRUCTURAL EQUALITY PK:EQUAL 37/2 LIST U; %. CONSTRUCT LIST OF ARGUMENTS PK:EASY-SL 66/6 LIST2(U, V); %. 2-ARGUMENT EXPR FOR LIST PK:COMP-SUPPOR 33/6 LIST2SET L; %. REMOVE REDUNDANT ELEMENTS FROM L PK:SETS 12/1 LIST2SETQ L; %. EQ VERSION OF LIST2SET PK:SETS 17/2 LIST2STRING P; %. MAKE STRING WITH ASCII VALUES IN P PK:TYPE-CONVER 95/11 LIST2VECTOR L; %. CONVERT LIST TO VECTOR PK:TYPE-CONVER 115/13 LIST3(U, V, W); %. 3-ARGUMENT EXPR FOR LIST PK:COMP-SUPPOR 30/5 LIST4(U, V, W, X); %. 4-ARGUMENT EXPR FOR LIST PK:COMP-SUPPOR 27/4 LIST5(U, V, W, X, Y); %. 5-ARGUMENT EXPR FOR LIST PK:COMP-SUPPOR 24/3 LITER U; %. IS U A SINGLE CHARACTER ALPHABETIC ID? PK:OTHERS-SL 27/3 LOAD U; PK:LOAD 57/1 LOAD1 U; PK:LOAD 70/5 LOADTIME U; %. EVALUATE AT LOAD TIME ONLY PK:EVAL-WHEN 33/4 LOCALIDNUMBERP U; PK:FASLIN 19/1 LOCALTOGLOBALID U; PK:FASLIN 22/2 LOOKUPORADDTOOBLIST U; PK:OBLIST 63/2 LPOSN(); %. NUMBER OF EOLS SINCE LAST FF PK:OTHER-IO 64/8 MACROP U; %. IS U A MACRO? PK:EASY-NON-SL 50/7 MAKE!-BYTES(L, C); %. MAKE BYTE VECTOR WITH UPB L, AL PK:SEQUENCE 349/10 MAKE!-HALFWORDS(L, C); %. MAKE H VECT WITH UPB L, ALL PK:SEQUENCE 359/11 MAKE!-VECTOR(L, C); %. MAKE VECT WITH UPB L, ALL ITEM PK:SEQUENCE 380/13 MAKE!-WORDS(L, C); %. MAKE W VECT WITH UPB L, ALL ITE PK:SEQUENCE 370/12 MAKEARGLIST N; PK:AUTOLOAD 51/2 MAKEBUFINTOFLOAT EXPONENT; PK:TOKEN-SCANN 139/6 MAKEBUFINTOID(); PK:TOKEN-SCANN 106/2 MAKEBUFINTOLISPINTEGER(RADIX, SIGN); PK:TOKEN-SCANN 126/5 MAKEBUFINTOSTRING(); PK:TOKEN-SCANN 115/3 MAKEBUFINTOSYSNUMBER(RADIX, SIGN); PK:TOKEN-SCANN 121/4 MAKEDS(MACRONAME, FORMALS, FORM); PK:DEFINE-SMAC 47/4 MAKEEXTRAARGUMENT U; PK:FASLIN 28/4 MAKEFIXNUM N; PK:ARITHMETIC 213/11 MAKEIDFREELIST(); PK:COMPACTING- 258/10 MAKEIDFREELIST(); PK:COPYING-GC 173/9 MAKEINPUTAVAILABLE(); PK:TOKEN-SCANN 548/19 MAKESTRINGINTOBITSTRING(STRNG, RADIX, RADIXEXPONENT, PK:TOKEN-SCANN 488/12 MAKESTRINGINTOLISPINTEGER(S, RADIX, SIGN); PK:TOKEN-SCANN 468/10 MAKESTRINGINTOSYSINTEGER(STRNG, RADIX, SIGN); PK:TOKEN-SCANN 471/11 MAKEUNBOUND U; %. MAKE U AN UNBOUND ID PK:SYMBOL-VALU 19/2 MAP(L, FN); %. FOR EACH X ON L DO FN(X); PK:EASY-SL 203/31 MAP2(L, M, FN); %. FOR EACH X, Y ON L, M DO FN(X, Y) PK:EASY-NON-SL 313/48 MAPC(L, FN); %. FOR EACH X IN L DO FN(X); PK:EASY-SL 208/32 MAPC2(L, M, FN); %. FOR EACH X, Y IN L, M DO FN(X, Y PK:EASY-NON-SL 322/49 MAPCAN(L, FN); %. FOR EACH X IN L CONC FN(X); PK:EASY-SL 213/33 MAPCAR(L, FN); %. FOR EACH X IN L COLLECT FN(X); PK:EASY-SL 221/35 MAPCON(L, FN); %. FOR EACH X ON L CONC FN(X); PK:EASY-SL 217/34 MAPLIST(L, FN); %. FOR EACH X ON L COLLECT FN(X); PK:EASY-SL 225/36 MAPOBL F; %. APPLY F TO EVERY INTERNED ID PK:OBLIST 181/13 MARKANDCOPYFROMID X; PK:COPYING-GC 85/3 MARKFROMALLBASES(); PK:COMPACTING- 181/3 MARKFROMBASE BASE; PK:COMPACTING- 212/7 MARKFROMONESYMBOL X; PK:COMPACTING- 201/5 MARKFROMRANGE(LOW, HIGH); PK:COMPACTING- 209/6 MARKFROMSYMBOLS(); PK:COMPACTING- 191/4 MARKFROMVECTOR INFO; PK:COMPACTING- 250/9 MAX U; %. NUMERIC MAXIMUM OF SEVERAL ARGUMENTS PK:EASY-SL 182/25 MAX2(U, V); %. MAXIMUM OF 2 ARGUMENTS PK:EASY-SL 185/26 MEM(F, U, V); %. GENERALIZED MEMBER, F IS COMPARISON PK:EASY-NON-SL 182/29 MEMBER(U, V); %. FIND U IN V PK:EASY-SL 289/44 MEMQ(U, V); % EQ VERSION OF MEMBER PK:EASY-SL 294/45 MIN U; %. NUMERIC MINIMUM OF SEVERAL ARGUMENTS PK:EASY-SL 188/27 MIN2(U, V); %. MINIMUM OF 2 ARGUMENTS PK:EASY-SL 191/28 MKEVECTOR(N,ETAG); %. ALLOCATE EVECT, INIT ALL T PK:CONS-MKVECT 85/6 MKFLAGVAR U; % SHOULD BE REDEFINED IN PACKAGE.RED PK:ONOFF 27/2 MKQUOTE U; %. EVAL MKQUOTE U EQ U PK:EASY-NON-SL 89/12 MKSTRING(L, C); %. MAKE STR WITH UPB L, ALL CHARS C PK:SEQUENCE 339/9 MKVECT N; %. ALLOCATE VECTOR, INIT ALL TO NIL PK:CONS-MKVECT 72/5 NCONC(U, V); %. DESTRUCTIVE VERSION OF APPEND PK:EASY-SL 299/46 NCONS U; %. U . NIL, OR 1-ARGUMENT EXPR FOR LIST PK:COMP-SUPPOR 15/1 NCONS U; %. U . NIL PK:CONS-MKVECT 59/4 NE(U, V); %. NOT EQ PK:EASY-NON-SL 35/2 NEQ(U, V); %. NOT EQUAL (SHOULD BE CHANGED TO NOT EQ) PK:EASY-NON-SL 32/1 NEWID S; %. ALLOCATE UN-INTERNED ID WITH PRINT NAME PK:OBLIST 82/3 NEXPRP U; %. IS U AN NEXPR? PK:EASY-NON-SL 56/9 NEXT U; %. CONTINUE LOOP PK:LOOP-MACROS 57/3 NONCHARACTERERROR(OFFENDER, FN); PK:TYPE-ERRORS 44/9 NONIDERROR(OFFENDER, FN); PK:TYPE-ERRORS 32/5 NONINTEGER1ERROR(ARG, DISPATCHTABLE); PK:ARITHMETIC 146/5 NONINTEGER2ERROR(FIRSTARG, SECONDARG, DISPATCHTABLE); PK:ARITHMETIC 139/4 NONINTEGERERROR(OFFENDER, FN); PK:TYPE-ERRORS 38/7 NONIOCHANNELERROR(OFFENDER, FN); PK:TYPE-ERRORS 59/14 NONNUMBERERROR(OFFENDER, FN); PK:TYPE-ERRORS 35/6 NONPAIRERROR(OFFENDER, FN); PK:TYPE-ERRORS 29/4 NONPOSITIVEINTEGERERROR(OFFENDER, FN); PK:TYPE-ERRORS 41/8 NONSEQUENCEERROR(OFFENDER, FN); PK:TYPE-ERRORS 56/13 NONSTRINGERROR(OFFENDER, FN); PK:TYPE-ERRORS 47/10 NONVECTORERROR(OFFENDER, FN); PK:TYPE-ERRORS 50/11 NONWORDS(OFFENDER, FN); PK:TYPE-ERRORS 53/12 NOT U; %. EQUIVALENT TO NULL PK:EASY-SL 167/22 NTH(U, N); %. N-TH ELEMENT OF LIST PK:EASY-NON-SL 261/42 NTHENTRY N; PK:TOP-LOOP 138/4 NULL U; %. IS U EQ NIL? PK:EASY-SL 41/3 NUMBERP U; %. IS U A NUMBER OF ANY KIND? PK:EASY-SL 44/4 OFF U; PK:ONOFF 33/4 ON U; PK:ONOFF 30/3 ONEARGDISPATCH FIRSTARG; PK:ARITHMETIC 152/6 ONEARGDISPATCH1 EXPR 2) PK:ARITHMETIC 155/7 ONEARGERROR(FIRSTARG, DUMMY, DISPATCHTABLE); PK:ARITHMETIC 179/8 ONEARGPREDICATEDISPATCH FIRSTARG; PK:ARITHMETIC 185/9 ONEARGPREDICATEDISPATCH1 EXPR 2) PK:ARITHMETIC 188/10 ONOFF!*(IDLIST, U); PK:ONOFF 15/1 OPEN(FILENAME, ACCESSTYPE); %. GET ACCESS TO FILE PK:OPEN-CLOSE 28/1 OR U; %. SEQUENTIALLY EVALUATE UNTIL NON-NIL PK:EASY-SL 139/18 PACKAGE U; PK:TOKEN-SCANN 543/18 PAIR(U, V); %. FOR EACH X,Y IN U,V COLLECT (X . Y) PK:EASY-SL 261/40 PAIRP U; %. IS U A PAIR? PK:KNOWN-TO-CO 35/6 PBIND1 IDNAME; %. SUPPORT FOR PROG PK:BINDING 77/8 PLUS U; %. ADDITION OF SEVERAL ARGUMENTS PK:EASY-SL 194/29 PNTH(U, N); %. POINTER TO N-TH ELEMENT OF LIST PK:EASY-NON-SL 269/44 POSN(); %. NUMBER OF CHARACTERS SINCE LAST EOL PK:OTHER-IO 58/6 PRIN1 ITM; %. CHANNELPRIN1 TO CURRENT OUTPUT PK:PRINTERS 516/35 PRIN2 ITM; %. CHANNELPRIN2 TO CURRENT CHANNEL PK:PRINTERS 474/32 PRIN2L ITM; %. PRIN2 WITHOUT TOP-LEVEL PARENS PK:PRINTF 193/8 PRIN2T U; %. PRIN2 AND TERPRI PK:EASY-NON-SL 338/51 PRINT U; %. DISPLAY U AND TERMINATE LINE PK:EASY-SL 350/55 PRINTF(FORMATFORPRINTF!*, A1, A2, A3, A4, A5, PK:PRINTF 27/1 PRINTF1 EXPR 15) PK:PRINTF 37/2 PRINTF2 PRINTFARGS; %. FORMATTED PRINT PK:PRINTF 61/3 PRINTWITHFRESHLINE X; PK:TOP-LOOP 191/12 PROG PROGBODY!*; %. PROGRAM FEATURE FUNCTION PK:PROG-AND-FR 24/1 PROG2(U, V); %. RETURN SECOND ARGUMENT PK:EASY-SL 110/12 PROGBIND V; PK:FAST-BINDER 30/2 PROGN U; %. SEQUENTIAL EVALUATION, RETURN LAST PK:EASY-SL 113/13 PROP U; %. ACCESS PROPERTY LIST OF U PK:PROPERTY-LI 33/1 PUT(U, INDICATOR, VAL); %. STORE VAL IN U WITH INDICA PK:PROPERTY-LI 118/10 PUTC(NAME, IND, EXP); %. USED BY RLISP TO DEFINE SMAC PK:EASY-NON-SL 387/58 PUTD(FNNAME, FNTYPE, FNEXP); %. INSTALL FUNCTION DEFI PK:PUTD-GETD 64/3 PUTENTRY(NAME, TYPE, OFFSET); PK:FASLIN 137/6 PUTV(VEC, I, VAL); %. STORE VAL AT I'TH POSITION OF V PK:VECTORS 36/2 QEDNTH(N,L); PK:MINI-EDITOR 108/4 QUOTE U; %. RETURN UNEVALUATED ARGUMENT PK:EASY-SL 334/52 RANGEERROR(OBJECT, INDEX, FN); PK:ERROR-HANDL 37/2 RASSOC(U, V); %. REVERSE ASSOC, COMPARE WITH CDR OF E PK:EASY-NON-SL 187/30 RATOM(); %. READ TOKEN FROM CURRENT INPUT PK:TOKEN-SCANN 459/8 RDS CHANNEL; %. SWITCH INPUT CHANNELS, RETURN OLD PK:RDS-WRS 22/1 READ(); %. PARSE S-EXPR FROM CURRENT INPUT PK:READ 52/3 READCH(); %. READ A SINGLE CHARACTER ID PK:OTHER-IO 75/10 READCHAR(); %. READ SINGLE CHAR FROM CURRENT INPUT PK:CHAR-IO 44/2 READINBUF(); PK:TOKEN-SCANN 80/1 READLINE(); PK:TOKEN-SCANN 525/16 READONLYCHANNEL(CHN, CH); PK:IO-ERRORS 20/3 RECIP N; %. FLOATING POINT RECIPROCAL PK:EASY-NON-SL 84/11 RECLAIM(); PK:COPYING-GC 58/1 RECLAIM(); %. USER CALL TO GARBAGE COLLECTOR PK:COMPACTING- 159/1 RECURSIVECHANNELPRIN1(CHANNEL, ITM, LEVEL); PK:PRINTERS 480/34 RECURSIVECHANNELPRIN2(CHANNEL, ITM, LEVEL); PK:PRINTERS 438/31 REDO N; %. RE-EVALUATE NTH INPUT PK:TOP-LOOP 148/6 RELOAD U; PK:LOAD 63/3 RELOCINFINF X; PK:FASL-INCLUD 34/4 RELOCINFTAG X; PK:FASL-INCLUD 31/3 RELOCRIGHTHALFINF X; PK:FASL-INCLUD 28/2 RELOCRIGHTHALFTAG X; PK:FASL-INCLUD 25/1 RELOCWORDINF X; PK:FASL-INCLUD 40/6 RELOCWORDTAG X; PK:FASL-INCLUD 37/5 REMD U; %. REMOVE FUNCTION DEFINITION OF U PK:PUTD-GETD 46/2 REMFLAG(IDLIST, INDICATOR); %. REMOVE MARKING OF ALL PK:PROPERTY-LI 106/8 REMFLAG1(U, INDICATOR); PK:PROPERTY-LI 112/9 REMOB U; %. REMOVE ID FROM OBLIST PK:OBLIST 135/8 REMPROP(U, INDICATOR); %. REMOVE VALUE OF U WITH INDI PK:PROPERTY-LI 132/11 REMPROPL(L, INDICATOR); %. REMPROP FOR ALL IDS IN L PK:PROPERTY-LI 141/12 REMQUOTE X; PK:ARITHMETIC 255/20 REPEAT U; PK:LOOP-MACROS 72/5 REST U; %. TAIL OF A LIST PK:EASY-NON-SL 107/17 RESTOREENVIRONMENT PTR; %. RESTORE OLD BINDINGS PK:BINDING 50/4 RETURN U; %. RETURN VALUE FROM PROG PK:PROG-AND-FR 63/3 RETURNFIRSTARG ARG; PK:ARITHMETIC 226/14 RETURNNIL(); PK:ARITHMETIC 223/13 REVERSE U; %. TOP-LEVEL REVERSE OF LIST PK:EASY-SL 308/47 REVERSIP U; %. DESTRUCTIVE REVERSE (REVERSE IN PLACE) PK:EASY-NON-SL 113/18 ROBUSTEXPAND(L, FN, EMPTYCASE); %. EXPAND + ARG FOR E PK:EASY-SL 326/50 RPLACA(U, V); %. REPLACE CAR OF PAIR PK:KNOWN-TO-CO 57/11 RPLACD(U, V); %. REPLACE CDR OF PAIR PK:KNOWN-TO-CO 60/12 RPLACEALL(A,NEW,S); PK:MINI-EDITOR 115/6 RPLACW(A, B); %. REPLACE WHOLE PAIR PK:EASY-NON-SL 237/38 SAFECAR U; PK:CARCDR 132/25 SAFECDR U; PK:CARCDR 136/26 SASSOC(U, V, FN); %. RETURN FIRST (U . XXX) IN V, OR PK:EASY-SL 256/39 SAVESYSTEM(BANNER, FILE, INITFORMS); PK:TOP-LOOP 194/13 SCANNERERROR MESSAGE; PK:TOKEN-SCANN 511/14 SCANPOSSIBLEDIPHTHONG(CHANNEL, STARTCHAR); PK:TOKEN-SCANN 514/15 SECOND U; %. SECOND ELEMENT OF A LIST PK:EASY-NON-SL 98/14 SET(EXP, VAL); %. ASSIGN VAL TO ID EXP PK:SYMBOL-VALU 40/4 SETF U; %. GENERAL ASSIGNMENT MACRO PK:LISP-MACROS 45/2 SETINDX(R1, R2, R3); %. STORE AT INDEX OF SEQUENCE PK:SEQUENCE 58/2 SETMACROREFERENCE U; PK:DEFINE-SMAC 26/2 SETPROP(U, L); %. STORE L AS PROPERTY LIST OF U PK:PROPERTY-LI 37/2 SETQ U; %. STANDARD NAMED VARIABLE ASSIGNMENT PK:EASY-SL 95/11 SETSUB(R1, R2, R3, R4); %. OBSOLETE SUBSEQUENCE FUNCT PK:SEQUENCE 170/5 SETSUBSEQ(R1, R2, R3, R4); % R2 IS LOWER BOUND, R3 UP PK:SEQUENCE 173/6 SIZE S; %. UPPER BOUND OF SEQUENCE PK:SEQUENCE 321/8 SPACES N; %. PRIN2 N SPACES PK:EASY-NON-SL 344/53 STANDARDLISP(); %. LISP TOP LOOP PK:TOP-LOOP 186/11 STATICINTFLOAT ARG; PK:ARITHMETIC 233/15 STDERROR MESSAGE; %. ERROR WITHOUT NUMBER PK:ERROR-HANDL 40/3 STRING U; %. ANALOGOUS TO LIST, STRING CONSTRUCTOR PK:SEQUENCE 396/14 STRING2LIST S; %. MAKE LIST WITH ASCII VALUES IN S PK:TYPE-CONVER 106/12 STRING2VECTOR U; %. MAKE VECTOR OF ASCII VALUES IN U PK:TYPE-CONVER 75/9 STRINGEQUAL(U, V); % EQSTR WITHOUT TYPECHECKING OR EQ PK:EQUAL 65/4 STRINGGENSYM(); %. GENERATE UNIQUE STRING PK:STRING-GENS 20/1 STRINGGENSYM1 N; %. AUXILIARY FUNCTION FOR STRINGGEN PK:STRING-GENS 23/2 STRINGP U; %. IS U A STRING? PK:KNOWN-TO-CO 38/7 STUPIDPARSERFIX X; PK:ARITHMETIC 249/19 SUB(R1, R2, R3); %. OBSOLETE SUBSEQUENCE FUNCTION PK:SEQUENCE 103/3 SUBLA(U,V); %. EQ VERSION OF SUBLIS, REPLACES ATOMS O PK:EASY-NON-SL 228/37 SUBLIS(X, Y); %. SUBSTITUTION IN Y BY A-LIST X PK:EASY-SL 267/41 SUBSEQ(R1, R2, R3); % R2 IS LOWER BOUND, R3 UPPER PK:SEQUENCE 106/4 SUBST(A, X, L); %. REPLACE EVERY X IN L WITH A PK:EASY-SL 316/48 SUBSTIP(A, X, L); %. DESTRUCTIVE VERSION OF SUBST PK:EASY-NON-SL 127/20 SUBSTIP1(A, X, L); % AUXILIARY FUNCTION FOR SUBSTIP PK:EASY-NON-SL 122/19 SYS2FIXN N; PK:TYPE-CONVER 60/7 SYS2INT N; %. CONVERT WORD TO LISP NUMBER PK:TYPE-CONVER 56/6 SYSPOWEROF2P NUM; PK:TOKEN-SCANN 500/13 TAB N; %. SPACES TO COLUMN N PK:EASY-NON-SL 356/55 TCONC(PTR, ELEM); %. ACONC MAINTAINING POINTER TO END PK:EASY-NON-SL 278/46 TERPRI(); %. TERMINATE CURRENT OUTPUT LINE PK:OTHER-IO 82/12 THIRD U; %. THIRD ELEMENT OF A LIST PK:EASY-NON-SL 101/15 THROW(TAG, VALUE); PK:CATCH-THROW 179/21 THROWAUX EXPR 3) PK:CATCH-THROW 173/20 TIME(); %. GET RUN-TIME IN MILLISECONDS PK:TOP-LOOP 183/10 TIMES U; %. MULTIPLICATION OF SEVERAL ARGUMENTS PK:EASY-SL 197/30 TOPLOOP(TOPLOOPREAD!*, %. GENERALIZED TOP-LOOP MECHAN PK:TOP-LOOP 56/1 TOSTRINGWRITECHAR(CHANNEL, CH); % SHARES TOKENBUFFER PK:PRINTF 162/5 TOTALCOPY S; %. UNIQUE COPY OF ENTIRE STRUCTURE PK:COPIERS 79/8 TR L; %. TRACE FUNCTIONS IN L PK:MINI-TRACE 87/4 TR!.1 NAM; % CALLED TO TRACE A SINGLE FUNCTION PK:MINI-TRACE 52/2 TR!.PRC(PN, B, A); % CALLED IN PLACE OF TRACED CODE PK:MINI-TRACE 26/1 TRCLR(); %. CALLED TO SETUP OR FIX TRACE PK:MINI-TRACE 102/9 TRMAKEARGLIST N; % GET ARGLIST FOR N ARGS PK:MINI-TRACE 99/8 TWOARGDISPATCH(FIRSTARG, SECONDARG); PK:ARITHMETIC 44/1 TWOARGDISPATCH1 EXPR 4) PK:ARITHMETIC 47/2 TWOARGERROR(FIRSTARG, SECONDARG, DISPATCHTABLE); PK:ARITHMETIC 132/3 TYI(); %. READ ASCII VALUE FROM CURENT INPUT PK:IO-EXTENSIO 24/3 TYO CH; %. WRITE ASCII VALUE TO CURRENT OUTPUT PK:IO-EXTENSIO 27/4 TYPEERROR(OFFENDER, FN, TYP); PK:TYPE-ERRORS 17/1 UNBINDN N; %. SUPPORT FOR LAMBDA AND PROG INTERP PK:BINDING 60/6 UNBOUNDP U; %. DOES U NOT HAVE A VALUE? PK:SYMBOL-VALU 13/1 UNBR L; %. UNBREAK FUNCTIONS IN L PK:MINI-TRACE 203/15 UNBR!.1 NAM; PK:MINI-TRACE 186/12 UNFLUID IDLIST; %. UNDECLARE ALL IN IDLIST AS FLUID PK:FLUID-GLOBA 61/9 UNFLUID1 U; PK:FLUID-GLOBA 64/10 UNION(X, Y); %. SET UNION PK:SETS 28/5 UNIONQ(X, Y); %. EQ VERSION OF UNION PK:SETS 32/6 UNREADCHAR CH; %. BACKUP ON CURRENT INPUT CHANNEL PK:CHAR-IO 82/6 UNTR L; %. UNTRACE FUNCTION IN L PK:MINI-TRACE 93/6 UNTR!.1 NAM; PK:MINI-TRACE 76/3 UNWIND!-ALL U; PK:CATCH-THROW 40/2 UNWIND!-PROTECT U; PK:CATCH-THROW 49/3 UPBV V; %. UPPER LIMIT OF VECTOR V PK:VECTORS 53/3 UPDATEALLBASES(); PK:COMPACTING- 337/12 UPDATEHEAP(); PK:COMPACTING- 360/15 UPDATEITEM PTR; PK:COMPACTING- 400/16 UPDATEREGION(LOW, HIGH); PK:COMPACTING- 357/14 UPDATESYMBOLS(); PK:COMPACTING- 347/13 USAGETYPEERROR(OFFENDER, FN, TYP, USAGE); PK:TYPE-ERRORS 21/2 VALUECELL U; %. SAFE ACCESS TO SYMVAL ENTRY PK:SYMBOL-VALU 25/3 VECTOR U; %. ANALOGOUS TO LIST, VECTOR CONSTRUCTOR PK:SEQUENCE 399/15 VECTOR2LIST V; %. CONVERT VECTOR TO LIST PK:TYPE-CONVER 125/14 VECTOR2STRING V; %. MAKE STRING WITH ASCII VALUES IN PK:TYPE-CONVER 85/10 VECTOREQUAL(U, V); % VECTOR EQUALITY WITHOUT TYPE CHE PK:EQUAL 105/7 VECTORP U; %. IS U A VECTOR? PK:KNOWN-TO-CO 41/8 VERBOSEBACKTRACE(); PK:BACKTRACE 44/4 WHILE U; %. ITERATION MACRO PK:LOOP-MACROS 60/4 WORDSEQUAL(U, V); PK:EQUAL 79/5 WRITECHAR CH; %. WRITE SINGLE CHAR TO CURRENT OUTPUT PK:CHAR-IO 69/4 WRITENUMBER1(CHANNEL, NUMBER, RADIX); PK:PRINTERS 112/5 WRITEONLYCHANNEL CHN; PK:IO-ERRORS 17/2 WRITESTRING S; PK:PRINTERS 93/3 WRITESYSINTEGER(NUMBER, RADIX); PK:PRINTERS 134/8 WRS CHANNEL; %. SWITCH OUTPUT CHANNELS, RETURN OLD PK:RDS-WRS 35/2 XCHANGE(S,CTL,NEW,N); PK:MINI-EDITOR 128/8 XCONS(U, V); %. EXCHANGED CONS PK:CONS-MKVECT 46/3 XCONS(U, V); %. V . U PK:COMP-SUPPOR 18/2 XINS(S,CTL,NEW,N); PK:MINI-EDITOR 133/9 XN(U, V); %. SET INTERSECTION PK:SETS 36/7 XNQ(U, V); %. EQ VERSION OF XN PK:SETS 41/8 YESP U; PK:ERROR-HANDL 43/4 -------