procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix `functionp' contraining (bug#45576)

Browse source 
* lisp/emacs-lisp/comp.el (comp-known-predicates)
	(comp-known-predicates-h): New constants.
	(comp-known-predicate-p, comp-pred-to-cstr): New functions.
	* lisp/emacs-lisp/cl-macs.el (cl-deftype-satisfies): Don't define.
	* test/src/comp-tests.el (comp-test-45576): New testcase.
	* test/src/comp-test-funcs.el (comp-test-45576-f): New function.
This commit is contained in:
Andrea Corallo 2021-01-02 12:18:39 +01:00
parent 03be03d366
commit 43d0e8483e
5 changed files with 60 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/emacs-lisp/comp-cstr.el
View file

@ -2,7 +2,7 @@
;; Author: Andrea Corallo <akrl@sdf.com>
;; Copyright (C) 2020 Free Software Foundation, Inc.
;; Copyright (C) 2020-2021 Free Software Foundation, Inc.
;; Keywords: lisp
;; Package: emacs
@ -179,10 +179,6 @@ Return them as multiple value."
(defvar comp-cstr-one (comp-value-to-cstr 1)
"Represent the integer immediate one.")
(defun comp-pred-to-cstr (predicate)
"Given PREDICATE return the correspondig constraint."
(comp-type-to-cstr (get predicate 'cl-satisfies-deftype)))
;;; Value handling.