Google
 
Trailing-Edge - PDP-10 Archives - decuslib20-01 - decus/20-0004/remotecleanup.com
There are no other files named remotecleanup.com in the archive.
(FILECREATED "15-JAN-79 12:29:29" ("compiled on " <LAASER>REMOTECLEANUP.;1) (2 . 2)
)
(FILECREATED "15-JAN-79 12:29:16" <LAASER>REMOTECLEANUP.;1 4944 changes to: 
CLEANUPREMOTELY previous date: "11-JAN-79 11:58:45" <LISPUSERS>REMOTECLEANUP.;3)

CLEANUPREMOTELY BINARY
+&-.0,<ZD3B+Z3B+Z+ZZ,3B+

ZXBZ,<,<$+ZXB	Z
,<,<"B,<@@+++jZp,<@ +i,<,<ZBF,<,<Zw-,+#ZpZ2B+! "+#[QD "+-Zw,<@ +(ZBZ,,~3B++ZwZp,XBp[wXBw+/XBZZ,3B+Q,<Z,<,<Z,<,BB3B+J,<Z13B+;3B+;-,+;,<,<,,<,<Z6,<,<Z2H3B+C3B+C-,+C,<,<,,<Z-3B+I3B+I-,+I,<,<,,+P,< Z<3B+O3B+O-,+O,<,<,,,<ZD ZZ.,3B+h,<!ZJ3B+Y3B+Y-,+Y,<,<,,,<ZPD ,<!ZD3B+a3B+a-,+a,<,<,,<ZT3B+f3B+f-,+f,<,<,,,<ZZD ,~[pXBp+/ZZR,3B+u,<"Z3B+s3B+s-,+s,<,<,,,<ZgD ,<"ZtD ZuB#Z,<,<#ZFXBwB$3B+Z$Zk,3B+
Zn,<Zp-,++	Zp,<@ +,<Za,<,<,<%(B%,~[pXBp+/+ZXBZvB&Z,~,~Z,~O8:2VQ+	

FJb*X

V,,
`E,<(@(VARIABLE-VALUE-CELL FILES . 253)
(VARIABLE-VALUE-CELL CLEANUPOPTIONS . 249)
(VARIABLE-VALUE-CELL REMOTECLEANUPINITIALIZED . 26)
(VARIABLE-VALUE-CELL CLEANUPSYSTEM . 27)
(VARIABLE-VALUE-CELL NOTCOMPILEDFILES . 278)
(VARIABLE-VALUE-CELL COMPILE.EXT . 124)
(VARIABLE-VALUE-CELL CLEANUPSTRINGEND . 242)
((REMMAST REMCOM) . 0)
INTERSECTION
"CONTINUE
"
REMMAST
"(LOAD (QUOTE <LISPUSERS>REMOTECLEANUPSUPPORT.COM]"
CONCAT
TEMPREMOTECLEANUP;T
OUTFILE
(VARIABLE-VALUE-CELL STR . 244)
(VARIABLE-VALUE-CELL TEMPFILE . 279)
(NIL VARIABLE-VALUE-CELL VALUE . 0)
(NIL VARIABLE-VALUE-CELL FNS . 184)
(VARIABLE-VALUE-CELL FILE . 265)
FNS
FILECOMS
INFILECOMS?
(VARIABLE-VALUE-CELL FN . 76)
FNTYP
((EXPR FEXPR EXPR* FEXPR*) . 0)
REMCOM
BODY
EXTENSION
PACKFILENAME
FULLNAME
RECOMPILE
QUOTE
NAME
BCOMPL
PRINT
LOADDB?
READALTEREDFNS
DUMPDATABASES
STOP
CLOSEF
((LOADALTERATIONS) . 0)
TENEX
RELOAD
COM
LOAD
DELFILE
(ALIST3 ALIST2 ALIST4 LIST2 SKNNM LIST4 BHC COLLCT SKNLST KT FMEMB KNIL ENTERF)

x@Z
	 8g

Z
I@<q

P_NxB H(k`8hdhW	PF9X
~(p
@LX@6) X8	X
(PRETTYCOMPRINT REMOTECLEANUPCOMS)
(RPAQQ REMOTECLEANUPCOMS ((VARS * REMOTECLEANUPVARS) (FNS * REMOTECLEANUPFNS) (
ADVICE * REMOTECLEANUPADVICE) (P (READVISE CLEANUP) (SETQ MAKEFILEOPTIONS (APPEND (
QUOTE (REMMAST REMCOM RELOAD)) MAKEFILEOPTIONS)) (OR (STRINGP (GETATOMVAL (QUOTE 
CLEANUPSYSTEM))) (COND ((GETPROP (QUOTE MENUMENU) (QUOTE MENUCOMS)) (* THIS IS A 
DLISP) (SETQ CLEANUPOPTIONS (CONS (QUOTE REMCOM) (DREMOVE (QUOTE RC) CLEANUPOPTIONS
))) (SETQ CLEANUPSYSTEM "<KBA>DLISP
")) ((AND (GETD (QUOTE SeekInFiller)) (NULL (GETD (QUOTE MASTERSCOPE)))) (* THIS IS
 A SMALLKRL) (SETQ CLEANUPOPTIONS (CONS (QUOTE REMCOM) (CONS (QUOTE REMMAST) (
REMOVE (QUOTE RC) CLEANUPOPTIONS)))) (SETQ CLEANUPSYSTEM "<KRL1>KRL
Y")) (T (SETQ CLEANUPSYSTEM "LISP
")))) (LOAD? (QUOTE <LISPUSERS>FILEWONTOPEN)))))
(RPAQQ REMOTECLEANUPVARS (FORCESUBJOB (REMOTECLEANUPINITIALIZED NIL) (
CLEANUPSTRINGEND "(LOGOUT)") CLEANUPSTRINGSTART))
(RPAQQ FORCESUBJOB NIL)
(RPAQ REMOTECLEANUPINITIALIZED NIL)
(RPAQ CLEANUPSTRINGEND "(LOGOUT)")
(RPAQQ CLEANUPSTRINGSTART "<KRL1>KRL
C")
(RPAQQ REMOTECLEANUPFNS (CLEANUPREMOTELY))
(RPAQQ REMOTECLEANUPADVICE (CLEANUP))
(PUTPROPS CLEANUP ARGNAMES (NIL (FILES) . FILES))
(PUTPROPS CLEANUP READVICE (NIL (AFTER NIL (CLEANUPREMOTELY FILES))))
(READVISE CLEANUP)
(SETQ MAKEFILEOPTIONS (APPEND (QUOTE (REMMAST REMCOM RELOAD)) MAKEFILEOPTIONS))
(OR (STRINGP (GETATOMVAL (QUOTE CLEANUPSYSTEM))) (COND ((GETPROP (QUOTE MENUMENU) (
QUOTE MENUCOMS)) (* THIS IS A DLISP) (SETQ CLEANUPOPTIONS (CONS (QUOTE REMCOM) (
DREMOVE (QUOTE RC) CLEANUPOPTIONS))) (SETQ CLEANUPSYSTEM "<KBA>DLISP
")) ((AND (GETD (QUOTE SeekInFiller)) (NULL (GETD (QUOTE MASTERSCOPE)))) (* THIS IS
 A SMALLKRL) (SETQ CLEANUPOPTIONS (CONS (QUOTE REMCOM) (CONS (QUOTE REMMAST) (
REMOVE (QUOTE RC) CLEANUPOPTIONS)))) (SETQ CLEANUPSYSTEM "<KRL1>KRL
Y")) (T (SETQ CLEANUPSYSTEM "LISP
"))))
(LOAD? (QUOTE <LISPUSERS>FILEWONTOPEN))
NIL