(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) (FILECREATED "12-Nov-2023 20:34:03" ("compiled on " {DSK}larry>il>medley>sources>PROC.;1) "11-Nov-2023 07:37:04" bcompl'd in "FULL 11-Nov-2023 ..." dated "11-Nov-2023 07:37:06") (FILECREATED "29-Jul-2023 11:47:41" {DSK}larry>il>medley>sources>PROC.;7 176222 :EDIT-BY "lmm" :CHANGES-TO (VARS PROCCOMS) (FNS \BACKGROUND.PROCESS) :PREVIOUS-DATE "28-Jul-2023 21:06:03" {DSK}larry>il>medley>sources>PROC.;6) PROCESSWORLD :D8 (L (0 FLG) F 12 \WINDOWWORLD) o@gð²j`ˆd ¿µöh`Ã´`gh¿h`d²&Èjð³`h¿`ih`•o`Ãhðah¿W–i ¿H²<`l»dK¿dkÍ¿¿g ¿o Œ`jÍ¿`Ã—`\µ`AOµ*O±Lh¿h¿LÉ°Ê_dÉgð¿O ¿OY°}Êjð®OjÏ¿h°eOdÉ“¿h°V`ðœOdÉ8³¿OdÉ"¯¿OdÉ:²¿Og¿h°kÏ ¿Oid¿i³O ¿O_¿OµOh__¿O_±ÿO&_¿°òd]É<µ MÉM ¿M ¿µÜg Z³*ghgggggi ºg ³*ghgggggi ¿g ³&ghgggi °`h¿Iµ-H²Logggggi Y°#`¿IÉI ¿I ¿`` ©IµJ¿``¿^`ð›g °ÕoN °È(875 RAID 862 RETFROM 844 \START.PROCESSES 809 MEMB 793 \RUN.PROCESS 786 \MAKE.PROCESS0 757 ADD.PROCESS 688 ADD.PROCESS 657 FIND.PROCESS 646 ADD.PROCESS 605 FIND.PROCESS 594 ADD.PROCESS 552 FIND.PROCESS 537 \RUN.PROCESS 530 \MAKE.PROCESS0 469 \RELEASE.PROCESS 458 \RELEASE.PROCESS 329 \RELEASE.PROCESS 211 CREATE.EVENT 195 CREATE.EVENT 155 CURSOR 109 RETTO 60 PUTWINDOWPROP 21 \RELEASE.PROCESS) (857 PROCESSWORLD 850 PSTAT.QUIT 835 \PROCESSES 830 PROCESS 825 %#SCHEDULER# 819 \TTY.PROCESS 804 \PROCESSES 799 \TTY.PROCESS 778 PROCESS 771 \PROCESSES 765 \PROCESSES 750 SCHEDULE 745 ALWAYS 740 RESTARTABLE 735 EXEC 730 NAME 710 PROCESS 705 PROCESS 700 \TIMERQHEAD 693 \TIMERQHEAD 681 SCHEDULE 676 SYSTEM 671 RESTARTABLE 664 \TIMER.PROCESS 652 \TIMER.PROCESS 639 SCHEDULE 634 SYSTEM 629 RESTARTABLE 624 MOUSE 619 NAME 612 \MOUSE.PROCESS 600 MOUSE 587 SCHEDULE 582 SYSTEM 577 RESTARTABLE 572 BACKGROUND 567 NAME 560 \BACKGROUND.PROCESS 547 BACKGROUND 522 PROCESS 512 PROCESS 444 PROCESS 433 DELETED 428 PROCESS 416 PROCESS 404 PROCESS 391 PROCESS 381 \TTY.PROCESS 369 PROCESS 353 PROCESS 340 PROCESS 319 EXEC 312 PROCESS 299 PROCESSQUEUE 285 PROCESSQUEUE 279 PROCESSQUEUE 271 \PROCESSES 255 \PROCESSES 247 \HIGHEST.PRIORITY.QUEUE 241 PROCESSQUEUE 236 \HIGHEST.PRIORITY.QUEUE 227 PROCESS 222 %#SCHEDULER# 216 \PROCESS.AFTEREXIT.EVENT 200 \TTY.PROCESS.EVENT 190 TTY 184 %#SCHEDULER# 164 |PROCESSTYPE#| 145 \STACKOVERFLOW 134 PROCESS 129 %#SCHEDULER# 117 \RUNNING.PROCESS 103 PSTAT.QUIT 97 %#SCHEDULER# 91 %#SCHEDULER# 80 PROCESS 72 %#SCHEDULER# 67 \RUNNING.PROCESS 54 PROCESS 49 \TopLevelTtyWindow 42 WINDOW 37 \TopLevelTtyWindow 32 \TTY.PROCESS 13 \PROCESSES 5 OFF) ( 869 "??? Process error - strange result from \Start.Processes" 725 (\PROC.REPEATEDLYEVALQT) 206 "After Exit" 123 "Processes are already on") ADD.PROCESS :D8 (L (0 ARGS) P 22 \INTERRUPTABLE) e``ò@Hjð¤ka[¦K Hdlð–¿la_l_(¿_&¿O(dO&ó²¿Ldgð¢±¿i]±QkØa_¿O(a_dgð¿O _¿±ãgðšOº±ÑOdgð˜¿O_¿±¾gð—O_¿±¯Odgð˜¿O_ ¿±œgð—O_"¿±Odgð—¿O_$¿°zgð–O_¿°lOdgð—¿O_¿°Zgð”O¼°NOdgð”¿i¹°?gð”O¾°3Hlð²"OgðOgð¤Oið˜O_¿O¼ŠOOO_¿O(lÔ_(±þß´CLgð©Ldgð“¿h°.ið³Lgð©Ldgð“¿i°gð•g…L \`djÏ¿di¿dK¿dL¿dJÏ¿djÏ¿dM‘k€jÏ0¿dO.¿dO 0¿dO"6¿dO$8¿dO¿dO$¿dO*¿dO<¿l_*¿dO*¿dkÍ¿_dOÊ OOµK O`¿¿I²KO ¿N³O ŒOkÏ¿k¿OµOgO¿°ð(650 PUTWINDOWPROP 615 \RUN.PROCESS 604 \MAKE.PROCESS0 592 \INVALIDATE.PROCESS.WINDOW 570 \SET.PROCESS.NAME 555 \GET.PRIORITY.QUEUE 417 \ILLEGAL.ARG 110 \INSUREWINDOW 34 \ILLEGAL.ARG) (643 PROCESS 623 PROCESS 586 \PROCESSES 580 \PROCESSES 547 PROCESS 540 PROCESS 423 |PROCESSTYPE#| 410 HARDRESET 403 HARDRESET 392 ALWAYS 383 YES 367 NEVER 358 NO 313 NO 304 SYSTEM 284 SUSPEND 272 SCHEDULE 257 RESTARTABLE 242 RESTARTFORM 225 INFOHOOK 210 TTYEXITFN 192 TTYENTRYFN 176 BEFOREEXIT 158 AFTEREXIT 142 NAME 130 SMALLP 121 PRIORITY 100 WINDOW 72 SYSTEM 13 PROC.DEFAULT.PRIORITY 8 \RUNNING.PROCESS) () DEL.PROCESS :D8 (L (1 INTERNAL 0 PROC)) i@dÃ´¿@dÊ jð´¿@„ Hd²Bd`ð³(Êjð²,HkÏ¿HgHhkÏ¿H i(101 \UNWIND.PROCESS 84 \PROCESS.MAKEFRAME 31 FIND.PROCESS) (90 PROCESS 76 \UNWIND.PROCESS 65 PROCESS 52 PROCESS 44 \RUNNING.PROCESS 16 PROCESS 6 PROCESS) () PROCESS.RETURN :D8 (L (0 VALUE)) g@ (10 RETTO) (4 \MAKE.PROCESS0) () FIND.PROCESS :D8 (L (1 ERRORFLG 0 PROC)) C@dÃ²¿@Ê jð²@°d3@ð¦@ œ@` µA´ @o (64 ERROR 48 GETHASH 36 STRINGP) (43 \PROCESS.NAME.TABLE 15 PROCESS 6 PROCESS) ( 59 "not a live process") MAP.PROCESSES :D8 (L (0 MAPFN)) ?`h HµhYdÊ jð²dÉIÉl@¿HX°Ó(10 \APPEND2) (48 PROCESS 40 PROCESS 27 PROCESS 4 \PROCESSES) () PROCESSP :D8 (L (0 PROC)) @Ã´@Ê jðhðhðNIL (13 PROCESS 5 PROCESS) () RELPROCESSP :D8 (L (0 PROCHANDLE)) @Ã´@Ê jðhðNIL (13 PROCESS 5 PROCESS) () RESTART.PROCESS :D8 (L (0 PROC) P 1 \INTERRUPTABLE) a@dÃ´¿@dÊ jð´¿@„ H´;H`Hd`ð²¿g` gHhH(93 \PROCESS.MAKEFRAME 79 RETTO 31 FIND.PROCESS) (85 RESTART.PROCESS 74 \PROC.RESTARTME 69 \MAKE.PROCESS0 60 \RUNNING.PROCESS 51 \PROC.RESTARTME 46 PROCESS 16 PROCESS 6 PROCESS) () WAKE.PROCESS :D8 (L (1 STATUS 0 PROC) P 1 \INTERRUPTABLE) X@dÃ´¿@dÊ jð´¿@„ H´2HdÊkð¯¿HAµ` ŽAµ`i(68 \RUN.PROCESS 31 FIND.PROCESS) (82 PSTAT.WAKEUP 74 PROCESS 63 PSTAT.WAKEUP 47 PROCESS 16 PROCESS 6 PROCESS) () SUSPEND.PROCESS :D8 (L (0 PROC)) G@µ`Hd`ð²,¿°)dÃ²¿@dÊ jð“¿@°Ói °Ë H(67 \SUSPEND.PROCESS 60 FIND.PROCESS 26 \PROCESS.GO.TO.SLEEP) (44 PROCESS 34 PROCESS 17 \RUNNING.PROCESS 7 \RUNNING.PROCESS) () PROCESS.RESULT :D8 (L (1 WAITFORRESULT 0 PROCESS)) m@bdÊ jð¨@ÉA´þ@Éµ)@@Éo HI¿I@dÊ jð²µ¿H ¿°ê(104 AWAIT.EVENT 70 CREATE.EVENT 65 CONCAT) (90 PROCESS 53 PROCESS 47 PROCESS 37 PROCESS 25 PROCESS 13 PROCESS 5 PROCESS) ( 60 "#Finish") PROCESS-STATUS :D8 (L (0 POS)) ø@µ"ld¢±ï kHÑÊ`jð³ kHÑÉ°d3@ð©@d ²Ö¿@ °ÍkHÑÉÉdgð³.dgð³%dgð³dgð³dgð¨dgð²¿kHÑÊðjð•kHÑÈ„kHÑÈ l Ù¸°ƒdgð³#dgð³dgð¯dgð§dgð•gdgð³#dgð³dgð¯dgð§dgð•gg(55 FIND.PROCESS 46 STRINGP 14 \STACKARGPTR) (245 RUNNING 239 WAITING 232 \PROCESS.GO.TO.SLEEP 224 MONITOR.AWAIT.EVENT 216 AWAIT.EVENT 207 \BACKGROUND 198 BLOCK 191 IO.WAIT 184 MENU.HANDLER 176 GETMOUSESTATE 168 \TTYBACKGROUND 159 \GETKEY 150 \GETCHAR 114 ERRORSET 106 \PERIODIC.INTERRUPTFRAME 97 \DOINTERRUPTHERE 88 INTERRUPTED 79 \INTERRUPTED 70 \INTERRUPTFRAME) () PROCESS.FINISHEDP :D8 (L (0 PROCESS)) '@bdÉµ@Ê jð¥ghNIL (34 ERROR 23 PROCESS 13 PROCESS 5 PROCESS) () THIS.PROCESS :D8 NIL `NIL (4 \RUNNING.PROCESS) () TTY.PROCESS :D8 (L (0 PROC) P 13 \INTERRUPTABLE) `Ã´`@¢±²`‘ @dið¢±¼¿HšHÉ>Zµ6`]µBhµ‚±`h_¿^µ_hµ‚±™`dHð²|±‰ i ²¼J°s Z²&JHð³!Jd ²¬¿Jd i ³—¿M°_Hð³%Od ²•¿Od i ’±ÿ~¿N±ÿsŽÃ‘@†@i YdÊ jð£¿±ÈHð’±ÂH@ið©IH>¿`–h ¿0µ‚±ÍO[–Hµ‚±¨Ig µ`_¿Ig _¿ HµkI¿Hg`ÉµMg¿O¿O²`Ogðhð´O¿IÉ6\–IHlL¿` h °´É8\²HIlL¿°†HÉ&K &¿±ÿE_¿OµOh__¿±ÿO&_¿±ÿ(499 \NCONC2 459 \APPEND2 450 NOTIFY.EVENT 388 PROCESSPROP 347 PROCESSPROP 326 PROCESSPROP 297 \GETSYSBUF 288 \CARET.DOWN 237 FIND.PROCESS 210 OPENWP 205 WFROMDS 199 PROCESS.TTY 188 HASTTYWINDOWP 166 OPENWP 161 WFROMDS 155 PROCESS.TTY 145 HASTTYWINDOWP 130 FIND.PROCESS 119 OPENWP 114 WFROMDS 108 PROCESS.TTY) (491 PROCESS 485 PROCESS 466 PROCESS 445 \TTY.PROCESS.EVENT 429 PROCESS 413 OFF 406 \CURRENTKEYACTION 396 \CURRENTKEYACTION 383 OFF 374 \CURRENTKEYACTION 369 INTERRUPTS 362 \TTY.PROCESS 342 INTERRUPTS 333 \DEFAULTKEYACTION 321 KEYACTION 281 \CARET.UP 272 PROCESS 244 PROCESS 227 PROCESS 92 \PROCESSES 72 \PROCESSES 56 TTY.PROCESS.DEFAULT 46 PROCESS 26 \TTY.PROCESS 16 \TTY.PROCESS 9 PROCESS 4 \TTY.PROCESS) () TTY.PROCESSP :D8 (L (0 PROC)) `hðµ@µ``ðNIL (21 \TTY.PROCESS 16 \RUNNING.PROCESS 4 \RUNNING.PROCESS) () PROCESS.TTY :D8 (L (0 PROC) F 0 \TERM.OFD) >@²,@dÃ´¿@dÊ jð´¿@„ bd`ð‘P´ @g (59 PROCESS.EVALV 34 FIND.PROCESS) (54 \TERM.OFD 42 \RUNNING.PROCESS 19 PROCESS 9 PROCESS) () GIVE.TTY.PROCESS :D8 (L (0 WINDOW)) l@d ¨¿@ ¿@ É.Hµ`lålð²0@É °.dÊ jð¯¿@gh¿°Ï ¿°Ç@ÉY´@kIh(85 TTY.PROCESS 77 PUTWINDOWPROP 21 \INSUREWINDOW 14 \ILLEGAL.ARG 6 WINDOWP) (94 WINDOW 71 PROCESS 58 PROCESS 48 WINDOW 34 LASTMOUSEBUTTONS) () ALLOW.BUTTON.EVENTS :D8 NIL `Égð´` (29 SPAWN.MOUSE) (24 \RUNNING.PROCESS 16 MOUSE 9 PROCESS 4 \RUNNING.PROCESS) () SPAWN.MOUSE :D8 (L (0 INTERNAL) P 0 \INTERRUPTABLE) ¥@@µWg Yµ%ghgggg ig ³-gi¿IjÏ0¿°ºÉgð²ž@°¥@•`‚nÿÿl»ºKJó³ ggKd —¿KkÔ[°àhd³¦(150 FIND.PROCESS 144 CONCAT 76 \SET.PROCESS.NAME 63 FIND.PROCESS 51 ADD.PROCESS 15 FIND.PROCESS) (138 %# 133 OLDMOUSE 115 PROCESS.MAXMOUSE 102 MOUSE 95 PROCESS 83 PROCESS 70 OLDMOUSE 58 OLDMOUSE 45 SYSTEM 40 RESTARTABLE 35 MOUSE 30 NAME 23 \MOUSE.PROCESS 10 MOUSE) () \WAIT.FOR.TTY :D8 NIL `d—`ð‘h` ¿°å(25 AWAIT.EVENT) (20 \TTY.PROCESS.EVENT 11 \TTY.PROCESS 4 \RUNNING.PROCESS) () WAIT.FOR.TTY :D8 (L (1 NEEDWINDOW 0 MSECS) F 2 \OLDTTY F 3 \WINDOWWORLD F 4 \TERM.OFD) Ä`Égð²-` `²``ð«` ci`²ù``ð³ìS²c A²"ig ¿T X ¦H ¿@šl @ö¹`Id¿`²¢``ð³•I²ÞI ²Öh` i(192 TTY.PROCESS 178 TIMEREXPIRED? 148 AWAIT.EVENT 133 \CLOCK0 122 OPENW 115 OPENWP 109 WFROMDS 102 \GETSTREAM 58 TTY.PROCESS 29 SPAWN.MOUSE) (187 \RUNNING.PROCESS 166 \TTY.PROCESS 161 \RUNNING.PROCESS 154 \RUNNING.PROCESS 141 \TTY.PROCESS.EVENT 97 INPUT 79 \TTY.PROCESS 74 \RUNNING.PROCESS 67 \RUNNING.PROCESS 53 \RUNNING.PROCESS 46 \TTY.PROCESS 41 \RUNNING.PROCESS 34 \RUNNING.PROCESS 24 \RUNNING.PROCESS 16 MOUSE 9 PROCESS 4 \RUNNING.PROCESS) () RESET :D8 NIL zfkHÑÊ`jð¥kHÑÉ„kHÑÉÉdið¯dgð§dgð’¿i¿hœhH `kHÑÊðjð•kHÑÈ„kHÑÈ l ÙXjð²©jd`o` (119 PRIN1 104 TAB 58 \SMASHRETURN) (114 PROMPTWINDOW 99 PROMPTWINDOW 63 \PROC.RESETME 43 \REPEATEDLYEVALQT 35 \MAKE.PROCESS0) ( 109 "Can't find top of stack!!!") ERROR! :D8 NIL g` (19 RETTO 4 ABORT) (14 \PROC.RESETME 9 \MAKE.PROCESS0) () PROCESSPROP :D8 (L (0 ARGS) P 5 OLDVALUE) ¡ekalaBIÃ¬I Y´‚±yJdgð›¿IÉ±Ýgð›IÊ±ÊJdgð›¿IÉ±µgðšIÉ±£Jdgð›¿IÉ±Žgð™IÉ$°|Jdgðš¿IÉ.°hgð™IÉ0°WJdgðš¿IÉ6°Cgð™IÉ8°2Jdgðš¿IÉ*°gð˜IÉ<‹IÉ*\J']Hló¢±‚la»Jdgð²(¿IKd• [¿K¢±\KgI¿gð’±DJdgðŸ¿IK ¿¿gð²PIKd²Bgð©Kdgð“¿h°.ið³Kgð©Kdgð“¿i°gð•g…K ¿Jdgð’±Èdgð›¿IK$¿dgð›¿IK.¿gðšIK0¿Jdgð›¿IK6¿gðšIK8¿Jdgð›¿IK*¿gðšIK<¿K³,LdJð²¿IL*¿Jð—Nd¿N^µîLµIJKh*¿JK¿(669 LISTPUT 447 \ILLEGAL.ARG 363 \INVALIDATE.PROCESS.WINDOW 357 \SET.PROCESS.NAME 328 PUTWINDOWPROP 307 \INSUREWINDOW 24 FIND.PROCESS) (653 PROCESS 616 PROCESS 594 PROCESS 586 RESTARTFORM 576 PROCESS 567 USERDATA 555 PROCESS 547 TTYEXITFN 537 PROCESS 528 TTYENTRYFN 516 PROCESS 508 BEFOREEXIT 498 PROCESS 489 AFTEREXIT 478 PROCESS 469 INFOHOOK 458 FORM 440 HARDRESET 433 HARDRESET 422 ALWAYS 413 YES 397 NEVER 388 NO 379 PROCESS 370 RESTARTABLE 347 NAME 335 PRIORITY 322 PROCESS 299 PROCESS 289 WINDOW 264 PROCESS 255 PROCESS 247 RESTARTFORM 238 PROCESS 229 USERDATA 218 PROCESS 210 TTYEXITFN 201 PROCESS 192 TTYENTRYFN 181 PROCESS 173 BEFOREEXIT 164 PROCESS 155 AFTEREXIT 144 PROCESS 136 INFOHOOK 126 PROCESS 117 FORM 105 PROCESS 97 RESTARTABLE 87 PROCESS 78 NAME 65 PROCESS 57 PRIORITY 47 PROCESS 38 WINDOW 17 PROCESS) () PROCESS.NAME :D8 (L (1 NAME 0 PROC)) :@dÃ´¿@dÊ jð´¿@„ Hd²ÉA—HA ¿(54 \SET.PROCESS.NAME 31 FIND.PROCESS) (43 PROCESS 16 PROCESS 6 PROCESS) () PROCESS.WINDOW :D8 (L (1 WINDOW 0 PROC)) Q@dÃ´¿@dÊ jð´¿@„ Hd²*ÉA² HA b¿AgH¿(77 PUTWINDOWPROP 60 \INSUREWINDOW 31 FIND.PROCESS) (71 PROCESS 54 PROCESS 43 PROCESS 16 PROCESS 6 PROCESS) () DISMISS :D8 (L (2 NOBLOCK 1 TIMER 0 MSECSWAIT)) ~ @²AAµ`µl jöYÃšI‹h¿°ðl @doñ•¿oöŽAµ °.¸`£ib¿H ¬B³øhHi°íA¥H@(112 \PROCESS.GO.TO.SLEEP 100 TIMEREXPIRED? 76 BLOCK 51 \CLOCK0 23 \CLOCK0) (122 \\DISMISSTIMER.GLOBALRESOURCE 89 \RUNNING.PROCESS 83 FIXP 40 \\DISMISSTIMER.GLOBALRESOURCE 31 FIXP 13 \\DISMISSTIMER.GLOBALRESOURCE) ( 66 2147483647 58 2147483647) BLOCK :D8 (L (1 TIMER 0 MSECSWAIT) P 8 \INTERRUPTABLE F 9 \WINDOWWORLD) N `qHÃ¢±@’±ãA’±ÞHÉYHIÉðl!oH¿HiIHÉIHHºh¿`»KÉ\µKÉ[²f°êdJð³8¿LÈ]jðl%oL¿LjÍ¿MJµf ¿LÉÈ^jð¦N ¿JfÍ¿h°Ôl!oJ±ÿrhAµ@3 ´@doñ›¿o„Ahðhð@3 µW•¿`°i hd_¿jO¿µôh(314 DISMISS 300 WINDOW.MOUSE.HANDLER 286 \PROCESS.GO.TO.SLEEP 243 \MP.ERROR 216 \DECUSECOUNT 189 \PROC.RESUME 163 \MP.ERROR 63 \MP.ERROR) (306 BACKGROUNDFNS 276 FIXP 223 PROCESS 204 PROCESS 196 PROCESS 175 PROCESS 170 \RUNNING.PROCESS 144 PROCESS 125 PROCESSQUEUE 114 PROCESSQUEUE 107 \HIGHEST.PRIORITY.QUEUE 95 PROCESSQUEUE 85 PROCESS 79 PROCESSQUEUE 70 PROCESS 46 PROCESSQUEUE 36 PROCESS 13 PROCESS 4 \RUNNING.PROCESS) ( 270 2147483647 262 2147483647 237 "No runnable process!!" 157 "Process's stack has been released!" 57 "Current process is not its queue's NEXT") WAITFORINPUT :D8 (L (0 N)) –@d3 ²Y¿`µ&l jö!H @ldÙºY¿i ›i°%h¿°ßIdJ §¿°Ý@ ²ÖhH¿².@g i ³ H ³¿°ê¿i ²ôh(144 READP 137 \TTYBACKGROUND 129 \TTYBACKGROUND 122 READP 114 READP 105 \GETSTREAM 81 \CLOCKGREATERP 73 \TTYBACKGROUND 66 \CLOCKGREATERP 45 READP 32 \CLOCK0 21 \CLOCK0) (100 INPUT 90 \\DISMISSTIMER.GLOBALRESOURCE 55 \\DISMISSTIMER.GLOBALRESOURCE 11 \\DISMISSTIMER.GLOBALRESOURCE) () \WAITFORSYSBUFP :D8 (L (0 N)) x@3 ²k`µ l jöH Y¿›i°h¿°å`µI@ ²hH¿`ð³è°Ç°À¿¿²ïh(114 \SYSBUFP 108 \WAIT.FOR.TTY 102 BLOCK 95 BLOCK 88 \WAIT.FOR.TTY 64 \CLOCKGREATERP 37 \SYSBUFP 30 \CLOCK0 19 \CLOCK0) (80 \TTY.PROCESS 73 \\DISMISSTIMER.GLOBALRESOURCE 55 \RUNNING.PROCESS 47 \\DISMISSTIMER.GLOBALRESOURCE 9 \\DISMISSTIMER.GLOBALRESOURCE) () EVAL.AS.PROCESS :D8 (L (0 FORM)) `²@gg@,(22 ADD.PROCESS) (17 NO 12 RESTARTABLE 4 \RUNNING.PROCESS) () EVAL.IN.TTY.PROCESS :D8 (L (1 WAITFORRESULT 0 FORM)) #`›``ð’@,`@A(32 PROCESS.EVAL) (25 \TTY.PROCESS 15 \TTY.PROCESS 10 \RUNNING.PROCESS 4 \RUNNING.PROCESS) () PROCESS.READA0001 :D8 (P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 2 WINDOW F 3 PROMPT F 4 CLEAR? F 5 SI::NLSETQ-VALUE F 6 OLDW) Ei@` ¿RµSµid hc gi ¿°è c¿T²ÚR ¿°Ñ(64 CLEARW 52 TTYDISPLAYSTREAM 44 PRIN1 28 READ 14 TTY.PROCESS) (37 :NORMAL 9 \RUNNING.PROCESS) () PROCESS.READ :D8 (P 5 *CONDITION-HANDLER-BINDINGS* P 4 SI::*NLSETQFLAG* P 3 *PROCEED-CASES* P 2 SI::NLSETQ-VALUE P 1 OLDW I 2 CLEAR? I 1 PROMPT I 0 WINDOW F 6 *PROCEED-CASES* F 7 *CONDITION-HANDLER-BINDINGS*) A``VioWK gð´JH ¿I–I ¿(61 TTYDISPLAYSTREAM 52 TTY.PROCESS 35 PROCESS.READA0001) (41 :NORMAL 15 SI::NLSETQ-PROCEED-CASE 4 \TTY.PROCESS) ( 23 (CL:ERROR . SI::NLSETQHANDLER)) PROCESS.EVALV :D8 (L (1 VAR 0 PROC)) \@dÃ²¿@dÊ jð’¿@…i Ad•¿Aið‘AH`ð³f¹hHÈ ¿A/ÉI—hI ¿(88 \SMASHLINK 74 \SMASHLINK 31 FIND.PROCESS) (67 PROCESS 55 \RUNNING.PROCESS 41 LITATOM 16 PROCESS 6 PROCESS) () PROCESS.EVAL :D8 (L (2 WAITFORRESULT 1 FORM 0 PROC)) Š@dÃ²¿@dÊ jð’¿@…i `HIð–A BI`4¿HgAB´IhiB´0IdÉ4`ð˜¿¿°éÉ4I`4¿(111 \PROCESS.GO.TO.SLEEP 86 \PROCESS.MAKEFRAME 49 CL:EVAL 31 FIND.PROCESS) (132 \PSTAT.NORESULT 127 PROCESS 119 PROCESS 103 \PSTAT.NORESULT 96 PROCESS 72 \PROCESS.EVAL1 63 \PSTAT.NORESULT 58 PROCESS 36 \RUNNING.PROCESS 16 PROCESS 6 PROCESS) () \PROCESS.EVAL1A0001 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 0 ..PEV-FORM.. F 1 ..PEV-RESULT..) P,cNIL NIL () \PROCESS.EVAL1A0002 :D8 (F 0 ..PEV-PROC.. F 1 ..PEV-RESULT..) PQ4PÊkð¦P h(26 \RUN.PROCESS) (14 PROCESS 5 PROCESS) () \PROCESS.EVAL1 :D8 (P 0 ..PEV-RESULT.. I 1 ..PEV-PROC.. I 0 ..PEV-FORM..) ?A²:gg AH4¿AÊkð¦A ¿$@,(53 \RUN.PROCESS 25 \MVLIST 20 \PROCESS.EVAL1A0001) (41 PROCESS 31 PROCESS 15 \PROCESS.EVAL1A0002 7 :ABORTED) () PROCESS.APPLY :D8 (L (3 WAITFORRESULT 2 ARGS 1 FN 0 PROC)) @dÃ²¿@dÊ jð’¿@…i `HIð—AB CI`4¿HgABC´IhiC´0IdÉ4`ð˜¿¿°éÉ4I`4¿(114 \PROCESS.GO.TO.SLEEP 89 \PROCESS.MAKEFRAME 50 APPLY 31 FIND.PROCESS) (135 \PSTAT.NORESULT 130 PROCESS 122 PROCESS 106 \PSTAT.NORESULT 99 PROCESS 73 \PROCESS.APPLY1 64 \PSTAT.NORESULT 59 PROCESS 36 \RUNNING.PROCESS 16 PROCESS 6 PROCESS) () \PROCESS.APPLY1A0001 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 0 ..PEV-FN.. F 1 ..PEV-ARGS.. F 2 ..PEV-RESULT..) PQ c(6 APPLY) NIL () \PROCESS.APPLY1A0002 :D8 (F 0 ..PEV-PROC.. F 1 ..PEV-RESULT..) PQ4PÊkð¦P h(26 \RUN.PROCESS) (14 PROCESS 5 PROCESS) () \PROCESS.APPLY1 :D8 (P 0 ..PEV-RESULT.. I 2 ..PEV-PROC.. I 1 ..PEV-ARGS.. I 0 ..PEV-FN..) DB²:gg BH4¿BÊkð¦B ¿$@A (65 APPLY 53 \RUN.PROCESS 25 \MVLIST 20 \PROCESS.APPLY1A0001) (41 PROCESS 31 PROCESS 15 \PROCESS.APPLY1A0002 7 :ABORTED) () CREATE.EVENT :D8 (L (0 NAME)) `d@¿NIL (4 |EVENTTYPE#|) () NOTIFY.EVENT :D8 (L (1 ONCEONLY 0 EVENT) P 3 \INTERRUPTABLE) i@b0@ÉZµI³J@kÏ°BÉ,XJð•@hZJHÉ,,¿HHh¿h,¿H@ ¿iY¿J´A²§h(90 \RUN.PROCESS) (75 PROCESS 69 PROCESS 58 PROCESS 52 PROCESS 34 PROCESS 5 EVENT) () AWAIT.EVENT :D8 (L (2 TIMERP 1 TIMEOUT 0 EVENT)) 0A² B—A°AdÃ–¿ojØb¿@AB(45 \PROCESS.GO.TO.SLEEP) (38 EVENT 19 BIGNUM 10 FIXP) ( 26 2147483647) \UNQUEUE.EVENT :D8 (L (1 EVENT 0 PROC)) dAÉH®l!o@°9@HÉ,Yð£I¸°÷@Hð“Ah°$H@É,,¿@dAÉð¿A@É,¿@h@h,h(20 \MP.ERROR) (93 PROCESS 84 PROCESS 73 PROCESS 53 PROCESS 47 PROCESS) ( 14 "Process not on its EVENT/MONITOR queue") \ENQUEUE.EVENT/LOCK :D8 (L (1 EVLOCK 0 PROC)) +@A@AÉXµ@,A@hÉ,H@,¿°ìNIL (32 PROCESS 8 PROCESS) () \EVENT.DEFPRINT :D8 (L (1 STREAM 0 EVENT)) @A@Éo(19 \DEFPRINT.BY.NAME) (7 EVENT) ( 14 "Event") OBTAIN.MONITORLOCK :D8 (L (2 UNWINDSAVE 1 DONTWAIT 0 LOCK) P 3 \INTERRUPTABLE P 2 \INTERRUPTABLE F 4 SI::*RESETFORMS* F 5 \INTERRUPTABLE F 6 SI::*LOCKED-MONITOR*) •@b`U@dÉ³D¿Bd²gð“@cŽo@hTc¿@H@HÉ2H@2@ÉHð²@Êjð¡io@ A¬I@ °h(142 \PROCESS.GO.TO.SLEEP 129 ERROR) (110 MONITORLOCK 98 MONITORLOCK 88 PROCESS 78 PROCESS 72 MONITORLOCK 63 MONITORLOCK 37 WITH.MONITOR 23 MONITORLOCK 12 \RUNNING.PROCESS 5 MONITORLOCK) ( 123 "Trying to acquire lock exclusively owned already by this process" 48 (RELEASE.MONITORLOCK OLDVALUE)) CREATE.MONITORLOCK :D8 (L (1 EXCLUSIVE 0 NAME)) `AhðHdI‘k€jÏ¿d@¿NIL (4 |MONITORLOCKTYPE#|) () RELEASE.MONITORLOCK :D8 (L (1 EVENIFNOTMINE 0 LOCK) P 0 \INTERRUPTABLE F 5 OLDVALUE) Ê@dgð‘¿Ub@É1Id™`ð£A¡h@hIÉ2[d@ð²O¿I@É2°KdÉ@ð²,¿K@É¿@h@ÉZd²¼É,\Jð²!@h°+É[³Ál!o@°ËJLÉ,,¿LLh¿h,¿L@ ¿±ÿa(196 \RUN.PROCESS 150 \MP.ERROR) (181 PROCESS 175 PROCESS 164 PROCESS 158 PROCESS 132 MONITORLOCK 114 PROCESS 92 MONITORLOCK 79 MONITORLOCK 65 PROCESS 50 PROCESS 34 \RUNNING.PROCESS 15 MONITORLOCK 6 OLDVALUE) ( 144 "Lock not found among owner's owned locks") SI::MONITOR-UNWIND :D8 (P 1 \INTERRUPTABLE F 6 SI::*RESETFORMS* F 7 SI::*LOCKED-MONITOR*) ÍV•¿WHd²XHÉ1Jd—`ð¡hHhJÉ2\dHð²O¿JHÉ2°LdÉHð²,¿LHÉ¿HhHÉ[d²¼É,]Kð²!Hh°+É\³Ál!oH°ËKMÉ,,¿MMh¿h,¿MH ¿±ÿa(199 \RUN.PROCESS 153 \MP.ERROR 6 SI::RESETUNWIND) (184 PROCESS 178 PROCESS 167 PROCESS 161 PROCESS 135 MONITORLOCK 117 PROCESS 95 MONITORLOCK 82 MONITORLOCK 68 PROCESS 53 PROCESS 39 \RUNNING.PROCESS 21 MONITORLOCK) ( 147 "Lock not found among owner's owned locks") MONITOR.AWAIT.EVENT :D8 (L (3 TIMERP 2 TIMEOUT 1 EVENT 0 RELEASELOCK)) =B² C—B°BdÃ–¿ojØb¿@ ABC@ ¿(57 OBTAIN.MONITORLOCK 51 \PROCESS.GO.TO.SLEEP 38 RELEASE.MONITORLOCK) (44 EVENT 19 BIGNUM 10 FIXP) ( 26 2147483647) \MONITORLOCK.DEFPRINT :D8 (L (1 STREAM 0 LOCK)) @A@Éo(19 \DEFPRINT.BY.NAME) (7 MONITORLOCK) ( 14 "Lock") \MAKE.PROCESS0 :D8 (L (1 HANDLE 0 FORM) P 20 RESETSTATE P 19 \INTERRUPTABLE P 16 *STANDARD-INPUT* P 15 *STANDARD-OUTPUT* P 14 \TERM.OFD P 13 READBUF P 12 \TTYWINDOW P 11 \INTERRUPTABLE P 10 SI::*RESETFORMS* P 9 TtyDisplayStream P 8 \PRIMTERMSA P 7 \PRIMTERMTABLE P 6 *READTABLE* P 5 \LINEBUF.OFD P 4 \#DISPLAYLINES P 3 \CURRENTDISPLAYLINE P 2 HELPFLAG P 1 *CURRENT-PROCESS* P 0 %#FORM# F 21 HELPFLAG F 22 \LINEBUF.OFD F 23 *READTABLE* F 24 \PROC.KILLME F 25 \PRIMTERMTABLE F 26 \PRIMTERMSA F 27 *DRIBBLE-OUTPUT*) ,@AW*´gjl(`µW,W.W2W4`š`gÎ0¿`hÎ2¿`hÎ4¿l~Oµ‚±Šg __¿M_ ¿gAl"ÐW6¿A ¿i_¿AÉ:µAÉ¢±à±Fgð²Fi ¿oi ¿AÉi ¿oi ¿i ¿°´g ±ÿyA dgð²/¿i ¿oi ¿AÉi ¿i ¿±ÿlið²}±ÿegA ¿H,_"dW0ð’±•`ð³O"`ð²/AÉið²;AÉ<µH¸O²ÁO"`ð²©g°§AO"¿Ag°;` ¿AÉ` ¿o` ¿Ag¿Og¿AÉ_$—O$ ¿Ad`ð˜¿i ¿A ¿hddih(552 \PROCESS.GO.TO.SLEEP 542 \PROCESS.RELEASE.LOCKS 535 TTY.PROCESS 518 NOTIFY.EVENT 499 DRIBBLE 493 SI::RESETUNWIND 462 PRIN1 446 PRIN1 427 TERPRI 317 \PROCESS.RELEASE.LOCKS 310 SI::RESETUNWIND 286 TERPRI 279 PRIN1 264 PRIN1 252 TERPRI 236 \HARDRESET-CLEANUP 227 \GETSTREAM 214 TERPRI 207 PRIN1 195 PRIN1 180 PRIN1 168 TERPRI 124 \MAKE.PROCESS1 117 \SETFVARSLOT 92 GETTOPVAL) (526 \TTY.PROCESS 506 PROCESS 485 RESET 474 ERROR 469 PROCESS 457 PROMPTWINDOW 441 PROMPTWINDOW 434 PROCESS 422 PROMPTWINDOW 415 NORMAL 410 PROCESS 399 PROCESS 391 RESET 383 \PROC.RESETME 366 PROCESS 354 PROCESS 345 \PROC.RESETME 335 \PROC.RESTARTME 302 HARDRESET 271 PROCESS 242 ERROR 222 OUTPUT 187 PROCESS 159 ERROR 145 PROCESS 135 PROCESS 106 *DRIBBLE-OUTPUT* 87 \TERM.OFD 66 \InterfacePage 57 \InterfacePage 49 \PROCESS.MOVEFRAME 44 \InterfacePage 33 \DEFAULTTTYDISPLAYSTREAM 18 \DEFAULTLINEBUF 10 BREAK!) ( 452 " aborted." 258 "***Warning: errors occurred running cleanups for process " 201 "; cleanups not run" 174 "***Warning: errors occurred recovering stack for process ") \MAKE.PROCESS1 :D8 (L (0 PROC) P 0 \INTERRUPTABLE) rfi @Èjð@È ¿kIÑÈmþål Ù[@IÍkIÑÊðjð™kIÑIlÙÍ¿kIÑJl ØÍ ¿kIÑJl ØkØÍJ K h(110 \RESUME 104 \INCUSECOUNT 36 \DECUSECOUNT 9 \STACKARGPTR) (55 PROCESS 29 PROCESS 18 PROCESS) () \PROCESS.MOVEFRAME :D8 NIL e l `È‘ HlÙ_¿kHÑÈHÙ_kOÑÊ`jðœkOÑÊ‡jðhð]’l‹lOkOÑÈÙØ\Ø[`Ø^H ºkJNØYÑÊlð˜NkIÑÈÔ^€NKÙâmþå_¿JdOØLØlåjð™¿OlÔ_¿JO ¿JOÔºNOÙ¾kJÑkHLÙÑKÄ¿M˜kJÑkÏ`°kOÑÊ`jð›kJLlÙØÑJÍ¿JLÔºkJÑJOØYÍ¿kJÑM²kHÑÊðjð‘H†kHÑÈƒJlÙÍ¿kJÑÊðjð²kJÑkJÑÈÍ ¿kJÑkÏð¿kJÑÊ`jð³kJÑÈkðœkJÑdÈJHÙÔÍ¿INKÙ ¿M•HKlÙƒHLÙK ¿`JÍ¿l J(353 FLIPCURSORBAR 336 \MAKEFREEBLOCK 318 \MAKEFREEBLOCK 149 \MAKEFREEBLOCK 86 \FREESTACKBLOCK 6 FLIPCURSORBAR) (342 \InterfacePage 78 PROC.FREESPACESIZE 11 \InterfacePage) () \RELEASE.PROCESS :D8 (L (2 RESTARTFLG 1 KILLIT 0 PROC)) &@É1@ÈYjð³I ¿@jÍ¿H—@H ¿@Êjð§@i ¿A¢±¹`[µ‚±’@h>¿B³@` ¿@É` ¿¿@kÏ ¿@lÏ¿@@@h¿h<¿h¿@ÉZ²L@h¿Jgh°3dÉ>@ð—h>¿K±ÿR@jÏ¿@jÏ¿j¿@hh(229 PUTWINDOWPROP 142 \INVALIDATE.PROCESS.WINDOW 136 REMHASH 112 DREMOVE 69 \UNQUEUE.TIMER 49 \UNQUEUE.EVENT 29 \DECUSECOUNT) (287 PROCESS 274 PROCESS 263 PROCESS 248 PROCESS 238 PROCESS 223 PROCESS 213 PROCESS 202 PROCESS 184 PROCESS 178 PROCESS 172 PROCESS 160 PROCESS 149 PROCESS 131 \PROCESS.NAME.TABLE 124 PROCESS 117 \PROCESSES 107 \PROCESSES 94 PROCESS 80 \PROCESSES 56 PROCESS 36 PROCESS 16 PROCESS 5 PROCESS) () \UNWIND.PROCESS :D8 (L (0 P) F 0 \PROC.KILLME) 6@dÉ¯¿@g¿@kÏ¿kjðhðgP (51 RETTO) (45 \MAKE.PROCESS0 30 PROCESS 21 DELETED 16 PROCESS 6 PROCESS) () \MAYBEBLOCK :D8 (F 0 \INTERRUPTABLE) P´(7 BLOCK) NIL () \BACKGROUND.PROCESS :D8 (P 0 \BACKGROUND) (``¸`‡d¹jI¿µ÷¿°ã(35 BLOCK) (18 BACKGROUNDFNS 12 \IGNORE.BACKGROUND 4 \IGNORE.BACKGROUND) () \MOUSE.PROCESS :D8 (P 1 \MOUSEBUSY P 0 \OLDTTY F 3 \WINDOWWORLD) ¹0`Égð³\g Z²/Jdg —¿°9²Joi¿J ¿hº`kÏ0¿`gi¿S•¿`ž`d`ð²¿H`ð¡H€i ¿h¸`h&¿¿±ÿN(179 BLOCK 157 TTY.PROCESS 119 WINDOW.MOUSE.HANDLER 111 \SET.PROCESS.NAME 77 DEL.PROCESS 70 \SET.PROCESS.NAME 54 PROCESS.RETURN 47 PROCESS.EVALV 32 FIND.PROCESS) (170 PROCESS 165 \RUNNING.PROCESS 147 \RUNNING.PROCESS 137 \TTY.PROCESS 131 \RUNNING.PROCESS 125 \RUNNING.PROCESS 105 MOUSE 100 \RUNNING.PROCESS 90 PROCESS 85 \RUNNING.PROCESS 42 \MOUSEBUSY 27 MOUSE 19 MOUSE 12 PROCESS 7 \RUNNING.PROCESS) ( 64 "DeadMouse") \TIMER.PROCESS :D8 (P 1 \INTERRUPTABLE) 8`!HÉZµ ¿°ïÉ ²ìJ` ¿°Ó(51 \RUN.PROCESS 38 TIMEREXPIRED? 23 BLOCK) (46 PSTAT.TIMEDOUT 31 PROCESS 13 PROCESS 4 \TIMERQHEAD) () \PROCESS.RELEASE.LOCKS :D8 (L (0 P)) @dÉ2¡hÉ2 ¿°ç(23 RELEASE.MONITORLOCK) (16 PROCESS 6 PROCESS) () \SET.PROCESS.NAME :D8 (L (2 INTERNAL 1 NEWNAME 0 PROC) P 0 \INTERRUPTABLE) ªB³NA dgð³)dgð³ dgð³gð•Ab°ÕA b¿A“AiðžoA b°·0B³(A ² lAº¹JoIb ”IkÔ°è@ÉµA@`@AA` ¿°Þ(165 REMHASH 144 PUTHASH 116 FIND.PROCESS 109 CONCAT 90 FIND.PROCESS 74 ERROR 54 MKSTRING 8 TYPENAME) (160 \PROCESS.NAME.TABLE 150 PROCESS 139 \PROCESS.NAME.TABLE 128 PROCESS 40 LISTP 32 STRINGP 23 NEW-ATOM 14 LITATOM) ( 103 "#" 68 "Illegal Process Name") \PROCESS.DEFPRINT :D8 (L (1 STREAM 0 PROC)) @A@Éo(19 \DEFPRINT.BY.NAME) (7 PROCESS) ( 14 "Process") \START.PROCESSES :D8 (P 0 \INTERRUPTABLE) ›``Y¿`ºJÉ[µJÉZ²f°êdIð³8¿KÈ\jðl%oK¿KjÍ¿LIµf ¿KÉÈ]jð¦M ¿IfÍ¿h°Ôl!oI±ÿr(150 \MP.ERROR 123 \DECUSECOUNT 96 \PROC.RESUME 70 \MP.ERROR) (130 PROCESS 111 PROCESS 103 PROCESS 82 PROCESS 77 \RUNNING.PROCESS 51 PROCESS 32 PROCESSQUEUE 21 PROCESSQUEUE 14 \HIGHEST.PRIORITY.QUEUE 7 %#SCHEDULER#) ( 144 "No runnable process!!" 64 "Process's stack has been released!") \PROCESS.GO.TO.SLEEP :D8 (L (3 DELETEFLG 2 TIMERP 1 TIMEOUT 0 EVLOCK) P 0 \INTERRUPTABLE) È`!O¥@Ã²@Êjð«@jÏ@OjÏOÉ_dÉ_OOð²3OOÉð²OOh¿h°ið³-OB’A°OÉZÃ‘J‚l Aö ¿O ¿k°¯O¼h¿`½MÉ^µMÉ]²j°êdLð³:¿NÈ_jðl%oN¿NjÍ¿OLµf ¿NÉÈ_jð§O ¿LfÍ¿h°Òl!oL±ÿn(451 \MP.ERROR 424 \DECUSECOUNT 395 \PROC.RESUME 368 \MP.ERROR 297 \ENQUEUE.TIMER 285 \CLOCK0 239 \RELEASE.PROCESS 206 \ENQUEUE.EVENT/LOCK 178 \MP.ERROR 137 \MP.ERROR 18 BLOCK) (431 PROCESS 410 PROCESS 402 PROCESS 380 PROCESS 375 \RUNNING.PROCESS 348 PROCESS 329 PROCESSQUEUE 318 PROCESSQUEUE 311 \HIGHEST.PRIORITY.QUEUE 274 FIXP 266 PROCESS 254 PROCESS 214 PROCESS 193 PROCESS 160 PROCESS 153 PROCESSQUEUE 146 PROCESS 118 PROCESSQUEUE 111 PROCESSQUEUE 99 PROCESSQUEUE 79 PROCESSQUEUE 69 PROCESS 58 PROCESS 45 EVENT 33 EVENT 25 EVENT 7 \RUNNING.PROCESS) ( 445 "No runnable process!!" 362 "Process's stack has been released!" 171 "Running process has no NEXT pointer" 132 "Inconsistent process queue state") \PROC.RESUME :D8 (L (1 OLDFX 0 FRAME)) 7fkHÑÊðjð™kHÑHlÙÍ¿kHÑ@l ØÍ ¿kHÑ@l ØkØÍAd” (52 \DECUSECOUNT) NIL () \RUN.PROCESS :D8 (L (2 BRUTALLY 1 REASON 0 PROC) P 5 \INTERRUPTABLE) @É@É2@dÊkðŸ¿B«o@ ¿@Ê jð´‚±Ê@Êlð’±¹I—@I ¿@Êjð¦@ ¿HÉZ³"HH@@¿@\¿L°X`²-HÉ»@KÉ¿K@¿KJð²)°@JÉ¿J@¿H@¿@kÏ¿@Ah(110 \UNQUEUE.TIMER 91 \UNQUEUE.EVENT 45 ERROR) (258 PROCESS 247 PROCESS 237 PROCESSQUEUE 227 PROCESS 216 PROCESS 210 PROCESS 193 PROCESS 182 PROCESS 176 PROCESS 167 PROCESSQUEUE 159 \PROC.RUN.NEXT.FLG 140 PROCESS 134 PROCESSQUEUE 128 PROCESSQUEUE 117 PROCESSQUEUE 98 PROCESS 69 PROCESS 52 PROCESS 25 PROCESS 13 PROCESS 5 PROCESS) ( 39 "Attempt to run already running process") \SUSPEND.PROCESS :D8 (L (1 EVENT 0 PROC) P 0 \INTERRUPTABLE) Ý@@dÊkð¢±Ž¿@jÏ¿@ÉYÉ\Z¿JÉd@ð²LJð³(J@É¿@IÉð²IJ°IIh¿h¿@h¿°4ZdLð²¦¿l!o °•Êjð¦@ ¿@É[µA´ @A hAð©@K ¿°éhb°å(211 \UNQUEUE.EVENT 199 \ENQUEUE.EVENT/LOCK 177 \UNQUEUE.TIMER 158 \MP.ERROR) (184 PROCESS 165 PROCESS 133 PROCESS 119 PROCESSQUEUE 113 PROCESSQUEUE 104 PROCESSQUEUE 93 PROCESSQUEUE 81 PROCESS 75 PROCESS 58 PROCESS 47 PROCESSQUEUE 39 PROCESS 28 PROCESS 12 PROCESS) ( 153 "Can't find running process in its queue") \UNQUEUE.TIMER :D8 (L (1 NOERROR 0 PROC)) W`HdÉ@ð²¿H@É°ÉXµÙA«o@ ¿@h¿@jÏh(62 ERROR) (79 PROCESS 69 PROCESS 44 PROCESS 33 PROCESS 27 PROCESS 14 PROCESS 4 \TIMERQHEAD) ( 56 "Process not found on timer queue") \ENQUEUE.TIMER :D8 (L (0 PROC) P 0 \INTERRUPTABLE) c@`dÉº¹J²$`[d÷@É ö¿JKJÉ ÷jñ³@JI@hKJÉ ö¿JYÉZ°ÈNIL (92 PROCESS 81 PROCESS 69 PROCESS 60 PROCESS 47 PROCESS 34 PROCESS 25 \PROCTIMER.SCRATCH 13 PROCESS 7 \TIMERQHEAD) () \GET.PRIORITY.QUEUE :D8 (L (0 PRIORITY)) o`!Hµ*`d@Ï¿Ê@ñ²HYÉXdÊ@ð²ßH`d@Ï¿dI¿dH¿ºIµ JJJ°öNIL (104 PROCESSQUEUE 97 \HIGHEST.PRIORITY.QUEUE 70 |PROCESSQUEUETYPE#| 56 PROCESSQUEUE 47 PROCESSQUEUE 33 PROCESSQUEUE 27 \HIGHEST.PRIORITY.QUEUE 15 |PROCESSQUEUETYPE#| 4 \HIGHEST.PRIORITY.QUEUE) () \PROCESS.INIT :D8 (L (0 DONTRESET) F 0 *DEFAULT-EXTERNALFORMAT*) ûg ´‚±ìh`dg¿dg ¿dg¿dg¿dPh¿dgR¿dgP¿dgN¿dgH¿dgB¿dg@¿dg>¿dg<¿dg:¿dg*¿dg ¿dg¿dg¿dg¿ g gg igg @µ(248 HARDRESET 240 MOVD 225 /PUTD 219 GETD 204 \LOCKFN 194 \DEFINEDEVICE 9 CCODEP) (235 \BACKGROUND 230 BLOCK 214 \PROC.CODEFORTFRAME 209 \CODEFORTFRAME 199 \PROC.CODEFORTFRAME 186 \GENERIC.RENAMEFILE 177 NILL 168 NILL 159 NILL 150 NILL 141 \GENERIC.READP 132 \ILLEGAL.DEVICEOP 123 \GENERIC.BINS 114 \GENERIC.BOUTS 105 NILL 96 \GENERIC.CHARSET 87 \ILLEGAL.DEVICEOP 78 \IS.NOT.RANDACCESSP 69 \IS.NOT.RANDACCESSP 55 NILL 46 NILL 37 \PROCESS.EVENTFN 28 PROCESS 21 |FDEVTYPE#| 4 \PROC.CODEFORTFRAME) () \PROCESS.EVENTFN :D8 (L (1 EVENTNAME 0 DEV)) ÂAgð³ Agð³Agð¬Adgð¢±ƒ¿`h !HµhYÊ jð²ZId`ð³OÉ.Zdgð˜¿I °6gð—I °'JÃ“IJ°IÉgð«I` ¿HX°’gð³Agð¨Agð´h(159 \SUSPEND.PROCESS 120 SUSPEND.PROCESS 105 DEL.PROCESS 49 \APPEND2) (187 BEFORESYSOUT 179 BEFORELOGOUT 170 BEFOREMAKESYS 154 \PROCESS.AFTEREXIT.EVENT 146 \TIMER.PROCESS 139 PROCESS 128 EVENT 112 SUSPEND 96 DELETE 87 PROCESS 79 \RUNNING.PROCESS 65 PROCESS 43 \PROCESSES 32 AFTERSAVEVM 23 AFTERMAKESYS 14 AFTERSYSOUT 5 AFTERLOGOUT) () \PROCESS.BEFORE.LOGOUTA0001 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 3 SI::*RESETFORMS*) ¤0`YµhZÉ0gð¢±€¿Hµ$goo XhhdSc¿H ¿oH ¿JÉH ¿oH ¿H ¿oH ¿H ¿Ji ¿±ÿhI±ÿh(153 PROCESS.RESULT 145 TERPRI 138 PRIN1 126 TERPRI 119 PRIN1 107 PRIN1 92 PRIN1 80 TERPRI 61 CREATEW 37 ALLOW.BUTTON.EVENTS) (99 PROCESS 46 CLOSEW 27 DON'T 20 PROCESS 7 \PROCESSES) ( 132 " [Use the process status window to kill it if you really don't want to wait]" 113 " to finish..." 86 "Waiting for process " 56 "Waiting for process(es) to finish" 51 (260 247 453 173)) \PROCESS.BEFORE.LOGOUT :D8 (P 2 RESETSTATE P 1 SI::*RESETFORMS* P 0 LISPXHIST F 3 LISPXHIST) S!g ¿$(23 SI::RESETUNWIND 18 \MVLIST 13 \PROCESS.BEFORE.LOGOUTA0001) (8 SI::RESETUNWIND) () \PROCESS.AFTER.EXIT :D8 (L (0 FLG)) ` i(9 NOTIFY.EVENT) (15 \PROC.READY 4 \PROCESS.AFTEREXIT.EVENT) () \PROCESS.RESET.TIMERS :D8 NIL r`!Hµ`Hµ+hY´II¹ºjIdd3@ð–¿I J¿HX°ÉYÊjð²IÊjð¯IdÉ¤ ¿HX°§(106 \RUN.PROCESS 59 SETUPTIMER 53 GETTOPVAL) (98 PROCESS 85 PROCESS 72 PROCESS 17 \PROCESSES 4 \SYSTEMTIMERVARS) () \PROC.AFTER.WINDOWWORLD :D8 (F 1 \WINDOWWORLD) rg H²-`Ã²!H`¿`gH¿Q´4g ³'ogggggi h(110 ADD.PROCESS 71 FIND.PROCESS 57 PUTWINDOWPROP 9 FIND.PROCESS) (103 SCHEDULE 98 SYSTEM 93 RESTARTABLE 88 MOUSE 83 NAME 66 MOUSE 51 PROCESS 46 \TopLevelTtyWindow 38 \TopLevelTtyWindow 33 PROCESS 25 WINDOW 20 \TopLevelTtyWindow 4 EXEC) ( 78 (\MOUSE.PROCESS)) \TURN.ON.PROCESSES :D8 NIL =`‹djÍ¿µó`³hdohgð•i g(53 PROCESSWORLD 40 ASKUSER) (58 OK 45 Y 25 AUTOPROCESSFLG 12 PROCESS 4 \PROCESSES) ( 34 "^D -- run process scheduler? ") \PROC.CODEFORTFRAME :D8 (NAME T) >hg gð®l$o ¿°ó¿°ú(57 \REPEATEDLYEVALQT 52 INITIALEVALQT 44 \MP.ERROR 25 \TURN.ON.PROCESSES 20 \KEYBOARDON 15 CLEARSTK) (30 OK 10 **CLEAR** 5 \RUNNING.PROCESS) ( 39 "Unexpected (RETTO T)") \PROC.REPEATEDLYEVALQT :D8 (NAME \REPEATEDLYEVALQT) ,` ¿i ¿i ¿¿°ô(40 EVALQT 34 \RESETSYSTEMSTATE 28 INPUT 21 OUTPUT 14 TTYDISPLAYSTREAM 4 INITIALEVALQT) (9 \TopLevelTtyWindow) () BREAK.PROCESS :D8 (L (0 PROC)) <@dÃ´¿@dÊ jð´¿@„ d`ð–¿‰g h(56 \PROCESS.MAKEFRAME 45 \DOHELPINTERRUPT1 31 FIND.PROCESS) (51 \DOHELPINTERRUPT1 37 \RUNNING.PROCESS 16 PROCESS 6 PROCESS) () \SELECTPROCESS :D8 (L (0 TITLE) F 12 INTERRUPTMENUFONT) n`É`ÉRH`AOµOZIHð³RIJZ°M_É[Hð³/KIð³*OÊ0jð©Kdgð¡K_¿OµOh__¿O_°¬O&_°óJ`1 Oµ‚±—O JIo gIhh¿IHð³JHo gHhh¿o¼`LJ½dM¿d@¿di¿dW¿dg ¿dg¿jdnÿdh¾dN ¿ [d³6dÉJ³É_¿OµOh__¿O_±ÿ0Bµ` b ’±²` ÉZJ`ýñ²g¹JJØmÿØŽg¹J`ÙJ`hohib É¸B`Igg ¿gH ¿Bgo¿`µgl H ˆB ÉX¿H i@ÈLjð´g†L ]hdAdgð²¿jH ¿Md• hgð’k°æAdgð”¿l°Øgð²Ïl'°Ì(278 RELSTK 269 BAKTRACE 247 \MAKESTACKP 218 DSPRESET 208 \INSUREWINDOW 201 DSPFONT 195 FONTCREATE 175 PUTWINDOWPROP 158 DSPSCROLL 146 ATTACHWINDOW 120 \INSUREWINDOW 113 CREATEW 37 \INSUREWINDOW 23 WINDOWP 15 ATTACHEDWINDOWS) (309 BTV! 297 BTV* 285 BTV 257 BT 240 \PSWOP.SELECTED 225 PROCESS 188 GACHA 181 BACKTRACEFONT 165 PASSTOMAINCOMS 152 OFF 140 LOCALCLOSE 135 JUSTIFY 129 PROCESS.STATUS.WINDOW 96 PROCBACKTRACEHEIGHT 86 PROCBACKTRACEHEIGHT 77 BOTTOM 58 TOP 49 PROCBACKTRACEHEIGHT 32 PROCESS.STATUS.WINDOW 10 PROCESS.STATUS.WINDOW) ( 170 (MOVEW SHRINKW BURYW) 106 "Process backtrace") \INVALIDATE.PROCESS.WINDOW :D8 NIL T`d²I ´B`ggXgð³$`gH¿hkg`h(80 DSPFILL 62 PUTWINDOWPROP 37 PUTWINDOWPROP 15 ACTIVEWP) (75 PROCESS.STATUS.WINDOW 70 INVERT 56 OLDBUTTONEVENTFN 51 PROCESS.STATUS.WINDOW 43 \UPDATE.PROCESS.WINDOW 32 \UPDATE.PROCESS.WINDOW 27 BUTTONEVENTFN 22 PROCESS.STATUS.WINDOW 7 PROCESS.STATUS.WINDOW) () \UPDATE.PROCESS.WINDOW :D8 (L (0 WINDOW)) x@g `Jµ…»Iµh´#i °JKÉð¥Kµéi°æJºI¹°Òkg`¿@g@ghX¿@kHh(110 PUTWINDOWPROP 104 PUTWINDOWPROP 85 DSPFILL 42 PROCESS.STATUS.WINDOW 13 GETWINDOWUSERPROP) (98 OLDBUTTONEVENTFN 92 BUTTONEVENTFN 80 PROCESS.STATUS.WINDOW 75 INVERT 51 PROCESS 18 \PROCESSES 8 PROCS) () (PRETTYCOMPRINT PROCCOMS) (RPAQQ PROCCOMS ((COMS (DECLARE%: DONTCOPY (EXPORT (RECORDS PROCESS)) (RECORDS PROCESSQUEUE) ( CONSTANTS \PSTAT.WAITING \PSTAT.RUNNING \PSTAT.DELETED)) (INITRECORDS PROCESS PROCESSQUEUE) ( SYSRECORDS PROCESS PROCESSQUEUE)) (COMS (* ; "User entries") (FNS PROCESSWORLD ADD.PROCESS DEL.PROCESS PROCESS.RETURN FIND.PROCESS MAP.PROCESSES PROCESSP RELPROCESSP RESTART.PROCESS WAKE.PROCESS SUSPEND.PROCESS PROCESS.RESULT PROCESS-STATUS PROCESS.FINISHEDP) (FNS THIS.PROCESS TTY.PROCESS TTY.PROCESSP PROCESS.TTY GIVE.TTY.PROCESS ALLOW.BUTTON.EVENTS SPAWN.MOUSE \WAIT.FOR.TTY WAIT.FOR.TTY) (FNS RESET ERROR!) (INITVARS (TTY.PROCESS.DEFAULT (QUOTE (EXEC MOUSE))) (\TTY.PROCESS.EVENT) ( \TTY.PROCESS) (\PROCESS.NAME.TABLE (HASHARRAY 30 NIL (FUNCTION STRING-EQUAL-HASHBITS) (FUNCTION STRING-EQUAL)))) (GLOBALVARS TTY.PROCESS.DEFAULT \TTY.PROCESS.EVENT \PROCESS.NAME.TABLE) (FNS PROCESSPROP PROCESS.NAME PROCESS.WINDOW) (PROP ARGNAMES PROCESSPROP ADD.PROCESS) (COMS (* ; "Temporary") (P (MOVD? (QUOTE PROCESS.RETURN) (QUOTE KILL.ME) NIL T)))) (COMS (FNS DISMISS BLOCK WAITFORINPUT \WAITFORSYSBUFP) (* ; "Used to be a GLOBALRESOURCES") (DECLARE%: DONTCOPY (RESOURCES \DISMISSTIMER)) (INITRESOURCES \DISMISSTIMER)) (COMS (FNS EVAL.AS.PROCESS EVAL.IN.TTY.PROCESS) (* ;; "The PROCESS.WAIT macro is an augmentation to BLOCK, waiting for a condition to come true, or a timeout, or a wakeup" ) (MACROS PROCESS.WAIT) (FNS PROCESS.READ PROCESS.EVALV PROCESS.EVAL \PROCESS.EVAL1 PROCESS.APPLY \PROCESS.APPLY1) (* ; "Standard values for WAKEREASON -- PSTAT.TIMEDOUT is the only public one") (VARS (PSTAT.WAKEUP "default WakeUp") (PSTAT.TIMEDOUT "{time interval expired}") (PSTAT.QUIT "Quit") ( \PSTAT.NORESULT "{no result yet}")) (GLOBALVARS PSTAT.WAKEUP PSTAT.TIMEDOUT PSTAT.QUIT \PSTAT.NORESULT )) (COMS (* ; "Event stuff") (DECLARE%: DONTCOPY (RECORDS EVENT)) (INITRECORDS EVENT) (SYSRECORDS EVENT) (FNS CREATE.EVENT NOTIFY.EVENT AWAIT.EVENT \UNQUEUE.EVENT \ENQUEUE.EVENT/LOCK \EVENT.DEFPRINT) (MACROS AWAIT.CONDITION) (INITVARS (\PROCESS.AFTEREXIT.EVENT)) (GLOBALVARS \PROCESS.AFTEREXIT.EVENT)) (COMS (* ; "Monitor stuff") (DECLARE%: DONTCOPY (RECORDS MONITORLOCK) (MACROS .RELEASE.LOCK.)) ( INITRECORDS MONITORLOCK) (SYSRECORDS MONITORLOCK) (FNS OBTAIN.MONITORLOCK CREATE.MONITORLOCK RELEASE.MONITORLOCK SI::MONITOR-UNWIND MONITOR.AWAIT.EVENT \MONITORLOCK.DEFPRINT) (MACROS WITH.MONITOR WITH.FAST.MONITOR)) (COMS (EXPORT (SPECVARS \BACKGROUND) (GLOBALVARS \IGNORE.BACKGROUND)) (INITVARS ( \BACKGROUND NIL) (\IGNORE.BACKGROUND T)) (FNS \MAKE.PROCESS0 \MAKE.PROCESS1 \PROCESS.MOVEFRAME \RELEASE.PROCESS \UNWIND.PROCESS \MAYBEBLOCK \BACKGROUND.PROCESS \MOUSE.PROCESS \TIMER.PROCESS \PROCESS.RELEASE.LOCKS \SET.PROCESS.NAME \PROCESS.DEFPRINT) (FNS \START.PROCESSES \PROCESS.GO.TO.SLEEP \PROC.RESUME \RUN.PROCESS \SUSPEND.PROCESS \UNQUEUE.TIMER \ENQUEUE.TIMER \GET.PRIORITY.QUEUE) ( DECLARE%: DONTCOPY (MACROS \RESCHEDULE))) (COMS (FNS \PROCESS.INIT \PROCESS.EVENTFN \PROCESS.BEFORE.LOGOUT \PROCESS.AFTER.EXIT \PROCESS.RESET.TIMERS \PROC.AFTER.WINDOWWORLD \TURN.ON.PROCESSES) (* ; "Redefinitions") (FNS \PROC.CODEFORTFRAME \PROC.REPEATEDLYEVALQT)) (COMS (* ; "switching stacks") (FNS BREAK.PROCESS \SELECTPROCESS \PROCESS.MAKEFRAME \PROCESS.MAKEFRAME0)) ( INITVARS (%#MYHANDLE#) (%#SCHEDULER#) (\RUNNING.PROCESS) (\PROCESSES) (PROCESS.MAXMOUSE 5) ( PROC.FREESPACESIZE 1024) (AUTOPROCESSFLG T) (BACKGROUNDFNS) (\TIMERQHEAD) (\HIGHEST.PRIORITY.QUEUE) ( PROC.DEFAULT.PRIORITY 2) (\DEFAULTLINEBUF) (\DEFAULTTTYDISPLAYSTREAM) (\PROCTIMER.SCRATCH (NCREATE ( QUOTE FIXP))) (TOPW) (\PROC.RUN.NEXT.FLG) (\PROC.READY T)) (ADDVARS (\SYSTEMCACHEVARS \PROC.READY) ( \SYSTEMTIMERVARS (\LASTUSERACTION SECONDS))) (COMS (VARS (\PROC.RESTARTME "{restart flag}") ( \PROC.RESETME "{reset flag}") (\PROC.KILLME "{abort flag}")) (DECLARE%: DONTCOPY (EXPORT (MACROS THIS.PROCESS TTY.PROCESS TTY.PROCESSP) (GLOBALVARS \RUNNING.PROCESS \TTY.PROCESS \PROC.RESTARTME \PROC.RESETME \PROC.ABORTME)) (GLOBALVARS \PROCESSES PROC.FREESPACESIZE %#SCHEDULER# PROCESS.MAXMOUSE AUTOPROCESSFLG BACKGROUNDFNS \TopLevelTtyWindow \PROC.READY) (GLOBALVARS \TIMERQHEAD \PROCTIMER.SCRATCH \HIGHEST.PRIORITY.QUEUE PROC.DEFAULT.PRIORITY \PROC.RUN.NEXT.FLG \SYSTEMTIMERVARS) (MACROS ALIVEPROCP DEADPROCP \COERCE.TO.PROCESS) (LOCALVARS . T))) (COMS (* ; "Debugging") (FNS \CHECK.PQUEUE) (FNS PPROC PPROCWINDOW PPROCREPAINTFN PPROCRESHAPEFN PPROCEXTENT PPROC1 PROCESS.STATUS.WINDOW \PSW.SELECTED \PSWOP.SELECTED PROCESS.BACKTRACE \INVALIDATE.PROCESS.WINDOW \UPDATE.PROCESS.WINDOW) (INITVARS (PROCMENU) (PROCOPMENU) (PROCOP.WAKEMENU) (PROCESS.STATUS.WINDOW) ( SELECTEDPROC) (PROCBACKTRACEHEIGHT 320)) (ADDVARS (BackgroundMenuCommands ("PSW" (QUOTE ( PROCESS.STATUS.WINDOW)) "Puts up a Process Status Window"))) (P (SETQQ BackgroundMenu)) (DECLARE%: EVAL@COMPILE DONTCOPY (GLOBALVARS PROCESS.STATUS.WINDOW PROCMENU PROCOPMENU PROCOP.WAKEMENU PROCBACKTRACEHEIGHT SELECTEDPROC BACKTRACEFONT) (CONSTANTS LIGHTGRAYSHADE SELECTIONSHADE))) (DECLARE%: DONTEVAL@LOAD DOCOPY (ADDVARS (WINDOWUSERFORMS (\PROC.AFTER.WINDOWWORLD))) (P (DEFPRINT (QUOTE PROCESS) (FUNCTION \PROCESS.DEFPRINT)) (DEFPRINT (QUOTE EVENT) (FUNCTION \EVENT.DEFPRINT)) (DEFPRINT ( QUOTE MONITORLOCK) (FUNCTION \MONITORLOCK.DEFPRINT)) (* ; "\process.init must come last, since it does a HARDRESET") (\PROCESS.INIT))) (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA) (NLAML) (LAMA PROCESSPROP ADD.PROCESS))))) (/DECLAREDATATYPE (QUOTE PROCESS) (QUOTE (WORD WORD BYTE POINTER BYTE POINTER BYTE POINTER FLAG FLAG FLAG FLAG FLAG FLAG FLAG FLAG POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER)) (QUOTE ((PROCESS 0 (BITS . 15)) (PROCESS 1 ( BITS . 15)) (PROCESS 2 (BITS . 7)) (PROCESS 4 POINTER) (PROCESS 3 (BITS . 7)) (PROCESS 6 POINTER) ( PROCESS 3 (BITS . 135)) (PROCESS 8 POINTER) (PROCESS 8 (FLAGBITS . 0)) (PROCESS 8 (FLAGBITS . 16)) ( PROCESS 8 (FLAGBITS . 32)) (PROCESS 8 (FLAGBITS . 48)) (PROCESS 6 (FLAGBITS . 0)) (PROCESS 6 (FLAGBITS . 16)) (PROCESS 6 (FLAGBITS . 32)) (PROCESS 6 (FLAGBITS . 48)) (PROCESS 10 POINTER) (PROCESS 12 POINTER) (PROCESS 14 POINTER) (PROCESS 16 POINTER) (PROCESS 18 POINTER) (PROCESS 20 POINTER) (PROCESS 22 POINTER) (PROCESS 24 POINTER) (PROCESS 26 POINTER) (PROCESS 28 POINTER) (PROCESS 30 POINTER) ( PROCESS 32 POINTER) (PROCESS 34 POINTER) (PROCESS 36 POINTER) (PROCESS 38 POINTER) (PROCESS 40 POINTER ) (PROCESS 42 POINTER) (PROCESS 44 POINTER) (PROCESS 46 POINTER) (PROCESS 48 POINTER) (PROCESS 50 POINTER) (PROCESS 52 POINTER) (PROCESS 54 POINTER) (PROCESS 56 POINTER) (PROCESS 58 POINTER) (PROCESS 60 POINTER) (PROCESS 62 POINTER) (PROCESS 64 POINTER))) (QUOTE 66)) (/DECLAREDATATYPE (QUOTE PROCESSQUEUE) (QUOTE (BYTE POINTER POINTER POINTER POINTER)) (QUOTE (( PROCESSQUEUE 0 (BITS . 7)) (PROCESSQUEUE 2 POINTER) (PROCESSQUEUE 4 POINTER) (PROCESSQUEUE 6 POINTER) (PROCESSQUEUE 8 POINTER))) (QUOTE 10)) (ADDTOVAR SYSTEMRECLST (DATATYPE PROCESS ((PROCFX0 WORD) (PROCFX WORD) (PROCSTATUS BYTE) (PROCNAME POINTER) (PROCPRIORITY BYTE) (PROCQUEUE POINTER) (NIL BYTE) (NEXTPROCHANDLE POINTER) (PROCTIMERSET FLAG) (PROCBEINGDELETED FLAG) (PROCDELETED FLAG) (PROCSYSTEMP FLAG) (PROCNEVERSTARTED FLAG) (NIL FLAG) (NIL FLAG) (NIL FLAG) (PROCWAKEUPTIMER POINTER) (PROCTIMERLINK POINTER) (PROCTIMERBOX POINTER) ( WAKEREASON POINTER) (PROCEVENTORLOCK POINTER) (PROCFORM POINTER) (RESTARTABLE POINTER) (PROCWINDOW POINTER) (PROCFINISHED POINTER) (PROCRESULT POINTER) (PROCFINISHEVENT POINTER) (PROCMAILBOX POINTER) ( PROCDRIBBLEOUTPUT POINTER) (PROCINFOHOOK POINTER) (PROCTYPEAHEAD POINTER) (PROCREMOTEINFO POINTER) ( PROCUSERDATA POINTER) (PROCEVENTLINK POINTER) (PROCAFTEREXIT POINTER) (PROCBEFOREEXIT POINTER) ( PROCOWNEDLOCKS POINTER) (PROCEVAPPLYRESULT POINTER) (PROCTTYENTRYFN POINTER) (PROCTTYEXITFN POINTER) ( PROCHARDRESETINFO POINTER) (PROCRESTARTFORM POINTER) (PROCOLDTTYPROC POINTER) (NIL POINTER))) ( DATATYPE PROCESSQUEUE ((PQPRIORITY BYTE) (PQHIGHER POINTER) (PQLOWER POINTER) (PQNEXT POINTER) (PQLAST POINTER)))) (RPAQ? TTY.PROCESS.DEFAULT (QUOTE (EXEC MOUSE))) (RPAQ? \TTY.PROCESS.EVENT) (RPAQ? \TTY.PROCESS) (RPAQ? \PROCESS.NAME.TABLE (HASHARRAY 30 NIL (FUNCTION STRING-EQUAL-HASHBITS) (FUNCTION STRING-EQUAL)) ) (PUTPROPS PROCESSPROP ARGNAMES (PROC PROP NEWVALUE)) (PUTPROPS ADD.PROCESS ARGNAMES (NIL (FORM . PROPS&VALUES) . U)) (MOVD? (QUOTE PROCESS.RETURN) (QUOTE KILL.ME) NIL T) (/SETTOPVAL (QUOTE \\DISMISSTIMER.GLOBALRESOURCE) NIL) (PUTPROPS PROCESS.WAIT MACRO ((WAITCOND TIMEOUT) (bind ($$TIMEOUT _ (AND TIMEOUT (SETUPTIMER TIMEOUT)) ) until (AND $$TIMEOUT (TIMEREXPIRED? $$TIMEOUT)) do (if (SETQ $$VAL WAITCOND) then (RETURN $$VAL) else (BLOCK))))) (RPAQ PSTAT.WAKEUP "default WakeUp") (RPAQ PSTAT.TIMEDOUT "{time interval expired}") (RPAQ PSTAT.QUIT "Quit") (RPAQ \PSTAT.NORESULT "{no result yet}") (/DECLAREDATATYPE (QUOTE EVENT) (QUOTE (FLAG (BITS 3) POINTER POINTER)) (QUOTE ((EVENT 0 (FLAGBITS . 0 )) (EVENT 0 (BITS . 18)) (EVENT 0 POINTER) (EVENT 2 POINTER))) (QUOTE 4)) (ADDTOVAR SYSTEMRECLST (DATATYPE EVENT ((EVENTWAKEUPPENDING FLAG) (NIL BITS 3) (EVENTQUEUETAIL POINTER ) (EVENTNAME POINTER)))) (PUTPROPS AWAIT.CONDITION MACRO ((CONDITION EVNT TIMEOUT TIMERP) (PROG (($$TIMER TIMEOUT) ($$EV ( \DTEST EVNT (QUOTE EVENT)))) (DECLARE (LOCALVARS $$TIMER $$EV)) LP (RETURN (OR CONDITION (COND ((NEQ ( \PROCESS.GO.TO.SLEEP $$EV $$TIMER TIMERP) $$EV) NIL) (T (AND $$TIMER (SETQ $$TIMER T)) (GO LP)))))))) (RPAQ? \PROCESS.AFTEREXIT.EVENT) (/DECLAREDATATYPE (QUOTE MONITORLOCK) (QUOTE (FLAG FLAG (BITS 2) POINTER POINTER POINTER POINTER)) ( QUOTE ((MONITORLOCK 0 (FLAGBITS . 0)) (MONITORLOCK 0 (FLAGBITS . 16)) (MONITORLOCK 0 (BITS . 33)) ( MONITORLOCK 0 POINTER) (MONITORLOCK 2 POINTER) (MONITORLOCK 4 POINTER) (MONITORLOCK 6 POINTER))) ( QUOTE 8)) (ADDTOVAR SYSTEMRECLST (DATATYPE MONITORLOCK ((NIL FLAG) (MLOCKPERPROCESS FLAG) (NIL BITS 2) ( MLOCKQUEUETAIL POINTER) (MLOCKOWNER POINTER) (MLOCKNAME POINTER) (MLOCKLINK POINTER)))) (PUTPROPS WITH.MONITOR MACRO ((LOCK . FORMS) (LET (SI::*LOCKED-MONITOR* SI::*RESETFORMS*) (DECLARE ( CL:SPECIAL SI::*LOCKED-MONITOR* SI::*RESETFORMS*)) (CL:UNWIND-PROTECT (PROGN (OBTAIN.MONITORLOCK LOCK NIL (QUOTE WITH.MONITOR)) . FORMS) (SI::MONITOR-UNWIND))))) (PUTPROPS WITH.FAST.MONITOR MACRO ((LOCK . FORMS) (UNINTERRUPTABLY ((LAMBDA (UNLOCK) (PROG1 (PROGN . FORMS) (AND (NEQ UNLOCK T) (RELEASE.MONITORLOCK UNLOCK)))) (OBTAIN.MONITORLOCK LOCK))))) (RPAQ? \BACKGROUND NIL) (RPAQ? \IGNORE.BACKGROUND T) (RPAQ? %#MYHANDLE#) (RPAQ? %#SCHEDULER#) (RPAQ? \RUNNING.PROCESS) (RPAQ? \PROCESSES) (RPAQ? PROCESS.MAXMOUSE 5) (RPAQ? PROC.FREESPACESIZE 1024) (RPAQ? AUTOPROCESSFLG T) (RPAQ? BACKGROUNDFNS) (RPAQ? \TIMERQHEAD) (RPAQ? \HIGHEST.PRIORITY.QUEUE) (RPAQ? PROC.DEFAULT.PRIORITY 2) (RPAQ? \DEFAULTLINEBUF) (RPAQ? \DEFAULTTTYDISPLAYSTREAM) (RPAQ? \PROCTIMER.SCRATCH (NCREATE (QUOTE FIXP))) (RPAQ? TOPW) (RPAQ? \PROC.RUN.NEXT.FLG) (RPAQ? \PROC.READY T) (ADDTOVAR \SYSTEMCACHEVARS \PROC.READY) (ADDTOVAR \SYSTEMTIMERVARS (\LASTUSERACTION SECONDS)) (RPAQ \PROC.RESTARTME "{restart flag}") (RPAQ \PROC.RESETME "{reset flag}") (RPAQ \PROC.KILLME "{abort flag}") (RPAQ? PROCMENU) (RPAQ? PROCOPMENU) (RPAQ? PROCOP.WAKEMENU) (RPAQ? PROCESS.STATUS.WINDOW) (RPAQ? SELECTEDPROC) (RPAQ? PROCBACKTRACEHEIGHT 320) (ADDTOVAR BackgroundMenuCommands ("PSW" (QUOTE (PROCESS.STATUS.WINDOW)) "Puts up a Process Status Window")) (SETQQ BackgroundMenu) (ADDTOVAR WINDOWUSERFORMS (\PROC.AFTER.WINDOWWORLD)) (DEFPRINT (QUOTE PROCESS) (FUNCTION \PROCESS.DEFPRINT)) (DEFPRINT (QUOTE EVENT) (FUNCTION \EVENT.DEFPRINT)) (DEFPRINT (QUOTE MONITORLOCK) (FUNCTION \MONITORLOCK.DEFPRINT)) (\PROCESS.INIT) NIL