782 |
|
|
783 |
(defun maybe-or-push (x res) |
(defun maybe-or-push (x res) |
784 |
(cond ((not res) (list x)) |
(cond ((not res) (list x)) |
785 |
((and (equal (elout (caar res) (car x) '<) (caar res)) |
((elgt x (car res)) (cons x res)) |
786 |
(equal (elout (cdr x) (cdar res) '>) (cdar res))) |
((cons (cons (elout (caar res) (car x) '<) (elout (cdr x) (cdar res) '>)) (cdr res))))) |
|
res) |
|
|
((cons x res)))) |
|
787 |
|
|
788 |
(defun range-not (x &optional res (last '* lastp)) |
(defun range-not (x &optional res (last '* lastp)) |
789 |
(cond ((not x) (nreverse (if (and lastp (eq last '*)) res (cons (cons (elcomp last) '*) res)))) |
(cond ((not x) (nreverse (if (and lastp (eq last '*)) res (cons (cons (elcomp last) '*) res)))) |