From aa7beb040daec98a6a91c25286c31cc37e82499c Mon Sep 17 00:00:00 2001 From: Pierre Neidhardt Date: Sun, 25 Aug 2019 12:13:45 +0200 Subject: [PATCH] next: Use str instead of cl-strings. --- .config/next/init.lisp | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/.config/next/init.lisp b/.config/next/init.lisp index 08167567..c55fbaff 100644 --- a/.config/next/init.lisp +++ b/.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)))))