(define numbers1
  '(((Fife Barney) barney@rfd.gov 402-555-1234 (3 12 2010))
    ((Jones Davey) dj12@locker.com 402-555-5555 (5 19 2009))
    ((Smith Jane) janes@yahoo.com 319-555-9919 (12 21 2011)))
  )

(define numbers2
  '(((Adams Sam) sam@beer.com 611-555-7654 (3 12 2010))
    ((Jones Davey) dj12@locker.com 402-555-3434 (5 25 2009))
    ((Smith John) blah@blah.edu 319-555-9919 (12 21 2011)))
  )

(define (merge list1 list2)
  (cond ((null? list1) list2)
        ((null? list2) list1)
        ((name<? (caar list1) (caar list2))
         (cons (car list1) (merge (cdr list1) list2)))
        ((name<? (caar list2) (caar list1))
         (cons (car list2) (merge list1 (cdr list2))))
        ((date<? (car (cdddar list1)) (car (cdddar list2))) 
         (cons (car list2) (merge (cdr list1) (cdr list2))))
        (else (cons (car list1) (merge (cdr list1) (cdr list2))))))

(define (name<? name1 name2)
  (or (string<? (symbol->string (car name1)) (symbol->string (car name2)))
      (and (string=? (symbol->string (car name1)) (symbol->string (car name2)))
           (string<? (symbol->string (cadr name1)) (symbol->string (cadr name2))))))

(define (date<? date1 date2)
  (or (< (caddr date1) (caddr date2))
      (and (= (caddr date1) (caddr date2)) (< (car date1) (car date2)))
      (and (= (caddr date1) (caddr date2)) (= (car date1) (car date2)) (< (cadr date1) (cadr date2)))))