next: Use str instead of cl-strings.

.config/next/init.lisp

@@ -50,11 +50,11 @@
 
 (defun eval-in-emacs (&rest s-exps)
   "Evaluate S-exps with `emacsclient'."
-  (let ((s-exps-string (cl-strings:replace-all
-                        (write-to-string
-                         `(progn ,@s-exps) :case :downcase)
+  (let ((s-exps-string (str:replace-all
                         ;; Discard the package prefix.
-                        "next::" "")))
+                        "next::" ""
+                        (write-to-string
+                         `(progn ,@s-exps) :case :downcase))))
     (log:debug "Sending to Emacs: ~a" s-exps-string)
     (ignore-errors (uiop:run-program
                     (list "emacsclient" "--eval" s-exps-string)))))