(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP") (FILECREATED "14-Sep-94 18:12:56" ("compiled on " {DSK}lispusers>PROMPTREMINDERS.;1) "28-Jul-94 17:28:46" bcompl'd in "Medley 25-Aug-94 ..." dated "25-Aug-94 10:02:49") (FILECREATED "13-May-88 14:13:53" {ERINYES}MEDLEY>PROMPTREMINDERS.;1 25212 previous date%: "18-Nov-85 13:39:10" {ERINYES}KOTO>LISPUSERS>PROMPTREMINDERS.;1) SETREMINDER :D8 (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) Ü@µ!HghgYµ#gl n>€öhddddddYBµHIE3 µ`IF3 µ`HgIIAIC šCI ° IZÃ‘J‚l C3 µAµjöD²!IDd3 œI Ø„ i¿` H(216 NOTIFY.EVENT 205 REMINDER.EXPIRATIONDATE 199 STRINGP 192 IDATE 187 REMINDER.NEXTREMINDDATE 161 \DAYTIME0 139 SETUPTIMER.DATE 129 STRINGP 115 PUTDEF 43 \DAYTIME0 27 GETDEF 7 GENSYM) (211 \REMINDER.EVENT 150 FIXP 109 REMINDERS 102 DEFAULT.REMINDER.WINKINGDURATION 86 DEFAULT.REMINDER.DURATION 35 PERIODIC.PROMPT.REMINDER 22 NOERROR 16 REMINDERS) () SHOW.REMINDERA0001 :D8 (P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 2 MESSAGE F 3 SI::NLSETQ-VALUE) i@R hcg(10 EVAL) (19 :NORMAL) () SHOW.REMINDER :D8 (P 9 WINKING P 8 VISIBLE P 7 DURATION P 6 LUACTION P 5 FIRSTTIME P 4 *CONDITION-HANDLER-BINDINGS* P 3 SI::*NLSETQFLAG* P 2 *PROCEED-CASES* P 1 SI::NLSETQ-VALUE P 0 MESSAGE I 0 REMINDER F 10 *PROCEED-CASES* F 11 *CONDITION-HANDLER-BINDINGS*) Ì @H²$`WioWJ ±Ÿ¿` ¿i` l @öl @ö Ohð_²$H` ¿` ¿N`ô°3` ¿nô ¿Og ²¶Og ²•h(198 TIMEREXPIRED? 183 TIMEREXPIRED? 170 DISMISS 161 DSPRESET 139 TERPRI 128 PRIN3 99 \DAYTIME0 80 \DAYTIME0 72 COPYALL 60 DSPRESET 49 PRINTBELLS 39 SHOW.REMINDERA0001) (193 SECONDS 178 SECONDS 156 REMINDERSTREAM 146 \LASTUSERACTION 134 REMINDERSTREAM 123 REMINDERSTREAM 67 \LASTUSERACTION 55 REMINDERSTREAM 18 SI::NLSETQ-PROCEED-CASE) ( 27 (CL:ERROR . SI::NLSETQHANDLER)) ACTIVEREMINDERNAMES :D8 NIL 0`d¸IµHhZH&¹µïJNIL (7 PERIODIC.PROMPT.REMINDERS) () REMINDER.NEXTREMINDDATE :D8 (P 3 NEWDATE P 2 SDATE P 1 DEF P 0 N) ±ekHñhð´‚±£kagð“ka°kaghoId²z´Ioæ Hkð‘Jla µ la [J K Ùjð³%Hlñ”la³Igg¿IKI ` (174 NOTIFY.EVENT 163 SETUPTIMER.DATE 151 MARKASCHANGED 112 IDATE 106 IDATE 99 GDATE 89 STRINGP 72 GDATE 47 GETDEF) (169 \REMINDER.EVENT 146 CHANGED 141 REMINDERS 36 REMINDERS 23 PERIODIC.PROMPT.REMINDER) ( 66 -2147483648 42 (NOERROR NOCOPY)) REMINDER.EXPIRATIONDATE :D8 (P 3 NEWDATE P 2 SDATE P 1 DEF P 0 N) ³e@kHñ³&kagð“ka°kaghoYµh´Ioæ ZHkñ²^la µ la »J K µmÿô³%Hlñ”la³Igg¿KZ¼ILd” J(174 SETUPTIMER.DATE 155 MARKASCHANGED 114 IDATE 108 IDATE 101 GDATE 91 STRINGP 77 GDATE 44 GETDEF) (150 CHANGED 145 REMINDERS 33 REMINDERS 20 PERIODIC.PROMPT.REMINDER) ( 71 -2147483648 39 (NOERROR NOCOPY)) REMINDER.PERIOD :D8 (P 4 NEWPERIOD P 3 PERIOD P 2 PERIOD P 1 DEF P 0 N) €ekHñhð´ukagð“ka°kaghoId²MHkÙjð‘KklajØ\ñ›lLh ¿KLÙjð³Igg¿IL(117 MARKASCHANGED 85 ERRORX 43 GETDEF) (112 CHANGED 107 REMINDERS 32 REMINDERS 19 PERIODIC.PROMPT.REMINDER) ( 38 (NOERROR NOCOPY)) REMINDERS.RESTART :D8 NIL 7g g µ!ogggg (52 ADD.PROCESS 19 FIND.PROCESS 9 DEL.PROCESS) (46 REMINDERS.WATCHDOG 41 NAME 36 HARDRESET 31 RESTARTABLE 14 REMINDERS.WATCHDOG 4 REMINDERS.WATCHDOG) ( 26 (REMINDERS.WATCHDOG)) REMINDERS.WATCHDOG :D8 (P 4 PR P 0 DELAY) r0¿``1Kµ"M´Mll<ÚnèÚnèMÙÚ¹jIñ³+I°)\Ã²Loæ¾M“MNó‘N½K[°¹jºdJñ‘¿J ¿°”(109 AWAIT.EVENT 46 IDATE 7 PERIODICALLYCHECKREMINDERS) (68 FIXP 18 PERIODIC.PROMPT.REMINDERS 13 \REMINDER.EVENT) ( 80 -2147483648) \PUTREMINDER :D8 (P 1 PERIOD P 0 OLDDEF I 2 DEF I 1 FILEPKGTYPE I 0 NAME) ‰@`BBh¿@AH³g@Bh` ¿g°BHô’¿°?HB ¿g¿I3 ²BBZÃ‘J‚l Iö¿` @(133 NOTIFY.EVENT 119 \DAYTIME0 91 MARKASCHANGED 80 /RPLACA 51 /SETTOPVAL) (128 \REMINDER.EVENT 108 FIXP 86 CHANGED 57 DEFINED 45 PERIODIC.PROMPT.REMINDERS 35 PERIODIC.PROMPT.REMINDERS 5 PERIODIC.PROMPT.REMINDERS) () \GETREMINDER :D8 (I 1 TYPE I 0 NAME) @`NIL (5 PERIODIC.PROMPT.REMINDERS) () \DELREMINDER :D8 (P 0 OLDDEF I 1 FILEPKGTYPE I 0 NAME) Z@ž@d3@ð˜Agð³lAdgð´¿@h ¿@`H´%@Ag¿gH` i(86 /SETTOPVAL 81 REMOVE 64 MARKASCHANGED 38 ERRORX) (76 PERIODIC.PROMPT.REMINDERS 70 PERIODIC.PROMPT.REMINDERS 59 DELETED 45 PERIODIC.PROMPT.REMINDERS 25 REMINDERS 13 REMINDERS) () PERIODICALLYCHECKREMINDERSA0001 :D8 (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) #hohdWcp`±édOY\µQIZ²6Jµ#I3 »W²^K¢±¹IJÃ¢±¡J± Ã³ÚiIhZ¿²ÑL’±”O`±ƒÃœLg ² O`°`Jg ²TK²IJÃ‘J‚l Kö°LO`ƒIh¿i¸I ¿K²IJÃ‘J‚l Kö¿µ‚±ÿH´`´ ` h(287 CLOSEW 254 \DAYTIME0 231 SHOW.REMINDER 198 \DAYTIME0 174 TIMEREXPIRED? 146 TIMEREXPIRED?) (282 REMINDERSTREAM 275 CLOSEREMINDERSTREAMFLG 243 FIXP 217 \PR.REMOVALS 211 \PR.REMOVALS 187 FIXP 169 SECONDS 161 \PR.REMOVALS 155 \PR.REMOVALS 141 SECONDS 134 FIXP 126 \PR.REMOVALS 120 \PR.REMOVALS 97 FIXP 84 FIXP 27 PERIODIC.PROMPT.REMINDERS 5 \PR.REMOVALS) ( 10 (PROGN (MAPC \PR.REMOVALS (FUNCTION (LAMBDA (X) (DELDEF (CAR X) (QUOTE REMINDERS))))))) PERIODICALLYCHECKREMINDERS :D8 (P 2 RESETSTATE P 1 SI::*RESETFORMS* P 0 LISPXHIST I 0 RESETP F 3 LISPXHIST) S!g ¿$(23 SI::RESETUNWIND 18 \MVLIST 13 PERIODICALLYCHECKREMINDERSA0001) (8 SI::RESETUNWIND) () (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 DELDEF \DELREMINDER PUTDEF \PUTREMINDER)))) (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 1988)) NIL