- nil
- (position 1 (conset-vector conset-1)
- :start start :end end))))
- ((conset-difference)
- `(position 1 (conset-vector conset-1)
- :start (or (conset-min conset-1) 0)
- :end (conset-max conset-1)
- )))
- (conset-max conset-1)
- ,(ecase name
- ((conset-union)
- `(max (conset-max conset-1)
- (conset-max conset-2)))
- ((conset-intersection)
- `(let ((start (max (or (conset-min conset-1) 0)
- (or (conset-min conset-2) 0)))
- (end (let ((minimum-maximum
- (min (conset-max conset-1)
- (conset-max conset-2))))
- (if (plusp minimum-maximum)
- (1- minimum-maximum)
- 0))))