Trailing-Edge
-
PDP-10 Archives
-
-
There are no other files named in the archive.
(FILECREATED " 2-MAR-81 09:12:37" <LISPUSERS>SYSALL.;6 1720
changes to: SYSALL
previous date: "21-OCT-78 02:49:19" <LISPUSERS>SYSALL.;4)
(PRETTYCOMPRINT SYSALLCOMS)
(RPAQQ SYSALLCOMS ((VARS MINSYSOUTSIZE)
(FNS CHECKSYSOUT PRINTSYSOUT SYSALL)))
(RPAQQ MINSYSOUTSIZE 75)
(DEFINEQ
(CHECKSYSOUT
(LAMBDA (JFN) (* lmm "21-OCT-78 02:36")
(PROG (TEM)
(COND
((IGREATERP (JS SIZEF JFN NIL NIL 3)
MINSYSOUTSIZE)
(COND
((AND (SETQ TEM (SYSOUTP JFN))
(CAR TEM)
(OR (NULL MSD)
(MEMBER (CADR TEM)
MSD)))
(SETQ VAL (CONS (CONS (JFNS JFN)
TEM)
VAL))
(RETURN T))))))))
(PRINTSYSOUT
(LAMBDA (DUMMY) (* lmm "21-OCT-78 02:29")
(SPACES 1)
(add I 15)
(PRIN1 (LIST (CADAR VAL)))))
(SYSALL
[LAMBDA (MAKESYSES ALLFLG) (* lmm " 2-MAR-81 09:12")
(PROG (VAL TEM MSD)
[COND
(MAKESYSES (for X inside MAKESYSES
do (DIRECTORY X [QUOTE (@ (COND
((AND (SETQ TEM (SYSOUTP JFN))
(NULL (CAR TEM)))
(SETQ MSD (CONS (CADR TEM)
MSD]
(QUOTE SAV)
-3]
[RPTQ 1024 (COND
((IGEQ (JS GTDAL RPTN NIL NIL 2)
MINSYSOUTSIZE)
(DIRECTORY [PACK* "<" (USERNAME RPTN)
(IF ALLFLG
THEN ">*.*"
ELSE (SELECTQ (SYSTEMTYPE)
(TENEX ">*.SAV")
(TOPS-20 ">*.EXE")
(SHOULDNT]
(QUOTE (@ CHECKSYSOUT P @ PRINTSYSOUT AUTHOR READDATE]
(RETURN VAL])
)
(DECLARE: DONTCOPY
(FILEMAP (NIL (321 1696 (CHECKSYSOUT 333 . 751) (PRINTSYSOUT 755 . 932) (SYSALL 936 . 1693)))))
STOP