(DEFUN TIME-LESSP (TIME1 TIME2) (BIT-TEST -40000000 (%24-BIT-DIFFERENCE TIME1 TIME2))) Is this code buggy? Should it be (bit-test 20000000 ...)? This seems towork alot better, dividing the 23 bit region in half, so that large differences don't get confused as being greater.