t3x.org / sketchy / library / eqvp.html
SketchyLISP
Reference
  Copyright (C) 2007
Nils M Holm

eqv?

Conformance: R5RS Scheme

Purpose: Compare data. Return #t, if the data are equivalent atoms.
Eqv? is undefined for compound types (pairs, strings, etc).

Arguments:
A - datum
B - datum

Implementation:

(define (eqv? a b)
  (cond ((number? a)
      (and (number? b) (= a b)))
    ((char? a)
      (and (char? b) (char=? a b)))
    (else (eq? a b))))

Example:

(eqv? 123 123) 
=> #t

See also:
equal?, member, =.