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 /test | |
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 'test')
-rw-r--r-- | test/src/data-tests.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/test/src/data-tests.el b/test/src/data-tests.el index 753d74c02ec..a1959f62fd3 100644 --- a/test/src/data-tests.el +++ b/test/src/data-tests.el @@ -870,7 +870,9 @@ comparing the subr with a much slower Lisp implementation." native-comp-unit interpreted-function tree-sitter-compiled-query tree-sitter-node tree-sitter-parser)))) - (should-not (cl-typep val subtype)))))))) + (cond + ((eq subtype 'function) (cl-functionp val)) + (t (should-not (cl-typep val subtype)))))))))) ;;; data-tests.el ends here |