From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Mon, 18 Mar 2024 13:38:23 +0000 (-0400)
Subject: * lisp/emacs-lisp/cl-preloaded.el (user-ptr): Add predicate
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4d478a20f7a13df53c526308a9532feac17d233a;p=emacs.git

* lisp/emacs-lisp/cl-preloaded.el (user-ptr): Add predicate

(cherry picked from commit 70ac815ece299007ff468c09632ef4d488e69be3)
---

diff --git a/lisp/emacs-lisp/cl-preloaded.el b/lisp/emacs-lisp/cl-preloaded.el
index cba56e0bbd4..f7757eae9c0 100644
--- a/lisp/emacs-lisp/cl-preloaded.el
+++ b/lisp/emacs-lisp/cl-preloaded.el
@@ -328,7 +328,9 @@
           (:predicate (setq predicate val))
           (_ (error "Unknown keyword arg: %S" kw)))))
     `(progn
-       ,(if predicate `(put ',name 'cl-deftype-satisfies #',predicate))
+       ,(if predicate `(put ',name 'cl-deftype-satisfies #',predicate)
+          ;; (message "Missing predicate for: %S" name)
+          nil)
        (put ',name 'cl--class
             (built-in-class--make ',name ,docstring
                                   (mapcar (lambda (type)
@@ -352,7 +354,8 @@
 (cl--define-built-in-type tree-sitter-compiled-query atom)
 (cl--define-built-in-type tree-sitter-node atom)
 (cl--define-built-in-type tree-sitter-parser atom)
-(cl--define-built-in-type user-ptr atom)
+(cl--define-built-in-type user-ptr atom
+  nil :predicate user-ptrp) ;; FIXME: Shouldn't it be called `user-ptr-p'?
 (cl--define-built-in-type font-object atom)
 (cl--define-built-in-type font-entity atom)
 (cl--define-built-in-type font-spec atom)