Sean

(define compatible-preferences?
  (lambda (driver rider)
  (if (and (eq? (get-role driver) 'driver) (get-role rider) 'rider)
      (if (eq? (get-origin driver) (get-origin rider))
          (if (eq? (get-time driver) (get-time driver))
             (if (eq? (get-smoking rider) 'any or (eq? (get-smoking driver) (get-smoking rider)))
                 (if(eq>= (get-capacity driver) (get-capacity rider))
                 #t
                 #f
             #f
          #f
       #f
     #f
  )))))))