(DEFVAR *MODIFIED-FILES* '( "DJ: L.NETWORK.IP-TCP.SERVER; TELNET-UTILITIES.LISP#3" ;15-Feb-86 15 "DJ: L.NETWORK.IP-TCP.SERVER; FINGER.LISP#7" ;14-Feb-86 18:54:23 "DJ: L.NETWORK.IP-TCP.SERVER; FINGER.LISP#7" ;14-Feb-86 18:54:18 "DJ: L.NETWORK.IP-TCP.SERVER; FINGER.LISP#7" ;14-Feb-86 18:54:14 "DJ: L.NETWORK.IP-TCP.SERVER; FINGER.LISP#7" ;14-Feb-86 18:54:11 "DJ: L.NETWORK.IP-TCP.SERVER; FINGER.LISP#7" ;14-Feb-86 18:54:06 "DJ: L.NETWORK.IP-TCP.SERVER; FINGER.LISP#7" ;14-Feb-86 18:53:54 "DJ: L.NETWORK.IP-TCP.SERVER; DISK.LISP#10" ;7-Feb-86 09:01:30 "DJ: L.NETWORK.IP-TCP.USER; CHAOS-SERVER.LISP#20" ;31-Jan-86 17:06:1 "DJ: L.NETWORK.IP-TCP.KERNEL; DRIVER-LISPM.LISP#53" ;17-Feb-86 08:57 "DJ: L.NETWORK.IP-TCP.KERNEL; DRIVER-SUBR.LISP#54" ;17-Feb-86 08:09: "DJ: L.NETWORK.IP-TCP.KERNEL; DRIVER-LISPM.LISP#51" ;17-Feb-86 08:08 "DJ: L.NETWORK.IP-TCP.KERNEL; DRIVER-SUBR.LISP#54" ;17-Feb-86 08:08: "DJ: L.NETWORK.IP-TCP.KERNEL; DRIVER-LISPM.LISP#51" ;17-Feb-86 08:04 "DJ: L.NETWORK.IP-TCP.KERNEL; DRIVER-LISPM.LISP#51" ;17-Feb-86 08:04 "DJ: L.NETWORK.IP-TCP.KERNEL; DRIVER-LISPM.LISP#51" ;17-Feb-86 08:04 "DJ: L.NETWORK.IP-TCP.KERNEL; DRIVER-LISPM.LISP#50" ;17-Feb-86 08:04 "DJ: L.NETWORK.IP-TCP.KERNEL; DRIVER-DLOAD.LISP#109" ;31-Jan-86 17:0 "DJ: L.NETWORK.KERMIT; CALLS.LISP#51" ;1-Feb-86 09:28:08 "DJ: L.NETWORK.KERMIT; CALLS.LISP#51" ;1-Feb-86 09:28:03 "DJ: L.NETWORK.KERMIT; CALLS.LISP#51" ;1-Feb-86 09:27:47 "DJ: L.TAPE; INITIALIZATIONS.LISP#2" ;22-Feb-86 18:41:33 "DJ: L.TAPE; RAW-FORMAT.LISP#7" ;4-Feb-86 22:17:33 "DJ: L.TAPE; TFRAME-COMS.LISP#19" ;4-Feb-86 17:24:28 "DJ: L.TAPE; TFRAME-COMS.LISP#19" ;4-Feb-86 17:24:22 "DJ: L.TAPE; BACKUP.LISP#13" ;4-Feb-86 17:24:08 "DJ: L.TAPE; USER.LISP#81" ;4-Feb-86 17:24:05 "DJ: L.TAPE; USER.LISP#81" ;4-Feb-86 17:24:03 "DJ: L.TAPE; USER.LISP#81" ;4-Feb-86 17:24:00 "DJ: L.ZMAIL; MAIL.LISP#317" ;29-Jan-86 18:38:49 "DJ: L.ZMAIL; DEFS.LISP#280" ;29-Jan-86 18:38:19 "DJ: L.SYS2; STRUCT.LISP#331" ;26-Feb-86 14:17:25 "DJ: L.SYS2; STRUCT.LISP#330" ;26-Feb-86 09:50:15 "DJ: L.SYS2; STRUCT.LISP#330" ;26-Feb-86 09:50:09 "DJ: L.SYS2; STRUCT.LISP#330" ;26-Feb-86 09:50:04 "DJ: L.SYS2; STRUCT.LISP#330" ;26-Feb-86 09:49:58 "DJ: L.SYS2; STRUCT.LISP#330" ;26-Feb-86 09:49:50 "DJ: L.SYS2; STRUCT.LISP#330" ;26-Feb-86 09:49:41 "DJ: L.IO; DISK.LISP#382" ;26-Feb-86 07:58:14 "DJ: L.IO; DISK.LISP#381" ;26-Feb-86 07:49:44 "DJ: L.IO; DISK.LISP#381" ;26-Feb-86 07:49:23 "DJ: L.IO; DISK.LISP#380" ;23-Feb-86 10:39:28 "DJ: L.DEBUGGER; EH.LISP#387" ;23-Feb-86 04:32:03 "DJ: L.SYS2; PATCH.LISP#172" ;20-Feb-86 18:30:05 "DJ: L.ZWEI; FILES.LISP#207" ;20-Feb-86 01:41:17 "DJ: L.IO1; FQUERY.LISP#46" ;19-Feb-86 22:30:30 "DJ: L.IO1; FQUERY.LISP#46" ;19-Feb-86 22:30:14 "DJ: L.ZWEI; ZMACS.LISP#554" ;19-Feb-86 18:20:25 "DJ: L.SYS2; ENCAPS.LISP#33" ;19-Feb-86 13:14:04 "DJ: L.IO; DISK.LISP#375" ;19-Feb-86 16:50:28 "DJ: L.IO; DISK.LISP#375" ;19-Feb-86 16:50:25 "DJ: L.IO; DISK.LISP#375" ;19-Feb-86 16:50:19 "DJ: L.IO; DISK.LISP#375" ;19-Feb-86 16:50:14 "DJ: L.IO; DISK.LISP#375" ;19-Feb-86 16:50:09 "DJ: L.IO; DISK.LISP#375" ;19-Feb-86 16:50:05 "DJ: L.IO; DISK.LISP#375" ;19-Feb-86 16:50:00 "DJ: L.IO; DISK.LISP#375" ;19-Feb-86 16:49:55 "DJ: L.IO; DISK.LISP#375" ;19-Feb-86 16:49:50 "DJ: L.IO; DISK.LISP#375" ;19-Feb-86 16:49:44 "DJ: L.IO; DISK.LISP#375" ;19-Feb-86 16:49:41 "DJ: L.IO; DISK.LISP#375" ;19-Feb-86 16:49:35 "DJ: L.IO; DISK.LISP#375" ;19-Feb-86 16:49:29 "DJ: L.IO; DISK.LISP#375" ;19-Feb-86 16:49:22 "DJ: L.IO; DISK.LISP#375" ;19-Feb-86 16:49:17 "DJ: L.IO; DISK.LISP#375" ;19-Feb-86 16:48:25 "DJ: L.IO; DISK.LISP#375" ;19-Feb-86 16:48:04 "DJ: L.IO; DISK.LISP#375" ;19-Feb-86 16:45:42 "DJ: L.IO; DISK.LISP#375" ;19-Feb-86 16:45:39 "DJ: L.IO; DISK.LISP#375" ;19-Feb-86 16:45:34 "DJ: L.WINDOW; FRAME.LISP#171" ;18-Feb-86 17:22:51 "DJ: L.IO; PRINT.LISP#215" ;18-Feb-86 12:45:20 "DJ: L.WINDOW; SCROLL.LISP#182" ;14-Feb-86 19:19:30 "DJ: L.NETWORK; TRANSPARENT.LISP#9" ;14-Feb-86 18:13:26 "DJ: L.NETWORK; TRANSPARENT.LISP#9" ;14-Feb-86 18:13:21 "DJ: L.IO1; CONVER.LISP#149" ;14-Feb-86 18:09:05 "DJ: L.WINDOW; SHWARM.LISP#359" ;14-Feb-86 10:52:13 "DJ: L.SYS2; GC.LISP#297" ;14-Feb-86 09:40:59 "DJ: L.PATCH; SYSTEM-109-101.LISP#1" ;12-Feb-86 11:55:14 "DJ: L.PATCH; SYSTEM-109-100.LISP#1" ;12-Feb-86 11:52:57 "DJ: L.DEBUGGER; EHF.LISP#285" ;9-Feb-86 14:26:11 "DJ: L.DEBUGGER; EHF.LISP#285" ;9-Feb-86 14:26:06 "DJ: L.SYS2; ENCAPS.LISP#32" ;6-Feb-86 13:58:38 "DJ: L.SYS2; ANALYZE.LISP#40" ;6-Feb-86 09:39:21 "DJ: L.SYS2; ANALYZE.LISP#40" ;6-Feb-86 09:38:58 "DJ: L.PATCH; SYSTEM-110-13.LISP#1" ;5-Feb-86 21:18:26 "DJ: L.ZWEI; DIRED.LISP#320" ;4-Feb-86 14:14:05 "DJ: L.ULAMBDA; USYMLD.LISP#5" "DJ: L.SYS2; MACARRAY.LISP#7" ;3-Feb-86 00:30:36 "DJ: L.SYS2; MACARRAY.LISP#7" ;3-Feb-86 00:30:19 "DJ: L.SYS2; PLANE.LISP#34" ;2-Feb-86 23:29:45 "DJ: L.SYS2; PLANE.LISP#34" ;2-Feb-86 23:29:42 "DJ: L.SYS2; PLANE.LISP#34" ;2-Feb-86 23:29:38 "DJ: L.SYS2; PLANE.LISP#34" ;2-Feb-86 23:29:35 "DJ: L.SYS2; PLANE.LISP#34" ;2-Feb-86 23:29:31 "DJ: L.SYS2; PLANE.LISP#34" ;2-Feb-86 23:29:24 "DJ: L.IO1; SDU-SERIAL.LISP#28" ;2-Feb-86 17:28:31 "DJ: L.IO1; SDU-SERIAL.LISP#27" ;2-Feb-86 17:27:08 "DJ: L.NETWORK; HOST.LISP#152" ;1-Feb-86 17:07:56 "DJ: L.IO; FORMAT.LISP#261" ;1-Feb-86 02:28:02 "DJ: L.SYS2; RESOUR.LISP#46" ;1-Feb-86 02:27:45 "DJ: L.SYS2; RESOUR.LISP#46" ;1-Feb-86 02:26:20 "DJ: L.SYS; SGFCTN.LISP#68" ;31-Jan-86 23:24:19 "DJ: L.NETWORK.CHAOS; CHSAUX.LISP#382" ;30-Jan-86 17:21:08 "DJ: L.SYS2; PROCES.LISP#186" ;30-Jan-86 16:50:57 "DJ: L.IO; DLEDIT.LISP#79" ;30-Jan-86 12:51:59 "DJ: L.IO.FILE; ACCESS.LISP#32" ;29-Jan-86 11:39:07 "DJ: L.IO; DISK.LISP#369" ;29-Jan-86 11:38:44 "DJ: L.NETWORK; TRANSPARENT.LISP#8" ;29-Jan-86 11:38:31 "DJ: L.IO.FILE; ACCESS.LISP#32" ;28-Jan-86 18:16:59 "DJ: L.IO.FILE; ACCESS.LISP#31" ;28-Jan-86 18:05:08 "DJ: L.WINDOW; SHWARM.LISP#359" ;28-Jan-86 11:38:53 "DJ: L.WINDOW; RH.LISP#168" ;27-Jan-86 21:13:33 "DJ: L.WINDOW; RH.LISP#168" ;27-Jan-86 21:13:26 "DJ: L.SYS; SHARED-DEVICE.LISP#38" ;27-Jan-86 16:19:45 "DJ: L.NETWORK.CHAOS; CHUSE.LISP#21" ;26-Jan-86 13:51:51 "DJ: L.SYS2; METH.LISP#64" ;25-Jan-86 21:55:42 "DJ: L.IO; DISK.LISP#366" ;25-Jan-86 21:55:30 "DJ: L.NETWORK.EDIT; LOADING-AND-SAVING-SITE-FILES.LISP#43" ;6-Feb-8 "DJ: L.FILE; SERVER.LISP#180" ;30-Jan-86 16:56:23 )) (DEFUN CHECK-FILE-GP (P) (FORMAT T "~&CHECKING ~S" P) (LET ((NEWEST (PROBE-FILE (SEND P :NEW-VERSION :NEWEST)))) (COND ((NOT NEWEST) (FORMAT T "~&SOURCE DOES NOT EXIST ANYMORE: ~S~%" (SEND P :NEW-VERSION :NEWEST)) (LIST P)) ((> (SEND P :VERSION) (SEND NEWEST :VERSION)) (FORMAT T "~&SOURCE EXISTS WITH LOWER VERSION THAN PATCH: ~S VS ~S~%" NEWEST P) (LIST P))))) (DEFUN REDUCE-MODIFIED-FILES () (SETQ *MODIFIED-FILES* (MAPCAR #'FS:PARSE-PATHNAME *MODIFIED-FILES*)) (SETQ *MODIFIED-FILES* (REMOVE-DUPLICATES *MODIFIED-FILES*)))