LIST?

["Guillermo J. Rozas" <jinx@hpesogg.hp.com>]

    I will add LIST? to the R3.99RS and R4RS as an essential procedure provided
    the authors will join me in a rousing chorus of "YES, YES!".  Proposed
    wording:

	(LIST? obj)                                      essential procedure

	List? returns #t if obj is a list of finite length, and otherwise
	returns #f.

	    (list '(a b c))                      ==>  #t
	    (list '())                           ==>  #t
	    (list '(a . b))                      ==>  #f
	    (let ((x (list 'a)))
	      (set-cdr! x x)
	      (list? x))                         ==>  #f

(let loop ()
   (newline)
   (display "Yes, Yes!")
   (loop))