From 1b169e77410722a0f99e8c2fc0933f83efeb8ce6 Mon Sep 17 00:00:00 2001 From: eta Date: Sun, 5 Apr 2020 15:08:56 +0100 Subject: [PATCH] remove stray INVOKE-DEBUGGER calls --- stuff.lisp | 10 ++-------- 1 file changed, 2 insertions(+), 8 deletions(-) diff --git a/stuff.lisp b/stuff.lisp index 3b9b22c..ca4bae7 100644 --- a/stuff.lisp +++ b/stuff.lisp @@ -178,9 +178,6 @@ (cxml:parse fucking-stream source :recode t) (error (e) - (with-simple-restart - (continue "Continue execution.") - (invoke-debugger e)) (format *debug-io* "~&Component listen thread failed: ~A~%" e) (emit :error comp e))))) @@ -483,9 +480,7 @@ :defined-condition "internal-server-error" :text (write-to-string e) :type "cancel")) - (with-simple-restart - (continue "Continue execution.") - (invoke-debugger e))))))) + (warn "IQ handler for ~A failed: ~A" handler e)))))) (defun handle-iq-get (comp id from stanza) "Handles an IQ-get STANZA for component COMP." @@ -733,8 +728,7 @@ Commands: (cxml:text get-url)))) (admin-msg comp jid "(Code expired? Be faster next time. Get a new one with `connect`.)"))))))) (t (e) - (admin-msg comp jid (format nil "Failed to upload QR code!~%Report the following error to the bridge admin: `~A`" e)) - (invoke-debugger e)))))) + (admin-msg comp jid (format nil "Failed to upload QR code!~%Report the following error to the bridge admin: `~A`" e))))))) (defparameter *user-jid-scanner* (cl-ppcre:create-scanner "u([0-9]+)"))