(define list-position (lambda (obj lst) (let loop ((i 0) (lst lst)) (if (null? lst) #f (if (eqv? (car lst) obj) i (loop (+ i 1) (cdr lst)))))))