50654 jmbr (defun span (predicate list) "Splits LIST into two lists (returned as VALUES) such that elements in the first list are taken from the head of LIST while PREDICATE is satisfied, and elements in the second list are the remaining elements from LIST once PREDICATE is not satisfied." (do* ((xs list (rest xs)) (x (first xs) (first xs)) (ys (cons x nil) (cons x ys))) ((or (null xs) (not (funcall predicate x))) (values (nreverse (rest ys)) xs)))) 3403776348 #lispcafe 2 jmbr (defun span (predicate list) "Splits LIST into two lists (returned as VALUES) such that elements in the first list are taken from the head of LIST while PREDICATE is satisfied, and elements in the second list are the remaining elements from LIST once PREDICATE is not satisfied." (do ((list list (rest list)) (xs nil (cons (first list) xs))) ((or (null list) (not (funcall predicate (first list)))) (values (nreverse xs) list)))) 3403805853 #lispcafe 1 jmbr See also http://paste.lisp.org/display/48648 3403776706 #lispcafe