a3x/whatsxmpp
1
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

Do nothing on the main thread to prevent it exiting

Browse source
This commit is contained in:
eta 2020-04-05 17:06:31 +01:00
parent 590390347b
commit f1ea7070c6
1 changed files with 9 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
stuff.lisp
View file

@ -1487,9 +1487,16 @@ WhatsXMPP represents users as u440123456789 and groups as g1234-5678."
(setf *debugger-hook* (lambda (condition hook) (setf *debugger-hook* (lambda (condition hook)
(declare (ignore hook)) (declare (ignore hook))
(format t "ERROR: ~A~%" condition) (format t "ERROR: ~A~%" condition)
(sb-ext:exit :code 1))) (sb-ext:exit :code 1 :abort t)))
(format t "*mario voice* Here we go!~%") (format t "*mario voice* Here we go!~%")
(defparameter *comp* (whatsxmpp-init)) (defparameter *comp* (whatsxmpp-init))
(on :error *comp* (lambda (e) (on :error *comp* (lambda (e)
(format t "ERROR: ~A~%" e) (format t "ERROR: ~A~%" e)
(sb-ext:exit :code 1))))) (sb-ext:exit :code 1 :abort t)))
;; We don't have anything better to do, so let's wait on a condition
;; variable that'll never wake up.
(let ((lock (bt:make-lock))
(condvar (bt:make-condition-variable)))
(loop
(bt:with-lock-held (lock)
(bt:condition-wait condvar lock))))))