Harden parsing of repl responses

Add more nil checks and ignore-errors around both the reading of LISP expression and the
inf-clojure--response-match-p functionality.

Author: arichiardi

inf-clojure.el

@@ -940,7 +940,7 @@ prefix argument PROMPT-FOR-SYMBOL, it prompts for a symbol name."
 ;; Originally from:
 ;;   https://github.com/glycerine/lush2/blob/master/lush2/etc/lush.el#L287
 (defun inf-clojure-results-from-process (process command &optional beg-string end-string)
-  "Send COMMAND to PROCESS.
+  "Send to PROCESS the given COMMAND.
 Return the result of COMMAND starting with BEG-STRING and ending
 with END-STRING if non-nil.  If BEG-STRING is nil, the result
 string will start from (point) in the results buffer.  If
@@ -978,7 +978,8 @@ the results buffer.  It cuts out the output from
 See variable `inf-clojure-arglists-form'."
   (let* ((arglists-snippet (format (inf-clojure-arglists-form) fn))
          (arglists-result (inf-clojure-results-from-process (inf-clojure-proc) arglists-snippet))
-         (arglists-data (when arglists-result (read arglists-result))))
+         ;; The following reads the first LISP expression from the string
+         (arglists-data (when arglists-result (ignore-errors (read arglists-result)))))
     (cond
      ((null arglists-data) nil)
      ((stringp arglists-data) arglists-data)
@@ -1229,7 +1230,8 @@ to suppress the usage of the target buffer discovery logic."
   "Return MATCH-P on the result of sending FORM to PROC.
 Note that this function will add a \n to the end of the string
 for evaluation, therefore FORM should not include it."
-  (funcall match-p (inf-clojure-results-from-process proc form nil)))
+  (when-let* ((response (inf-clojure-results-from-process proc form)))
+    (funcall match-p response)))
 
 ;;;; Lumo
 ;;;; ====