On Wed, Dec 28, 2016 at 10:26:22AM +0100, Alexander Burger wrote:
>    (let Today (date)
>       (collect 'sDate '+Proj (list Today Today) (list NIL T)) )

The 'list' is of course not necessary:

   (collect 'sDate '+Proj (list Today Today) '(NIL T))

But probably it is better anyway to scan both index parts in the same direction

Also, if I remember correctly, 'T' cannot be used for "infinite" here, the value
for +UB trees must be a number or NIL (same as 0). So you can just use a number
greater than any possible date, like (date 999999) -> (2738 1 25)

   (collect 'sDate '+Proj (list NIL Today) (list Today 99999))

Sorry, nothing tested ;)

- Alex
UNSUBSCRIBE: mailto:picolisp@software-lab.de?subject=Unsubscribe

Reply via email to