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

* lisp/emacs-lisp/comp-cstr.el (comp-cstr): Better `comp-value-to-cstr'.

Browse source
This commit is contained in:
Andrea Corallo 2020-12-29 14:31:16 +01:00
parent c4efb49a27
commit a3b816ff8c
1 changed files with 7 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -61,7 +61,11 @@
'((- . +))))))
(:constructor comp-value-to-cstr
(value &aux
(valset (list value))
(integer (integerp value))
(valset (unless integer
(list value)))
(range (when integer
`((,value . ,value))))
(typeset ())))
(:constructor comp-irange-to-cstr
(irange &aux
@ -170,9 +174,8 @@ Return them as multiple value."
collect cstr into positives
finally return (cl-values positives negatives)))
(defvar comp-cstr-one (make-comp-cstr :typeset ()
:range '((1 . 1)))
"Represent the integer immediate one (1).")
(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."