The ordered? predicate determines whether or not its argument is an ordered set.
(define (ordered? obj)
(if (and
(list? obj)
(not (null? obj)))
(if (eq? 'ordered (car obj))
#t
#f)
(case obj
((number complex real rational integer
sstring symbol char) #t)
(else #f))))