(FILECREATED " 6-Jan-87 12:32:26" ("compiled on " {ERIS}KOTO>LISPUSERS>PROMPTREMINDERS.;1) "30-Dec-86 11:35:10" bcompl'd in "Xerox Lisp 30-Dec-86 ..." dated "30-Dec-86 12:05:28") (FILECREATED "18-Nov-85 13:39:10" {ICE}LISP>PROMPTREMINDERS.;1 18199 changes to: (RECORDS PERIODIC.PROMPT.REMINDER) previous date: "23-Apr-85 14:16:35" {ICE}PROMPTREMINDERS.;1) SETREMINDER D4 (P 1 REMINDER P 0 RNAME I 6 WINKINGDURATION I 5 REMINDINGDURATION I 4 EXPIRATION I 3 INITIALDELAY I 2 MESSAGE I 1 PERIOD I 0 NAME) @!Hghg Ygl n>hdddddhYBHIE3 `IF3 `HgI IAIC CI IZJl C3 AjDIDd3 I ؂ i ` H(176 NOTIFY.EVENT 169 REMINDER.EXPIRATIONDATE 165 STRINGP 160 IDATE 157 REMINDER.NEXTREMINDDATE 133 \DAYTIME0 115 SETUPTIMER.DATE 107 STRINGP 95 PUTDEF 31 \DAYTIME0 19 GETDEF 5 GENSYM) (173 \REMINDER.EVENT 124 FIXP 91 REMINDERS 86 DEFAULT.REMINDER.WINKINGDURATION 72 DEFAULT.REMINDER.DURATION 25 PERIODIC.PROMPT.REMINDER 16 NOERROR 12 REMINDERS) () SHOW.REMINDERA0001 D4 (P 4 SI*NLSETQFLAG* P 3 *CONDITION-HANDLER-BINDINGS* P 2 *PROCEED-CASES* P 1 SI*CATCH-RETURN-FROM* P 0 SI*DUMMY-FOR-CATCH* F 5 PROCEED-CASE0016 F 6 *PROCEED-CASES* F 7 *CONDITION-HANDLER-BINDINGS* F 8 MESSAGE) Oi@ggggUgjgg gg VggWiW h (74 \MVLIST 68 EVAL 43 MAKE-PROCEED-CASE 39 CLSYMBOL-FUNCTION 30 CLSYMBOL-FUNCTION) (54 SINLSETQHANDLER 51 SERIOUS-CONDITION 36 SIERRORSET-PRINT-FUNCTION 33 REPORT 27 TRUE 24 TEST 20 SELECTOR 16 TAG 13 ABORT 10 NAME 7 NORMAL) () SHOW.REMINDER D4 (P 6 WINKING P 5 VISIBLE P 4 DURATION P 3 LUACTION P 2 FIRSTTIME P 1 PROCEED-CASE0016 P 0 MESSAGE I 0 REMINDER) @HhhI dgj:t` i` l @l @Mh]H` ` K`#` n Ng Lg h(145 TIMEREXPIRED? 135 TIMEREXPIRED? 127 DISMISS 120 DSPRESET 104 TERPRI 97 PRIN3 74 \DAYTIME0 57 \DAYTIME0 51 COPYALL 43 DSPRESET 36 PRINTBELLS 20 SHOW.REMINDERA0001) (142 SECONDS 132 SECONDS 117 REMINDERSTREAM 109 \LASTUSERACTION 101 REMINDERSTREAM 94 REMINDERSTREAM 48 \LASTUSERACTION 40 REMINDERSTREAM 26 NORMAL) () ACTIVEREMINDERNAMES D4 NIL 0`dIHhZH&JNIL (5 PERIODIC.PROMPT.REMINDERS) () REMINDER.NEXTREMINDDATE D4 (P 3 NEWDATE P 2 SDATE P 1 DEF P 0 N) ekHhkagkakagho IdaI HkJla la [J K jHllaIgg IKI ` (141 NOTIFY.EVENT 134 SETUPTIMER.DATE 124 MARKASCHANGED 91 IDATE 87 IDATE 82 GDATE 74 STRINGP 59 GDATE 56 ALTO.TO.LISP.DATE 39 GETDEF) (138 \REMINDER.EVENT 121 CHANGED 118 REMINDERS 31 REMINDERS 21 PERIODIC.PROMPT.REMINDER) ( 36 (NOERROR NOCOPY)) REMINDER.EXPIRATIONDATE D4 (P 3 NEWDATE P 2 SDATE P 1 DEF P 0 N) e@kHkagkakagho Yh I ZHkNla la J K mHllaIgg KZILd J(145 SETUPTIMER.DATE 128 MARKASCHANGED 93 IDATE 89 IDATE 84 GDATE 76 STRINGP 64 GDATE 61 ALTO.TO.LISP.DATE 36 GETDEF) (125 CHANGED 122 REMINDERS 28 REMINDERS 18 PERIODIC.PROMPT.REMINDER) ( 33 (NOERROR NOCOPY)) REMINDER.PERIOD D4 (P 4 NEWPERIOD P 3 PERIOD P 2 PERIOD P 1 DEF P 0 N) pekHhekagkakagho IdEHkjKklaj\lLh KLjIgg IL(101 MARKASCHANGED 75 ERRORX 35 GETDEF) (98 CHANGED 95 REMINDERS 27 REMINDERS 17 PERIODIC.PROMPT.REMINDER) ( 32 (NOERROR NOCOPY)) REMINDERS.RESTART D4 NIL $g g ogggg (33 ADD.PROCESS 11 FIND.PROCESS 5 DEL.PROCESS) (29 REMINDERS.WATCHDOG 26 NAME 23 HARDRESET 20 RESTARTABLE 8 REMINDERS.WATCHDOG 2 REMINDERS.WATCHDOG) ( 17 (REMINDERS.WATCHDOG)) REMINDERS.WATCHDOG D4 (P 4 PR P 0 DELAY) a0``1KMdCnڹjI&I$\L MMNNK[joJJo (92 AWAIT.EVENT 59 ALTO.TO.LISP.DATE 26 IDATE 5 PERIODICALLYCHECKREMINDERS) (49 FIXP 12 PERIODIC.PROMPT.REMINDERS 9 \REMINDER.EVENT) ( 88 1800000 79 1800000) \PUTREMINDER D4 (P 1 PERIOD P 0 OLDDEF I 2 DEF I 1 FILEPKGTYPE I 0 NAME) q@`BBh@AHg@Bh` gBH1HB g I3 BBZJl I` @(109 NOTIFY.EVENT 99 \DAYTIME0 75 MARKASCHANGED 68 /RPLACA 43 /SETTOPVAL) (106 \REMINDER.EVENT 90 FIXP 72 CHANGED 47 DEFINED 39 PERIODIC.PROMPT.REMINDERS 31 PERIODIC.PROMPT.REMINDERS 3 PERIODIC.PROMPT.REMINDERS) () \GETREMINDER D4 (I 1 TYPE I 0 NAME) @`NIL (3 PERIODIC.PROMPT.REMINDERS) () \DELREMINDER D4 (P 0 OLDDEF I 1 FILEPKGTYPE I 0 NAME) E@@lAglAdg@h @`H@Ag gH` i(65 /SETTOPVAL 62 REMOVE 51 MARKASCHANGED 31 ERRORX) (59 PERIODIC.PROMPT.REMINDERS 55 PERIODIC.PROMPT.REMINDERS 48 DELETED 36 PERIODIC.PROMPT.REMINDERS 21 REMINDERS 11 REMINDERS) () PERIODICALLYCHECKREMINDERSA0001 D4 (NAME SI*UNWIND-PROTECT* P 7 X P 6 FLASHFLG P 5 MESSAGE P 4 Reminder'sExpiration P 3 Reminmder'sPeriod P 2 Reminder'sTimer P 1 REMINDER P 0 ACTED I 0 SI*CLEANUP-FORMS* F 8 SI*RESETFORMS* F 9 RESETP) hohhWcp`dOY\CIZ/JI3 WFKIJ|J|iIhZLrO`fLg O`NJg FKIJJl KLO`IhiI KIJJl K@H` ` h(234 CLOSEW 207 \DAYTIME0 188 SHOW.REMINDER 161 \DAYTIME0 141 TIMEREXPIRED? 121 TIMEREXPIRED?) (231 REMINDERSTREAM 226 CLOSEREMINDERSTREAMFLG 198 FIXP 176 \PR.REMOVALS 172 \PR.REMOVALS 152 FIXP 138 SECONDS 132 \PR.REMOVALS 128 \PR.REMOVALS 118 SECONDS 113 FIXP 108 \PR.REMOVALS 104 \PR.REMOVALS 85 FIXP 77 FIXP 22 PERIODIC.PROMPT.REMINDERS 3 \PR.REMOVALS) ( 7 (PROGN (MAPC \PR.REMOVALS (FUNCTION (LAMBDA (X) (DELDEF (CAR X) (QUOTE REMINDERS))))))) PERIODICALLYCHECKREMINDERS D4 (P 1 SI*RESETFORMS* P 0 LISPXHIST I 0 RESETP F 2 LISPXHIST) Rg  (19 CLVALUES-LIST 15 SIRESETUNWIND 12 \MVLIST 9 PERIODICALLYCHECKREMINDERSA0001) (6 SIRESETUNWIND) () (PRETTYCOMPRINT PROMPTREMINDERSCOMS) (RPAQQ PROMPTREMINDERSCOMS ((DECLARE: EVAL@COMPILE DONTCOPY (RECORDS PERIODIC.PROMPT.REMINDER)) (FNS SETREMINDER SHOW.REMINDER ACTIVEREMINDERNAMES REMINDER.NEXTREMINDDATE REMINDER.EXPIRATIONDATE REMINDER.PERIOD REMINDERS.RESTART REMINDERS.WATCHDOG) (PROP ARGNAMES REMINDER.NEXTREMINDDATE REMINDER.EXPIRATIONDATE REMINDER.PERIOD) (FNS \PUTREMINDER \GETREMINDER \DELREMINDER) (FNS PERIODICALLYCHECKREMINDERS) (INITVARS (\PR.REMOVALS NIL)) (INITVARS (DEFAULT.REMINDER.DURATION 60) ( DEFAULT.REMINDER.WINKINGDURATION 10) (PERIODIC.PROMPT.REMINDERS NIL) (REMINDERSTREAM PROMPTWINDOW)) ( GLOBALVARS \PR.REMOVALS REMINDERSTREAM PERIODIC.PROMPT.REMINDERS DEFAULT.REMINDER.DURATION DEFAULT.REMINDER.WINKINGDURATION DEFAULT.REMINDER.PERIOD) (FILEPKGCOMS REMINDERS) (INITVARS ( CLOSEREMINDERSTREAMFLG)) (VARS (\REMINDER.EVENT (CREATE.EVENT (QUOTE PERIODIC.PROMPT.REMINDERS)))) ( GLOBALVARS CLOSEREMINDERSTREAMFLG \REMINDER.EVENT) (ADDVARS (AFTERLOGOUTFORMS (REMINDERS.RESTART))) (P (REMINDERS.RESTART)) (DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA) ( NLAML) (LAMA REMINDER.PERIOD REMINDER.EXPIRATIONDATE REMINDER.NEXTREMINDDATE))))) (PUTPROPS REMINDER.NEXTREMINDDATE ARGNAMES (REMINDER NEWVALUE)) (PUTPROPS REMINDER.EXPIRATIONDATE ARGNAMES (REMINDER NEWVALUE)) (PUTPROPS REMINDER.PERIOD ARGNAMES (REMINDER NEWVALUE)) (RPAQ? \PR.REMOVALS NIL) (RPAQ? DEFAULT.REMINDER.DURATION 60) (RPAQ? DEFAULT.REMINDER.WINKINGDURATION 10) (RPAQ? PERIODIC.PROMPT.REMINDERS NIL) (RPAQ? REMINDERSTREAM PROMPTWINDOW) (PUTDEF (QUOTE REMINDERS) (QUOTE FILEPKGCOMS) (QUOTE ((TYPE DESCRIPTION "Periodic PROMPT Reminders" GETDEF \GETREMINDER PUTDEF \PUTREMINDER DELDEF \DELREMINDER)))) (RPAQ? CLOSEREMINDERSTREAMFLG) (RPAQ \REMINDER.EVENT (CREATE.EVENT (QUOTE PERIODIC.PROMPT.REMINDERS))) (ADDTOVAR AFTERLOGOUTFORMS (REMINDERS.RESTART)) (REMINDERS.RESTART) (PUTPROPS PROMPTREMINDERS COPYRIGHT ("Xerox Corporation" 1982 1983 1984 1985)) NIL