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

[Po Lu]

branch: master
commit 30b1b0d7cd8e4d46a601e9737350cda970f6bab0
Author: Po Lu <luangruo@yahoo.com>
Commit: Po Lu <luangruo@yahoo.com>

    ; * lisp/emacs-lisp/cl-preloaded.el (user-ptr): Fix typo.
    
    Author:
---
 lisp/emacs-lisp/cl-preloaded.el | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/lisp/emacs-lisp/cl-preloaded.el b/lisp/emacs-lisp/cl-preloaded.el
index f27933ed054..35a8d79a1cd 100644
--- 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)