(while p
(and (car (car p))
(calendar-date-equal date (car (car p)))
- (setq result (append result (cdr (car p)))))
+ (setq result (cons (car (cdr (car p))) result)))
(setq p (cdr p)))
- result)
+ (reverse result))
(if separator separator "\\\\")))
(defun cal-tex-previous-month (date)