[nongnu] elpa/cider abe972ad9f 7/8: Inline nrepl-dict predicates

[ELPA Syncer]

branch: elpa/cider
commit abe972ad9f256972940d503a64b1012d21561146
Author: yuhan0 <qythium@gmail.com>
Commit: Bozhidar Batsov <bozhidar@batsov.dev>

    Inline nrepl-dict predicates
---
 nrepl-dict.el | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

diff --git a/nrepl-dict.el b/nrepl-dict.el
index 0b56f2ab40..d8daeb5cf9 100644
--- a/nrepl-dict.el
+++ b/nrepl-dict.el
@@ -45,12 +45,11 @@
     (maphash (lambda (k v) (nrepl-dict-put dict k v)) hash)
     dict))
 
-(defun nrepl-dict-p (object)
+(defsubst nrepl-dict-p (object)
   "Return t if OBJECT is an nREPL dict."
-  (and (listp object)
-       (eq (car object) 'dict)))
+  (eq (car-safe object) 'dict))
 
-(defun nrepl-dict-empty-p (dict)
+(defsubst nrepl-dict-empty-p (dict)
   "Return t if nREPL dict DICT is empty."
   (null (cdr dict)))