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

Do nothing on the main thread to prevent it exiting

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)
(declare (ignore hook))
(format t "ERROR: ~A~%" condition)
(sb-ext:exit :code 1)))
(sb-ext:exit :code 1 :abort t)))
(format t "*mario voice* Here we go!~%")
(defparameter *comp* (whatsxmpp-init))
(on :error *comp* (lambda (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))))))