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

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

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

(FILECREATED "24-SEP-81 00:47:00" ("compiled on " <LISPUSERS>VMFIND.;5) 
(2 . 3) bcompl'd in WORK dated NOBIND)
(FILECREATED " 2-FEB-78 14:02:45" <LISPUSERS>VMFIND.;5 3746 changes to: 
VF previous date: " 2-JAN-78 02:29:38" <LISPUSERS>VMFIND.;4)

VFBLOCK BINARY
b<[-.<-.(=p?DZ,<@@ +CZ,<,<B,<B,<@C`+<ZZDXB,pZw,<8,<,<Zw2B++9-,+XBpZXBw+ZwXBp[wXBw,<E,<w,<E&F,<Z,<,<F&GXB3B+8,<G,<,<@C`+8ZZDXB,<F,<,< H H H,< HXBw2BH+'Zp+(,<,+$/Z,,XB HXBw3BI+.2BI+4 J w1b+2 w/",XBw+.,<w,+#2BH+6:w++Z/Z,~ J+Zw/ZwXB8Z,~3B+>Z+>ZJXB`DKZ`3B+B K,~Z`,~+Z,<@@ ,~Z,<,<L,<B,<@C`+iZZDXB,p,<L,<,<@C`+gZZDXB,<,<F,<,<Z*2B+UZ"DM H,<,,< HXBw2BH+ZZp+\,<,+W/ M2BN+b,< H2BH+aZp+a+^/,<p,Z,,XBS+W/Z,~ JZwXB8Z,~3B+kZ+lZJXB`DKZ`3B+o K,~Z`,~,<NZBO,,<,<,ZF,XBt,<O NXB,,<,<,Zu,XBy,<"P,<@P ,~,<PZ,<,,Zz,XBXB`,<R,<B,<@C`+	ZZDXBZZwXB8Z,~2B+ZJXB[`XB,<PZ`Z[DSZ
3B+ K,~Z`,~Zp2BS+ TZBT+2BU+& HXBp2BU+$ PBV,<,<V"W,< HXBw2BW+Zp+ ,<,+/,<X"W,<p"XZ/+,<U"W,<p"W+3BY+3BY+3BZ+2BZ+++2BH+3 M2BN+1,< H2BH+0Zp+1+./,<p"W+2BI+9 PBV,&"  ^"/,BX+2B[+; H+BW+ET,3'Z`_^4`U2R+[]H"&5 DCW=V[FU7ne` (VFBLOCK#0 . 1)
(VARIABLE-VALUE-CELL LISPXHIST . 136)
(VARIABLE-VALUE-CELL RESETVARSLST . 279)
(VARIABLE-VALUE-CELL VM . 237)
(VARIABLE-VALUE-CELL VLAST . 201)
(VARIABLE-VALUE-CELL VMFILE . 226)
VF
VMORE
(VARIABLE-VALUE-CELL LISPXHIST . 0)
NIL
NIL
((DUMMY) . 0)
INTERNAL
(0 . 1)
(0 . 1)
(0 . 1)
ERRORSET
"
|"
"["
CONCAT
0
FFILEPOS
((DUMMY) . 0)
READC
%

% 
%	
TERPRI
ERROR
RESETRESTORE
ERROR!
((DUMMY) . 0)
((DUMMY) . 0)
SETFILEPTR
PEEKC
%.
INPUT
INFILE
CLOSEF
OUTPUT
(VARIABLE-VALUE-CELL OLDVALUE . 252)
NIL
NIL
(NIL VARIABLE-VALUE-CELL RESETSTATE . 285)
((DUMMY) . 0)
APPLY
%
READ
TAB
*
<
POSITION
"
----------------------
"
PRIN1
>
"
----------------------
"
SPACES
%
%
%|
%
%
(IUNBOX CONSNL CONS LIST2 ALIST2 ASZ URET1 KT MKN FGFPTR BHC SKNLST CF 
KNIL BLKENT ENTER1)6(utx0
XP< 38*(p$`D	8i

p<e +d( $f

(](7 `P	8 @h#@ @y@n

@_T
8S
 N	`I>P7 $("`@p


VF BINARY
-.,<,~(X . 1)
VF
(NIL)
(LINKED-FN-CALL . VFBLOCK)
(ENTER1)

VMORE BINARY
-.,<,~VMORE
(NIL)
(LINKED-FN-CALL . VFBLOCK)
(ENTER0)
(PRETTYCOMPRINT VMFINDCOMS)
(RPAQQ VMFINDCOMS ((* VF - print def from VM) (FNS VF VMORE VOPEN VMECHO
) (VARS VMFILE (VLAST 0)) (BLOCKS (VFBLOCK VF VMORE VOPEN VMECHO (
ENTRIES VF VMORE) (GLOBALVARS VLAST VM VMFILE) (NOLINKFNS . T))) (
DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (
NLAMA VF) (NLAML)))))
(RPAQQ VMFILE <HELPSYS>VM.PUB)
(RPAQ VLAST 0)
NIL