branch: elpa/cider
commit b257e3460659ac352d6263d9f87f58c8316549a9
Author: Bozhidar Batsov <[email protected]>
Commit: Bozhidar Batsov <[email protected]>
Replace trivial cl-lib functions with built-in equivalents
- cl-gensym → gensym
- cl-incf → setq with 1+
- cl-copy-list → copy-sequence
---
lisp/cider-repl-history.el | 4 ++--
lisp/cider-repl.el | 2 +-
lisp/cider-stacktrace.el | 4 ++--
lisp/nrepl-client.el | 4 ++--
4 files changed, 7 insertions(+), 7 deletions(-)
diff --git a/lisp/cider-repl-history.el b/lisp/cider-repl-history.el
index 9a411987742..31703806afa 100644
--- a/lisp/cider-repl-history.el
+++ b/lisp/cider-repl-history.el
@@ -492,8 +492,8 @@ Otherwise, return it unchanged."
(defmacro cider-repl-history-add-overlays-for (item &rest body)
"Add overlays for ITEM, and execute BODY."
- (let ((beg (cl-gensym "cider-repl-history-add-overlays-"))
- (end (cl-gensym "cider-repl-history-add-overlays-")))
+ (let ((beg (gensym "cider-repl-history-add-overlays-"))
+ (end (gensym "cider-repl-history-add-overlays-")))
`(let ((,beg (point))
(,end
(progn
diff --git a/lisp/cider-repl.el b/lisp/cider-repl.el
index 80ce4af82ee..f42c43a5b62 100644
--- a/lisp/cider-repl.el
+++ b/lisp/cider-repl.el
@@ -1102,7 +1102,7 @@ If NEWLINE is true then add a newline at the end of the
input."
(add-text-properties cider-repl-input-start-mark
(point)
`(cider-old-input
- ,(cl-incf cider-repl-old-input-counter))))
+ ,(setq cider-repl-old-input-counter (1+
cider-repl-old-input-counter)))))
(unless cider-repl-use-clojure-font-lock
(let ((overlay (make-overlay cider-repl-input-start-mark end)))
;; These properties are on an overlay so that they won't be taken
diff --git a/lisp/cider-stacktrace.el b/lisp/cider-stacktrace.el
index e7cf8814728..3f03ca06a7e 100644
--- a/lisp/cider-stacktrace.el
+++ b/lisp/cider-stacktrace.el
@@ -308,7 +308,7 @@ the tags that must be shown."
(hide (cider-stacktrace--should-hide-p neg-filters
pos-filters
flags)))
- (when hide (cl-incf hidden))
+ (when hide (setq hidden (1+ hidden)))
(put-text-property (point) (line-beginning-position 2)
'invisible hide)))
(forward-line 1))
@@ -746,7 +746,7 @@ the NAME. The whole group is prefixed by string INDENT."
(let* ((str (and vals (replace-regexp-in-string "\n+\\'" "" (apply #'concat
vals))))
(id (and str
(string-match "\n" str)
- (cl-gensym name))))
+ (gensym name))))
(insert indent)
(if id
(let* ((beg-link (string-match "[^ :]" name))
diff --git a/lisp/nrepl-client.el b/lisp/nrepl-client.el
index b988c3fe537..de83091c463 100644
--- a/lisp/nrepl-client.el
+++ b/lisp/nrepl-client.el
@@ -902,7 +902,7 @@ the corresponding type of response."
(defun nrepl-next-request-id (connection)
"Return the next request id for CONNECTION."
(with-current-buffer connection
- (number-to-string (cl-incf nrepl-request-counter))))
+ (number-to-string (setq nrepl-request-counter (1+
nrepl-request-counter)))))
(defun nrepl-send-request (request callback connection &optional tooling)
"Send REQUEST and register response handler CALLBACK using CONNECTION.
@@ -1413,7 +1413,7 @@ FOREGROUND and BUTTON are as in `nrepl-log-pp-object'."
(if (null (cdr object))
(insert ")\n")
(let* ((indent (+ 2 (- (current-column) (length head))))
- (sorted-pairs (sort (seq-partition (cl-copy-list (cdr object))
2)
+ (sorted-pairs (sort (seq-partition (copy-sequence (cdr object))
2)
(lambda (a b)
(string< (car a) (car b)))))
(name-lengths (seq-map (lambda (pair) (length (car pair)))
sorted-pairs))
