; * lisp/emacs-lisp/cl-preloaded.el (user-ptr): Fix typo.

Author:
(cherry picked from commit 30b1b0d7cd8e4d46a601e9737350cda970f6bab0)

diff --git a/lisp/emacs-lisp/cl-preloaded.el b/lisp/emacs-lisp/cl-preloaded.el
index f27933ed0543f8eca880dec79776c34215c7b82d..35a8d79a1cd65a95658f4082ee9a46412739e33f 100644 (file)
--- a/lisp/emacs-lisp/cl-preloaded.el
+++ b/lisp/emacs-lisp/cl-preloaded.el
@@ -357,9 +357,11 @@ The `slots' (and hence `index-table') are currently unused."
 (cl--define-built-in-type tree-sitter-node atom)
 (cl--define-built-in-type tree-sitter-parser atom)
 (declare-function user-ptrp "data.c")
-(unless (fboundp 'user-ptrp)
+(when (fboundp 'user-ptrp)
   (cl--define-built-in-type user-ptr atom nil
-                            :predicate user-ptrp)) ;; FIXME: Shouldn't it be called `user-ptr-p'?
+                            ;; FIXME: Shouldn't it be called
+                            ;; `user-ptr-p'?
+                            :predicate user-ptrp))
 (cl--define-built-in-type font-object atom)
 (cl--define-built-in-type font-entity atom)
 (cl--define-built-in-type font-spec atom)