Google
 
Trailing-Edge - PDP-10 Archives - decuslib20-01 - decus/20-0004/fileindex.com
There are no other files named fileindex.com in the archive.
(FILECREATED "24-SEP-81 21:36:26" ("compiled on " <LISPUSERS>FILEINDEX.;19) (2 
. 3) bcompl'd in WORK dated NOBIND)
(FILECREATED "28-May-81 08:37:09" <GREENFELD>FILEINDEX..19 10747 changes to: 
FILEINDEX previous date: "25-Nov-80 18:33:38" <GREENFELD>FILEINDEX..18)

FILEINDEXBLOCKA0013 BINARY
-.Z`,<Z`D,~(.X. . 1)
(.Y. . 1)
CIALPHORDER
(ENTER2)

FILEINDEXBLOCK BINARY
AW*-.W-.Wx`Z,,<@`!"+JZw,<?,<,<Zw-,++ZXBpbiXB`3B+,<,<jjXB`2B+,<k,<l,<p,<l,<m+bnXB`2B+,<o,<l,<`,<l,<m,<`o+[`XB`,<p,<`,<pq,<,<r,<`,<rqhrXB`Z"XB`,<st,<@u +m,<wZ,<,,Z,XB*XB`,<w,<x,<@x`+dZZzXBZw,<8,<zZwXB8,<8,<8,<,<,<Zw~-,+8Zw+aZw~,<[p[,<,<Zw-,+BZpZ2B+@ "+A[QD "+WZw,<Zwz,<8Zw,<,<z,< w,>V,> p ,^/2"+LZp+LZw/ZwzXB8 8.",ZwzXB8Zp,<Zwz,<8,<8,/Zp,XBp[wXBw+;/XBp-,+`Zw3B+\ZpQD+]ZpXBw  [2D+]XBw[w~XBw~+6/d{Zw~XB8Z,~2B+fZ|XB[`XB+,<wZ`Z[d}Zf3B+l~,~Z`,~,<` `,>V,>,<`z,.Bx,^/.",,< w,>V,> p ,^/2"+yZp+zZw/XB`,<` `,>V,> `.Bx,^/.",,< w,>V,> p ,^/2"+Zp+Zw/XB`,<`Z`,dXB`,<`Z`,dXB`,<`o[wXBw+	Zw/Z`2B+Z,~ZwZ82B+ZbXB`3B+,<,<jXB`2B+,<,<lZw,<8,<l,<m+,<`,+XB,<,<,<@x`+HZZzXBZ,<@ +GZg,<,<,<x,<@x`+@ZZzXB,<w,<st,,Z',XB/,<Zw~,<8,,Z0,XB4,<Zb,,Z5,XB8Zw,<8,0ZwZ8,<Zw~,<8,<8,KZw}XB8Z,~3B+BZ+CZ|XB`dZ`3B+F~,~Z`,~Z,~,<`oZ`,~+ w.",,<,<w~Zd	,<,<,<,<,<Zw~2B+W,<,H,<
,<,p,<,TZ+/ 6,>V,> w}." ,^/&,XBw W,>V,> w}.",>V,> w$Bx,^/ ,^//,XBw w},>V,> w&",>V,> w ,^/&.Bx,^/,XBw} w1b+u w&",>V,> w/" ,^/&.",+vZ"XBp,<w~,<w~ ,>V,>  ,^//,,<,sZw~,<Zp-,++*Zp,<,<p,<,<,<Zw~-,++&ZXBwZwb
 wz,>V,>Zw,<,<z, ,^//,>V,> wz ,^//,,<,:[wZb
 wz,>V,>[wZ,<,<z,,>V,>[w[Zbz,.Bx,^/ ,^//,b[w[Zb

[w~3B+$,<w}[w~XBw~+Zw/,<,H/[pXBp+~/[w~3B+-,<,T[w~XBw~2B+vZw~/,~,<,<c,<,<,<,<+F+QZXBw,<w|bz,< w,>V,> p ,^/2"+NZp+NZw/XBw|[w~XBw~+DZw/ 8,>V,> w~,>V,>,<pz,.Bx,^/." ,^//&",XBw w,>V,> w~.Bx,^/.",XBw,<w}Zp-,+c+pZp,<,<w~,<,<pl,<w~,<,<p,<,<Z3d,<,<bl,<,H/[pXBp+a/,<,HZ+Zw3B+,<,<,<,<w~,<w},<,<ZwXBw} p,>V,> w~ ,^/2b+Zw}-,++XBw},<w}Zw|,d[w}XBw} p.",XBp+yZw/[wXBp,<w~,<,< p,>V,> w ,^/3b+Zw+%,<w},<w{,<,<,<Zw~-,++!ZXBw p,>V,> w~ ,^/3b++!Zw|XBw{[w|XBw|,<w{,<,<w,<wz[w~XBw~ p.",XBp+Zw/ p.",XBp+	/,<w,<,<w}Zw}[w},d,<w},<wZw}/+,<,<w,<+Zp0B+1Z+ p0b2+6Z,<,<,<w+Z,< w/"2,,<,/d+,<p,<b

+Zp0B+?Z+ p0b2+CZ,<,<,<w+Z@,< w/"2,,<,<d+ y,>V,> w ,^/3"+N,<,T+ H.",XBNZp3B+RZ+Zm+,<,<,<,<,<,<,<,<,<,<Z"XBOZw{2B+\Zb

Zb

,<,<c.",XB~,<dXBw{Z0B+v,<w{Zz3B+sR&",>V,>,<w{z,,>V,>Zdbz,&".Bx,^/,,^//,,<,/,<Zjd+tZ,<,<,//&",,< w,>V,> p ,^/2"+Zp+Zw/XBw,<,/XBw|,<w{ 
,>V,>w,,^//,,<,(3B+Z+!Z,<,<w{Z|,<,<wzZy,<,<,<wx,<V,w/,^//&",,<<w,>V,><p,,^/2"+=Zp+=Zw/XBw,<,/XBw|,<w{ 2,>V,> w ,^//,,<,(3B+HZ +HZ!,<,<w{Z",<,<wz,<wy,<!,

Zb$+,<p,<,/,<,<,<,<Z"XBp,<w},<w}l p,>V,> w ,^/3b++

Z,<,<w}

,<w~,<w}

,<w},<w}

 p.",XBp+Zw/+,<pZ%,<,<,<,<,< w,>V,> w} ,^/3b++" w."w}/w}."ZXBw,<w~,<wf% p,>V,>,<wz,.Bx,^/,XBp w.",XBw+,<w~,< w/",f/Zp/$/,~ p&" 0B7Z+ V/",,<,<[w,<,<,<Zw},XBw~Zw-,+3+9ZXBp,<Z&Zw~,,XBw~[wXBw+1Zw/Z',<,<w'd}XBpbz,,>V,> w ,^/3b+U,<,<,<Zw3B+O w,>V,> w~ ,^/3b+J+OZwXBp,<(,<w~,<w~,<,<,<

)XBw+C,<w~,< w/",f,<,<*XBw~Zw/Zp+I3KMK.5@P@
	@"HP1	 
 !)3"jT)U8
i0*@ @!@PAJ	$"!LH(H
$
Y  (

$,c*1D  }CH'5H @P!p(P!p@ (!PA*TdB*R DM@Q 2E@(FILEINDEXBLOCK#0 . 1)
(VARIABLE-VALUE-CELL RESETVARSLST . 370)
(VARIABLE-VALUE-CELL PRINTER . 297)
(VARIABLE-VALUE-CELL LISPXHIST . 330)
(VARIABLE-VALUE-CELL FILELINELENGTH . 1367)
(VARIABLE-VALUE-CELL LINESPERPAGE . 1239)
(VARIABLE-VALUE-CELL LINENUMBER . 1230)
(VARIABLE-VALUE-CELL INDEXFORMAT . 725)
(VARIABLE-VALUE-CELL 100DOTS . 903)
(VARIABLE-VALUE-CELL PAGENUMBER . 961)
(VARIABLE-VALUE-CELL INDEXNUMBER . 965)
(VARIABLE-VALUE-CELL INDEXFILE . 1212)
(VARIABLE-VALUE-CELL CURRENTFNNAME . 1095)
(VARIABLE-VALUE-CELL FONTCHANGEFLG . 1248)
(VARIABLE-VALUE-CELL FONTPROFILE . 1252)
(VARIABLE-VALUE-CELL BOLDFONT . 1256)
(VARIABLE-VALUE-CELL PRETTYCOMFONT . 1258)
(VARIABLE-VALUE-CELL DEFAULTFONT . 1263)
FILEINDEX
(0 . 1)
NIL
NIL
NIL
NIL
0
0
0
NIL
(0 VARIABLE-VALUE-CELL LINENUMBER . 0)
(1 VARIABLE-VALUE-CELL PAGENUMBER . 0)
(0 VARIABLE-VALUE-CELL INDEXNUMBER . 0)
(NIL VARIABLE-VALUE-CELL CURRENTFNNAME . 0)
(NIL VARIABLE-VALUE-CELL INDEXFILE . 0)
NIL
NIL
NIL
(NIL)
(LINKED-FN-CALL . FINDFILE)
INPUT
(NIL)
(LINKED-FN-CALL . OPENFILE)
"Failed to open input file: "
(NIL)
(LINKED-FN-CALL . PRIN1)
(NIL)
(LINKED-FN-CALL . TERPRI)
(NIL)
(LINKED-FN-CALL . GETFILEMAP)
"Could not get file map for file: "
(NIL)
(LINKED-FN-CALL . CLOSEF?)
NAME
(NIL)
(LINKED-FN-CALL . FILENAMEFIELD)
EXTENSION
(NIL)
(LINKED-FN-CALL . PACKFILENAME)
10
(NIL)
(LINKED-FN-CALL . RADIX)
(VARIABLE-VALUE-CELL OLDVALUE . 80)
NIL
NIL
(NIL VARIABLE-VALUE-CELL RESETSTATE . 212)
RADIX
((DUMMY) . 0)
INTERNAL
(0 . 1)
(0 . 1)
(0 . 1)
ERRORSET
(NIL)
(LINKED-FN-CALL . NCHARS)
(NIL)
(LINKED-FN-CALL . LCONC)
ERROR
(NIL)
(LINKED-FN-CALL . APPLY)
(NIL)
(LINKED-FN-CALL . ERROR!)
(NIL)
(LINKED-FN-CALL . NCONC)
(NIL)
(LINKED-FN-CALL . OUTFILEP)
OUTPUT
"Failed to open output file: "
((DUMMY) . 0)
(VARIABLE-VALUE-CELL LISPXHIST . 0)
NIL
NIL
((DUMMY) . 0)
OUTFILE
(NIL)
(LINKED-FN-CALL . OUTFILE)
LINELENGTH
(NIL)
(LINKED-FN-CALL . LINELENGTH)
(NIL)
(LINKED-FN-CALL . RESETRESTORE)
FILEINDEXBLOCKA0013
(NIL)
(LINKED-FN-CALL . SORT)
"No Functions."
(NIL)
(LINKED-FN-CALL . PRIN4)
(NIL)
(LINKED-FN-CALL . SPACES)
(NIL)
(LINKED-FN-CALL . PRIN3)
"-- Indexed on "
(NIL)
(LINKED-FN-CALL . DATE)
(NIL)
(LINKED-FN-CALL . L-CASE)
" --"
(NIL)
(LINKED-FN-CALL . CONCAT)
(NIL)
(LINKED-FN-CALL . TAB)
IWRITEDATE
(NIL)
(LINKED-FN-CALL . GETFILEINFO)
(NIL)
(LINKED-FN-CALL . GDATE)
1
(NIL)
(LINKED-FN-CALL . RPLACA)
2
(NIL)
(LINKED-FN-CALL . RPLACD)
"["
"]"
""
"                                                                                                    "
(NIL)
(LINKED-FN-CALL . SUBSTRING)
""
%

%
(NIL)
(LINKED-FN-CALL . POSITION)
"Page "
""
" "
""
" "
8
" "
""
6
3
BOLDFONT
(NIL)
(LINKED-FN-CALL . ASSOC)
(NIL)
(LINKED-FN-CALL . CHANGEFONT)
"<LISPUSERS>BCOMPL.SCRATCH;100024XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXY"
(NIL)
(LINKED-FN-CALL . RPLSTRING)
", "
CONCAT
(NIL)
(LINKED-FN-CALL . DREVERSE)
", "
(NIL)
(LINKED-FN-CALL . STRPOS)
"..."
(CONSS1 URET1 URET3 URET6 URET2 ALIST2 IUNBOX SKLST COLLCT LIST3 MKN BHC CF 
CONSnLIST2ASZVKTSKNLST;CONSNLEKNILBBLKENTENTER1)VxU@p:HS9hH8@?7P;6h25xZp-.P.8Q`y84xWhJ0.@h{=Hj*p<#@!8qYUTRUX%T  Q8[J EFx-C`@X|>a:F7$4,\'p "|XmP\P@PVYAW((ThRP

(X
HM	(H$Vp)5+*'S~<@Z7`0h$NU8o:8m&`!(V@h8d`28@32(,0E HP7(V4

*XY`MXPDX00V.U0R}OPtNpLheLHcHp<`^;8Y;X;W:pV:`U:PR:M4p21x.hv.Xt.0r-hh,`D(8B(3&02&/%P,%# 8 (WPS(QPE(A(" p(

FILEINDEX BINARY
-.,<,~(FILELST . 1)
(OUTPUTFILE . 1)
FILEINDEX
(NIL)
(LINKED-FN-CALL . FILEINDEXBLOCK)
(ENTER2)
(PRETTYCOMPRINT FILEINDEXCOMS)
(RPAQQ FILEINDEXCOMS ((FNS FILEINDEX PRINTINDEX PRINTINDEXHEADER COLUMNATE 
CREATEHEADERLINE DOTS MAKEDOTS) (P (OR (BOUNDP (QUOTE LINESPERPAGE)) (SETQ 
LINESPERPAGE 58)) (OR (BOUNDP (QUOTE PRINTER)) (SETQ PRINTER (QUOTE LPT:)))) (
VARS (INDEXFORMAT 50331648) (100DOTS 
"...................................................................................................."
)) (* LISP information) (FILES (SYSLOAD FROM LISPUSERS) CIALPHORDER) (DECLARE: 
EVAL@COMPILE DONTCOPY (FILES (SYSLOAD SOURCE FROM LISPUSERS) COMMONFILEINDEX)) 
(DECLARE: EVAL@COMPILE DONTCOPY (P (RESETSAVE DWIMIFYCOMPFLG T))) (DECLARE: 
EVAL@COMPILE DONTCOPY (RECORDS DefineqList FileMap FnPointer IndexLineRecord)) 
(BLOCKS (FILEINDEXBLOCK (ENTRIES FILEINDEX) (LOCALFREEVARS LINENUMBER 
PAGENUMBER INDEXNUMBER INDEXFILE CURRENTFNNAME) (SPECVARS FILELINELENGTH 
LINESPERPAGE PRINTER) (GLOBALVARS 100SPACES 100DOTS INDEXFORMAT) FILEINDEX 
PRINTINDEX PRINTINDEXHEADER COLUMNATE MAKEINDEXNUMBER MAKESPACES DOTS MAKEDOTS 
NEWLINE NEWPAGE TESTPAGE BOLDPRIN1 FCONCAT ODDP CREATEHEADERLINE))))
(OR (BOUNDP (QUOTE LINESPERPAGE)) (SETQ LINESPERPAGE 58))
(OR (BOUNDP (QUOTE PRINTER)) (SETQ PRINTER (QUOTE LPT:)))
(RPAQ INDEXFORMAT 50331648)
(RPAQ 100DOTS 
"...................................................................................................."
)
(FILESLOAD (SYSLOAD FROM LISPUSERS) CIALPHORDER)
NIL