mirror of
https://gitlab.com/embeddable-common-lisp/ecl.git
synced 2025-12-15 15:21:03 -08:00
19 lines
No EOL
542 B
Common Lisp
19 lines
No EOL
542 B
Common Lisp
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
;;; Test that serve-event can be interrupted
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
|
|
(require 'serve-event)
|
|
|
|
(defun serve-event-loop ()
|
|
(serve-event:serve-all-events)
|
|
(format t "serve-event-loop interrupted~%")
|
|
(serve-event-loop))
|
|
|
|
(let ((thread
|
|
(mp:process-run-function 'loop #'serve-event-loop)))
|
|
(defun interrupt-loop ()
|
|
(sleep 5)
|
|
(mp:interrupt-process thread (lambda ()))
|
|
(interrupt-loop)))
|
|
|
|
(interrupt-loop) |