Function: comp-cstr->

comp-cstr-> is a byte-compiled function defined in comp-cstr.el.gz.

Signature

(comp-cstr-> DST OLD-DST SRC)

Documentation

Constraint DST being > than SRC.

SRC can be either a comp-cstr or an integer.

Source Code

;; Defined in /usr/src/emacs/lisp/emacs-lisp/comp-cstr.el.gz
(defun comp-cstr-> (dst old-dst src)
  "Constraint DST being > than SRC.
SRC can be either a comp-cstr or an integer."
  (with-comp-cstr-accessors
    (let ((ext-range
           (if (integerp src)
               `((,(1+ src) . +))
             (when-let* ((range (range src))
                         (low (comp-cstr-smallest-in-range range))
                         (okay (integerp low)))
               `((,(1+ low) . +))))))
      (comp-cstr-set-cmp-range dst old-dst ext-range))))