(defun is-sorted (lst)
	(cond
	((null lst ) T)
	((<= car lst (lst cdr lst)))
	((is-sorted(cdr lst) nil)))
)

(print (is-sorted '(1 2 3 4 5 6 7 )))