From: Philip Kaludercic <philipk@posteo.net>
Date: Wed, 28 Jul 2021 08:31:57 +0000 (+0200)
Subject: Replace cl-c[ad]+r with regular c[ad]+r
X-Git-Tag: emacs-28.0.90~948^2~30
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=190ea9cd3eee8910285005cdd54352238af9a558;p=emacs.git

Replace cl-c[ad]+r with regular c[ad]+r

* rcirc.el (rcirc-make-trees): Replace cl-cdadr with cdadr
(rcirc-handler-333): Replace cl-cadddr with cadddr
(rcirc-authenticate): Replace cl-cdddr with cdddr
---

diff --git a/lisp/net/rcirc.el b/lisp/net/rcirc.el
index b850ac00648..629b51d7c35 100644
--- a/lisp/net/rcirc.el
+++ b/lisp/net/rcirc.el
@@ -2405,7 +2405,7 @@ prefix with another element in PAIRS."
 	    (when (and (listp x) (listp (cadr x)))
 	      (setcdr x (if (> (length (cdr x)) 1)
 			    (rcirc-make-trees (cdr x))
-			  (setcdr x (list (cl-cdadr x)))))))
+			  (setcdr x (list (cdadr x)))))))
 	  alist)))
 
 ;;; /commands these are called with 3 args: PROCESS, TARGET, which is
@@ -3234,7 +3234,7 @@ RFC1459."
     (with-current-buffer buffer
       (let ((setter (nth 2 args))
 	    (time (current-time-string
-		   (string-to-number (cl-cadddr args)))))
+		   (string-to-number (cadddr args)))))
 	(rcirc-print process sender "TOPIC" (cadr args)
 		     (format "%s (%s on %s)" rcirc-topic setter time))))))
 
@@ -3344,7 +3344,7 @@ Passwords are stored in `rcirc-authinfo' (which see)."
 	    (server (car i))
 	    (nick (nth 2 i))
 	    (method (cadr i))
-	    (args (cl-cdddr i)))
+	    (args (cdddr i)))
 	(when (and (string-match server rcirc-server))
           (if (and (memq method '(nickserv chanserv bitlbee))
                    (string-match nick rcirc-nick))