return cont’d

(defun try3 (item)

(do* ((how-many (length *objects*))

(index 0 (1+ index))

(object (nth index *objects*)

(nth index *objects*))

(match-found nil))

((or (setf match-found (matchp item object))

(>= index how-many))

match-found)))

Previous slide

Next slide

Back to first slide

View graphic version