`sly-asdf-isearch-system` does not work as intended

[lpaviets]

The function sly-asdf-isearch-system is currently not working. It locally binds multi-isearch-next-buffer-function but calls isearch instead of multi-isearch afterwards. Moreover, and as far as I can tell, the function could use the following definition:

(defun sly-asdf-isearch-system (sys-name)
      "Run function `multi-isearch-files' on the files of an ASDF system SYS-NAME."
      (interactive (list (sly-asdf-read-system-name nil nil)))
      (let ((files (mapcar 'sly-from-lisp-filename
                           (sly-eval `(slynk-asdf:asdf-system-files ,sys-name)))))
        (multi-isearch-files files)))

Unless I am mistaken, the current code is somewhat re-implementing a built-in function.