(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "XCL" BASE 10) (FILECREATED "14-Sep-94 18:12:37" ("compiled on " |{DSK}lispusers>PREEMPTIVE.;1|) "28-Jul-94 17:28:46" |bcompl'd| |in| "Medley 25-Aug-94 ..." |dated| "25-Aug-94 10:02:49") (FILECREATED " 4-Apr-88 12:40:00" {ERINYES}MEDLEY>PREEMPTIVE.\;3 5218 |changes| |to:| (FNS PREEMPTIVE PREEMPTIVE.BLOCK) (VARS PREEMPTIVECOMS) (VARIABLES NO-PERIODIC-INTERRUPT-FUNCTIONS) |previous| |date:| " 4-Apr-88 12:27:36" {ERINYES}MEDLEY>PREEMPTIVE.\;2) PREEMPTIVE.BLOCK :D8 (P 3 NAME P 2 FRAME P 0 \\INTERRUPTABLE F 4 \\INTERRUPTABLE F 5 NO-PERIODIC-INTERRUPT-FUNCTIONS) T `0jhhh`j`jQfkIjkIkI l J [d3@KUh!kJjkJkJ l Zdjӿi(140 BLOCK 87 \\STKNAME 43 GETMOUSESTATE) (49 LASTMOUSEBUTTONS 35 LASTMOUSEBUTTONS 19 PROCESS 14 \\RUNNING.PROCESS) () PREEMPTIVE :D8 (I 0 STATE) e`ggg@K@ g dglggh@o (97 ERROR 41 CL:INTERN 31 STRING) (84 \\PERIODIC.INTERRUPT 76 :OFF 69 \\PERIODIC.INTERRUPT 64 PREEMPTIVE.BLOCK 58 \\PERIODIC.INTERRUPT.FREQUENCY 47 :ON 36 KEYWORD 22 :OFF 16 :ON 9 PREEMPTIVE.BLOCK 4 \\PERIODIC.INTERRUPT) ( 92 "not valid argument") (PRETTYCOMPRINT PREEMPTIVECOMS) (RPAQQ PREEMPTIVECOMS ((FNS PREEMPTIVE.BLOCK PREEMPTIVE) (VARIABLES NO-PERIODIC-INTERRUPT-FUNCTIONS) ( DECLARE\: DONTEVAL@LOAD DOCOPY (P (PREEMPTIVE (QUOTE :ON)))) (DECLARE\: EVAL@COMPILE DONTCOPY (P (OR ( HASDEF (QUOTE PROCESS) (QUOTE RECORDS)) (EVAL (SYSRECLOOK1 (QUOTE PROCESS)))))) (ADVISE MESSAGEDISPLAYER) (DECLARE\: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA) ( NLAML) (LAMA PREEMPTIVE))))) (DEFGLOBALVAR NO-PERIODIC-INTERRUPT-FUNCTIONS (QUOTE (GETKEY TTWAITFORINPUT GETMOUSESTATE MENU.HANDLER \\BLTSHADE.DISPLAY \\BITBLT.DISPLAY \\BITBLT.BITMAP \\BLTSHADE.BITMAP \\TOTOPWDS \\BITBLTSUB MENU))) (PREEMPTIVE (QUOTE :ON)) (XCL:REINSTALL-ADVICE (QUOTE MESSAGEDISPLAYER) :BEFORE (QUOTE ((:LAST (ALLOW.BUTTON.EVENTS))))) (READVISE MESSAGEDISPLAYER) (PRETTYCOMPRINT PREEMPTIVECOMS) (RPAQQ PREEMPTIVECOMS ((FNS PREEMPTIVE.BLOCK PREEMPTIVE) (VARIABLES NO-PERIODIC-INTERRUPT-FUNCTIONS) ( DECLARE\: DONTEVAL@LOAD DOCOPY (P (PREEMPTIVE (QUOTE :ON)))) (DECLARE\: EVAL@COMPILE DONTCOPY (P (OR ( HASDEF (QUOTE PROCESS) (QUOTE RECORDS)) (EVAL (SYSRECLOOK1 (QUOTE PROCESS)))))) (ADVISE MESSAGEDISPLAYER) (DECLARE\: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA) ( NLAML) (LAMA))))) (PUTPROPS PREEMPTIVE COPYRIGHT ("Xerox Corporation" 1987 1988)) NIL