wait for safepoint

sig.ros

#!/bin/sh
#|-*- mode:lisp -*-|#
#|
exec ros -Q -L sbcl -- $0 "$@"
|#

(ql:quickload :bordeaux-threads)

(defvar *should-finish* nil)
(defvar *finished* nil)

(defun worker ()
  (loop :while t
     :do (loop :for i :from 0 :below 10
            :do (sleep 1)
            (princ i)
            (force-output)
            :finally (terpri))
     :until *should-finish*)
  (setf *finished* t))

(defun main (&rest argv)
  (declare (ignorable argv))
  (bt:make-thread #'worker :name "worker")
  (format t "worker launched wait for sigint ~%PID:~A~%"(sb-posix:getpid))
  (loop
     :do (handler-case
             (progn
               (loop :while t
                  :do (sleep 1)
                :until *finished*))
           (sb-sys:interactive-interrupt (condition)
             (declare (ignore condition))
             (print "sigint!")
             (setq *should-finish* t)))
     :until *finished*))