diff options
author | Stefan Monnier <monnier@iro.umontreal.ca> | 2024-03-26 17:27:29 -0400 |
---|---|---|
committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2024-03-26 17:27:29 -0400 |
commit | e5d824b632a68430535f6e94d911871eb0f3f772 (patch) | |
tree | 0f3c9800b48e4899d7d3d5b7d6dacc336adcd129 /lisp | |
parent | ed85132740b39c147647be1831abb64a3f514d57 (diff) | |
download | emacs-e5d824b632a68430535f6e94d911871eb0f3f772.tar.gz |
cl-preloaded.el: Partly revert last change
The change caused type-check errors in auth-source where they use
`:type function` constraints on object slots and expect those to
be able to hold symbols.
* lisp/emacs-lisp/cl-preloaded.el (function): Revert last change.
* test/src/data-tests.el (data-tests--cl-type-of): Use `cl-functionp`
rather than `functionp` to test `function`.
Diffstat (limited to 'lisp')
-rw-r--r-- | lisp/emacs-lisp/cl-preloaded.el | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/cl-preloaded.el b/lisp/emacs-lisp/cl-preloaded.el index 6128db05c61..260478c3a39 100644 --- a/lisp/emacs-lisp/cl-preloaded.el +++ b/lisp/emacs-lisp/cl-preloaded.el @@ -436,7 +436,11 @@ For this build of Emacs it's %dbit." (car car) (cdr cdr)) (cl--define-built-in-type function (atom) "Abstract supertype of function values." - :predicate cl-functionp) + ;; FIXME: Historically, (cl-typep FOO 'function) called `functionp', + ;; so while `cl-functionp' would be the more correct predicate, it + ;; would breaks existing code :-( + ;; :predicate cl-functionp + ) (cl--define-built-in-type compiled-function (function) "Abstract type of functions that have been compiled.") (cl--define-built-in-type byte-code-function (compiled-function) |