From abe972ad9f256972940d503a64b1012d21561146 Mon Sep 17 00:00:00 2001 From: yuhan0 Date: Tue, 11 Jun 2024 07:40:48 +0800 Subject: [PATCH] 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 0b56f2ab4..d8daeb5cf 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)))