PDP-10 Archive: decus/20-0004/singlefileindex.com from decuslib20-01

Trailing-Edge - PDP-10 Archives - decuslib20-01 - decus/20-0004/singlefileindex.com

There are no other files named singlefileindex.com in the archive.

(FILECREATED " 5-JUL-82 19:35:32" ("compiled on " <LISPUSERS>SINGLEFILEINDEX.;5) (2 . 2) brecompiled 
changes: nothing in WORK dated "24-JUN-82 23:21:05")
(FILECREATED "15-JUN-82 00:07:20" <LISPUSERS>SINGLEFILEINDEX.;5 13036 changes to: (VARS 
SINGLEFILEINDEXCOMS) previous date: "15-JUN-82 00:00:25" <LISPUSERS>SINGLEFILEINDEX.;4)
SINGLEFILEINDEX BINARY
s%e-.%-.p'.Z,<@. +<Z,<,</,<0,<@0`+5ZZ2XBZ,<Zw,<?2b3,<@4@

+3,<7Z,<,,<,<,Z,XBZ,<Zw,<?82B+.Z,<Zd92B:+,Z,<Zd92B:+,Zb;+.Z[XB`2B+(,<<,<<Z,<,<<,<=Z,~ZwZ?2B+*Zb>,<7?,,<,<,Z,XB.Z@6@ZA2B@+E,<ABdC3B+E?bD,,<Z$,<,<EEdF,,>%,>ZG,,^/Zp+^"?,>%,>Zp#(BsABx,^//",XB/,<H,<HI,,Z/,XBH,<J,<JK,,ZI,XBLZ6,<,<L,<,<LMfF,<,<,o,<NN,<,<OF,<,<,o,<,<@P+2Zw},<8,<,<,<Zw~-,+^Zw+Zw~,<[p[,<,<Zw-,+gZpZ2B+e^"+g[QD>"+xZw,<,<`ZwbQ,<w,>%,>p,^/2"+pZp+pZw/XB`Zp,<p.",XBr,/Zp,XBp[wXBw+a/XBp-,+Zw3B+}ZpQD+~ZpXBw[2D+XBw[w~XBw~+[/XB`,<ZRdSZ`2B+[w~ZXB`,<,~Zw}Z83B+,<,G+,<,< .",XB 7.",>%,> 5 ,^/3b+
bT,<Y,<<Zp,<@-<+)Z|`?,<Zwz,<8Zwy[8[ZwyXB8,<,~,~/[pXBp+y/[pXBp+u/Z"`?,<,<`Z-bY,<,~,~Z/,~ZwXB8Z,~3B+7Z+7ZZXB`d[Z`3B+;\,~Z`,~+Zp2B+>=b.",XB>,,>%,>	 ,^/3b77+,<,G+Zp2B+LZ"A"?Z."Zb<,<,<E]Z"XB@b.",XBN,\+p&"4bV,>%,>,<^<>`x5T/p&"X4b\,>%,>,<^<>`x5Y/+Z2b<Z3B+g,<,<<Z],<,<,<`,<<Z,<,<<,<a,<< 
//Z+)U,
;
`wP9lZ@"	@IJji  T(
(H"$" $(

4IQVDEZ0,6hM
 2iR(INF . 1)
(OUTF . 1)
(NEWPAGEFLG . 1)
(VARIABLE-VALUE-CELL LISPXHIST . 6)
(VARIABLE-VALUE-CELL RESETVARSLST . 154)
(VARIABLE-VALUE-CELL LINESPERPAGE . 812)
(VARIABLE-VALUE-CELL FILERDTBL . 57)
(VARIABLE-VALUE-CELL PRINTER . 84)
(VARIABLE-VALUE-CELL BOLDFONT . 751)
(VARIABLE-VALUE-CELL DEFAULTFONT . 756)
(VARIABLE-VALUE-CELL FILELINELENGTH . 735)
(VARIABLE-VALUE-CELL LINECOUNT . 809)
(VARIABLE-VALUE-CELL FCHARAR . 660)
(VARIABLE-VALUE-CELL PAGECOUNT . 728)
(VARIABLE-VALUE-CELL FULL . 697)
(VARIABLE-VALUE-CELL CURFN . 705)
(VARIABLE-VALUE-CELL INUM . 712)
(VARIABLE-VALUE-CELL LISPXHIST . 0)
NIL
NIL
((DUMMY) . 0)
INTERNAL
(0 . 1)
(0 . 1)
(0 . 1)
ERRORSET
(NIL)
(LINKED-FN-CALL . INFILE)
(NIL)
(LINKED-FN-CALL . INPUT)
(VARIABLE-VALUE-CELL LINESPERPAGE . 0)
(VARIABLE-VALUE-CELL FULL . 0)
NIL
(0 VARIABLE-VALUE-CELL LINECOUNT . 0)
(0 VARIABLE-VALUE-CELL PAGECOUNT . 0)
(NIL VARIABLE-VALUE-CELL CURFN . 0)
CLOSEF?
(NIL)
(LINKED-FN-CALL . GETFILEMAP)
(NIL)
(LINKED-FN-CALL . RATOM)
%(
FILECREATED
(NIL)
(LINKED-FN-CALL . LOADFILEMAP)
"Could not get file map for "
(NIL)
(LINKED-FN-CALL . PRIN1)
(NIL)
(LINKED-FN-CALL . TERPRI)
(NIL)
(LINKED-FN-CALL . OUTFILE)
(NIL)
(LINKED-FN-CALL . OUTPUT)
TENEX
TOPS20
"PARC-MAXC"
(NIL)
(LINKED-FN-CALL . HOSTNAME)
(NIL)
(LINKED-FN-CALL . STRPOS)
(NIL)
(LINKED-FN-CALL . OPNJFN)
0
(NIL)
(LINKED-FN-CALL . CHARACTER)
(NIL)
(LINKED-FN-CALL . CONCAT)
"NAME"
LINELENGTH
1000
(NIL)
(LINKED-FN-CALL . LINELENGTH)
RADIX
10
(NIL)
(LINKED-FN-CALL . RADIX)
"     "
WRITEDATE
(NIL)
(LINKED-FN-CALL . GETFILEINFO)
"-- Listed on "
(NIL)
(LINKED-FN-CALL . DATE)
" --"
NIL
(0 VARIABLE-VALUE-CELL INUM . 0)
0
(NIL)
(LINKED-FN-CALL . NCHARS)
FILEINDEXALPHORDER
(NIL)
(LINKED-FN-CALL . SORT)
(NIL)
(LINKED-FN-CALL . CHANGEFONT)
"No Functions."
1
(NIL)
(LINKED-FN-CALL . SPACES)
0
(0 VARIABLE-VALUE-CELL INUM . 0)
"["
"]"
%
(NIL)
(LINKED-FN-CALL . GETEOFPTR)
ERROR
(NIL)
(LINKED-FN-CALL . RESETRESTORE)
(NIL)
(LINKED-FN-CALL . ERROR!)
(NIL)
(LINKED-FN-CALL . POSITION)
"........"
"."
"  ("
(NIL)
(LINKED-FN-CALL . PRIN2)
" ["
"] cont.)"
(NIL)
(LINKED-FN-CALL . TAB)
"Page "
((FIX . 10738466826) . 0)
(NIL)
(LINKED-FN-CALL . PRINTNUM)
(NIL)
(LINKED-FN-CALL . SETFILEPTR)
(URET4 URET2 ASZ URET1 URET3 IUNBOX SKLST COLLCT CONSS1 SKNLST CONSNL MKN BHC UPATM GUNBOX KL20FLG 
ALIST2 KT CONS LIST2 CF KNIL BLKENT ENTER3)4X/h3h2N) +PR)F=s(\(pX0v

(]L	2v-P( xn(c(2@#0HE$4@1p.H\*pD%`,% "@

0p@bXPpG9+" vn`DX@:061L	-%3x3@j(`5
('`$S	XIx.@
"42H0P/Xz.xo-`g,`d,(`+pM)G(X>' 7&` #X# !X @lhU0C@48XHH
|

Hd

\8[
xVH. ((!(
FILEINDEXALPHORDER BINARY
-.Z[,,>,>,>Z[,

x/<,<(0"00b=7/"0$00d=7/$3B+2"7Z,~0@(VARIABLE-VALUE-CELL A . 3)
(VARIABLE-VALUE-CELL B . 9)
(KT KNIL BHC UPATM ENTERF)h
SFILISTFILES1 BINARY
-.ZB,<@ ,~ZB3B+,<,<$Z,<,<$,<,<$Z,<,<$,<"Z,<,<$,<ZDXBZ,~ZB,~#"D$(VARIABLE-VALUE-CELL FILE . 39)
(VARIABLE-VALUE-CELL PRINTER . 23)
(VARIABLE-VALUE-CELL NOTLISTEDFILES . 36)
INFILEP
(VARIABLE-VALUE-CELL INF . 29)
SINGLEFILEINDEX
"indexed version of "
PRIN1
" => "
TERPRI
NAMEFIELD
REMOVE
""
OLDLISTFILES1
(KT KNIL ENTERF)X 
(PRETTYCOMPRINT SINGLEFILEINDEXCOMS)
(RPAQQ SINGLEFILEINDEXCOMS ((FNS SINGLEFILEINDEX INDEXNEWLINE INDEXNEWPAGE PRINTDOTS LISTINGHEADER 
CENTERPRINT FILEINDEXALPHORDER) (FNS INDEXCOPYBYTES) (FNS SFILISTFILES1) (VARS (PRINTER (SELECTQ (
SYSTEMTYPE) (D (QUOTE {LPT})) (QUOTE LPT:)))) (DECLARE: DOCOPY DONTEVAL@LOAD (P (MOVD? (QUOTE 
LISTFILES1) (QUOTE OLDLISTFILES1)) (MOVD (QUOTE SFILISTFILES1) (QUOTE LISTFILES1)) (COND ((NOT (FIXP (
GETTOPVAL (QUOTE LINESPERPAGE)))) (SETQ LINESPERPAGE (SELECTQ (SYSTEMTYPE) (D 65) 58)))))) (DECLARE: 
EVAL@COMPILE DONTCOPY (RECORDS DefineqList FileMap FnPointer) (P (SELECTQ (COMPILEMODE) (PDP-10 (
FILESLOAD (SYSLOAD FROM VALUEOF LISPUSERSDIRECTORIES) CJSYS)) NIL))) (BLOCKS (SINGLEFILEINDEX 
SINGLEFILEINDEX INDEXNEWLINE INDEXNEWPAGE PRINTDOTS LISTINGHEADER CENTERPRINT INDEXCOPYBYTES (
LOCALFREEVARS LINECOUNT PAGECOUNT CURFN INUM FULL) (GLOBALVARS FILELINELENGTH PRINTER FONTCHANGEFLG 
DEFAULTFONT PRETTYCOMFONT)))))
(RPAQ PRINTER (SELECTQ (SYSTEMTYPE) (D (QUOTE {LPT})) (QUOTE LPT:)))
(MOVD? (QUOTE LISTFILES1) (QUOTE OLDLISTFILES1))
(MOVD (QUOTE SFILISTFILES1) (QUOTE LISTFILES1))
(COND ((NOT (FIXP (GETTOPVAL (QUOTE LINESPERPAGE)))) (SETQ LINESPERPAGE (SELECTQ (SYSTEMTYPE) (D 65) 
58))))
NIL