Google
 
Trailing-Edge - PDP-10 Archives - decuslib20-01 - decus/20-0004/whereis.com
There are no other files named whereis.com in the archive.
(FILECREATED "23-SEP-81 22:37:46" ("compiled on " <LISPUSERS>WHEREIS.;44
) (2 . 2) bcompl'd in WORK dated NOBIND)
(FILECREATED "18-AUG-81 13:52:56" <LISPUSERS>WHEREIS.;44 7725 changes 
to: WHEREIS previous date: " 9-SEP-80 21:19:16" <LISPUSERS>WHEREIS.;43)

WHEREISNOTICEBLOCK BINARY
|Ju-.J-.(KhMqfZ,<@O +eZ,<,<P,<Q,<@Q`+^ZZSXB,<,<,<,<,<SZw},<8,<T,<T,<,<U*UZw}XB8,,<,<,Z,XBZw},<8,<V$VZw},<8ZDW2BW+)Zw},<8ZDW2BX+)Zw},<8ZDXXBw-,+)Zw},<8Z DX-,+)Zw},<8Z$DXXBw-,+-Zw3B+,ZY+[ZY+[Zw},<8ZDZZw,3B+2Zw+[Zw},<8,<w~$VZw},<8,<$ZXBw~Zw},<8Z'DX[Z[,<Zp-,+<+WZp,<[p[,<Zp-,+A+UZp,<Zp,<,<w|Z.,<,<[([XBw~3B+SZw|Zw~3B+SZw~-,+MZw|Zw~,2B+SZp,<Zw}-,+P,,<Zw{,D\,<ZCF\/[pXBp+?/[pXBp+:/Zw},<8,<wZRF\Zw}Z8/ZwXB8Z,~3B+`Z+`Z]XB`D]Z`3B+d ^,~Z`,~+,<^,<,<&_,<_,<,<@Q`+pZZSXBZw,<8,,<,<,<&`++Z,<@O +JZ,<,<`,<Q,<@Q`+CZZSXBZ,,<ZBa,<@a@+A,<cZ`,Zt,XB,<`,<dZ{,<,<d$d,<,<e,<e,<f,<f,<g,<g0hXB`,<,<h,<i&UBiDjZXBYZj6@Zk2Bk+,<k,<,<l,<`(hXB`,<,<,<lZ

,<,<`,<m$mXBw,\2B++*,<n"nZp3B+)0B+',<"o,<w,<o$p,<,<$p,<q,<$p,<"o,<q,<$p,<"o,<"oZXBp+) p.",XBp+Zw/ZwZ82B+.Z`2B+1Z,<,<r$r+5,<Z.,<,<,<,<*s,<`"SZw,<?,<s,<t,<V(dZ1BiZ8,<,<k,<,<lZHhDtXB93B+@,<`"uZ=,~ZwXB8Z,~3B+EZ+EZ]XB`D]Z`3B+I ^,~Z`,~+bM(`G(IxE@2$B"@L	JA&T
@M~>/Q

<UMjH I`Si,PL(WHEREISNOTICEBLOCK#0 . 1)
(VARIABLE-VALUE-CELL LISPXHIST . 227)
(VARIABLE-VALUE-CELL RESETVARSLST . 257)
(VARIABLE-VALUE-CELL FILERDTBL . 111)
(VARIABLE-VALUE-CELL HF . 384)
(VARIABLE-VALUE-CELL WHEREIS.HASH . 376)
WHEREISNOTICE1
WHEREISNOTICE
WHEREISNOTICEFN
(VARIABLE-VALUE-CELL LISPXHIST . 0)
NIL
NIL
((DUMMY) . 0)
INTERNAL
(0 . 1)
(0 . 1)
(0 . 1)
ERRORSET
CLOSEF?
INPUT
OLD
((DON'T.CHANGE.READ.DATE DON'T.CHANGE.DATE) . 0)
OPENFILE
0
SETFILEPTR
RATOM
%(
FILECREATED
READ
"no filemap"
"not Lisp source file"
GETHASHFILE
NAMEFIELD
((INSERT RETRIEVE) . 0)
LOOKUPHASHFILE
NCONC
PUTHASHFILE
ERROR
RESETRESTORE
ERROR!
30
TAB
((DUMMY) . 0)
PRIN2
((DUMMY) . 0)
INFILEP
(0 . 1)
(0 . 1)
NIL
(NIL VARIABLE-VALUE-CELL HF . 0)
((PROGN (CLOSEF? (CAR OLDVALUE)) (AND RESETSTATE (DELFILE (CAR OLDVALUE)
))) . 0)
DIRECTORY
FILENAMEFIELD
NAME
NEWWHEREISDATABASE
EXTENSION
SCRATCH
TEMPORARY
S
PACKFILENAME
OUTPUT
NEW
CLOSEF
RPLACA
TENEX
TOPS20
VERSION
BODY
1
OLDEST
FULLNAME
2000
DISMISS
TERPRI
AUTHOR
GETFILEINFO
PRIN1
" seems to be updating the database right now."
"I'm waiting for him to finish."
SMALLEXPR
CREATEHASHFILE
COPYHASHFILE
((P @ WHEREISNOTICEFN) . 0)
""
RENAMEFILE
DELFILE
(MKN ASZ KL20FLG URET2 URET1 BHC CONSNL FMEMB SKLST SKNLST KT EQUAL SKNI
 SKLA SKSTP CONS LIST2 ALIST2 CF KNIL BLKENT ENTER1)@`0qf+HX
hT{R
	H	(	x@@04`%@"PplHE@?@48.P'00(w

0`pMp10(p`


WHEREISNOTICE1 BINARY
-.,<,~(FILE . 1)
WHEREISNOTICE1
(NIL)
(LINKED-FN-CALL . WHEREISNOTICEBLOCK)
(ENTER1)

WHEREISNOTICE BINARY
-.,<,~(FILEGROUP . 1)
(NEWFLG . 1)
WHEREISNOTICE
(NIL)
(LINKED-FN-CALL . WHEREISNOTICEBLOCK)
(ENTER2)

WHEREISNOTICEFN BINARY
-.,<,~(JFN . 1)
(FILE . 1)
WHEREISNOTICEFN
(NIL)
(LINKED-FN-CALL . WHEREISNOTICEBLOCK)
(ENTER2)

WHEREISA0005 BINARY
-.ZXB,~(VARIABLE-VALUE-CELL WHEREISHASHFILE . 4)
(KNIL ENTER0)

WHEREIS BINARY
M?K-.  ?,<,<`"CXB`Z`-,+Z,<Zp-,++Zp,<,<`,<`,<w"CFD3B+Z`3B+,<,<`,<w ",ZpZw,XBw/[pXBp+/Z`2B+;Z`2BD+;Z`-,+;Z3B+,<`,<E,<&E+Z,<,<`Z2B+'ZBFXB,<BF,<,<GZG,<,<H,<H*I,\DIDJ,<,<,<Zw2B+++:-,+.XBpZXBw+0ZwXBp[wXBwZpZw~,3B+3+9Z`3B+7,<,<`,<w ",ZpZw~,XBw~+)Zw/Z`2B+>,<p"J+Z+`i,J`R]AQ2B@(NAME . 1)
(TYPE . 1)
(FILES . 1)
(FN . 1)
(VARIABLE-VALUE-CELL FILELST . 10)
(VARIABLE-VALUE-CELL MSHASHFILENAME . 51)
(VARIABLE-VALUE-CELL WHEREISHASHFILE . 67)
(VARIABLE-VALUE-CELL WHEREIS.HASH . 65)
GETFILEPKGTYPE
FILECOMS
INFILECOMS?
FNS
CONTAINS
GETRELATION
OPENHASHFILE
HASHFILENAME
AFTER
WHEREISA0005
CLOSEALL
NO
WHENCLOSE
GETHASHFILE
UNION
DREVERSE
(URET1 FMEMB SKLA KT BHC CONS EVCC SKNLST KNIL ENTER4)?h(P;X9(,x?H50.0* h`

(
(PRETTYCOMPRINT WHEREISCOMS)
(RPAQQ WHEREISCOMS ((* WHEREIS from a hashfile) (E (RESETSAVE 
CLISPIFYPRETTYFLG NIL)) (FNS WHEREIS) (FNS WHEREISNOTICE WHEREISNOTICE1 
WHEREISNOTICEFN) (VARS (WHEREISHASHFILE)) (P (OR (BOUNDP (QUOTE 
WHEREIS.HASH)) (RPAQQ WHEREIS.HASH <LISPUSERS>WHEREIS.HASH))) (FILES (
SYSLOAD FROM VALUEOF LISPUSERSDIRECTORIES) HASH) (BLOCKS (
WHEREISNOTICEBLOCK WHEREISNOTICE1 WHEREISNOTICEFN WHEREISNOTICE (ENTRIES
 WHEREISNOTICE1 WHEREISNOTICE WHEREISNOTICEFN) (NOLINKFNS . T) (
GLOBALVARS WHEREIS.HASH)) (NIL WHEREIS (LOCALVARS . T) (GLOBALVARS 
WHEREISHASHFILE WHEREIS.HASH)))))
(* WHEREIS from a hashfile)
(RPAQ WHEREISHASHFILE NIL)
(OR (BOUNDP (QUOTE WHEREIS.HASH)) (RPAQQ WHEREIS.HASH 
<LISPUSERS>WHEREIS.HASH))
(FILESLOAD (SYSLOAD FROM VALUEOF LISPUSERSDIRECTORIES) HASH)
NIL