Google
 

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