Opened 12 years ago

Closed 12 years ago

#228 closed defect (fixed)

Once exhausted, process becomes uninterruptable

Reported by: gz Owned by: gz
Priority: major Milestone:
Component: Runtime (threads, GC) Version:
Keywords: Cc:

Description

Once a process is allowed to run to exhaustion, it never again responds to process-interrupt:

(let ((p (make-process "Test")))

  ;; Let it run through once
  (process-preset p #'(lambda () nil))
  (process-enable p)
  (process-wait "exhaust" #'(lambda () (process-exhausted-p p)))

  ;; Now revive it and try to interrupt it
  (process-preset p #'(lambda () (sleep 10)))
  (process-reset p)
  (process-enable p)
  (sleep 1)
  (let ((test :never))
    (process-interrupt p #'(lambda () (setq test :interrupt)))
    (process-wait "exhaust" #'(lambda () (process-exhausted-p p)))
    test))

Change History (1)

comment:1 Changed 12 years ago by gz

  • Resolution set to fixed
  • Status changed from new to closed

Fixed in r8052

Note: See TracTickets for help on using tickets.