[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]


    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

	(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 ()
   (display "Yes, Yes!")