home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #30 / NN_1992_30.iso / spool / comp / lang / lisp / 3092 < prev    next >
Encoding:
Internet Message Format  |  1992-12-16  |  2.0 KB
  1. Path: sparky!uunet!cs.utexas.edu!sdd.hp.com!usc!isi.edu!venera.isi.edu!jas
  2. From: jas@ISI.EDU (Jeff Sullivan)
  3. Newsgroups: comp.lang.lisp
  4. Subject: Lucid 4, process help
  5. Message-ID: <23064@venera.isi.edu>
  6. Date: 16 Dec 92 00:48:39 GMT
  7. Sender: news@isi.edu
  8. Distribution: comp
  9. Organization: USC-ISI
  10. Lines: 40
  11.  
  12.  
  13. I'm trying to set up a system where several processes are run in the
  14. background, controlling CLIM applications, and are controlled in some
  15. part by a forground processes, which is itself a CLIM application.
  16.  
  17. Now, the only problem comes when trying to quit from the main process.
  18. I try to issue a KILL-PROCESS to each of the sub-processes, and
  19. sometimes (not all the time, but not reproducably), I get the
  20. following error:
  21.  
  22. >>Error: Attempting to unlock a lock held by #<Process Summary Window 1DE823E>
  23.  
  24. (LUCID-COMMON-LISP:METHOD CLIM::STREAM-EVENT-HANDLER (CLIM::CLX-ROOT-WINDOW)):
  25.    Required arg 0 (STREAM): #<CLIM::CLX-ROOT-WINDOW /x 0:1152 y 0:900/ 20D2DDE>
  26.    Keyword arg 1 (TIMEOUT): NIL
  27.    Keyword arg 2 (INPUT-WAIT-TEST): #<Compiled-Function (:INTERNAL CLIM::WITH-INPUT-CONTEXT-1 CLIM::POINTER-MOTION-PENDING) 1DF30DE>
  28.    Keyword arg 3 (ORIGINAL-STREAM): #<CLIM::CLX-WINDOW /x 0:550 y 0:326/ 2749556>
  29. :C  0: Continue or smash lock.
  30. :A  1: Return to Evaluation command level
  31.     2: Evaluation top level
  32.     3: Exit Evaluation
  33.     4: Kill process #<Process Evaluation Window 1DE8006>
  34.     5: Restart process #<Process Evaluation Window 1DE8006>
  35.  
  36.  
  37. I can always "Continue or Smash Lock", but the problem is that I'm
  38. dropped into the debigger to do it.  I just want the subprocesses
  39. killed, no questions.
  40.  
  41. Any ideas how to do this?  I tried wrapping a CATCH around the
  42. top-level ofrms of the subprocesses and issuing an INTERRUPT-PROCESS
  43. THROW to the CATCH, but this didn'twork either.
  44.  
  45. jas
  46.  
  47. --
  48. --------------------------------------------------------------------------
  49. Jeffrey A. Sullivan             | Research Scientist et al.
  50. jas@isi.edu (Internet)          | Information Sciences Institute
  51. 72511,402    (Compuserve)       | University of Southern California
  52.