Case Example 2

(defun accept-bid-2 ()

(format t "How many dollars are you offering? ")

(let* ((offer (read))

(counter-offer (+ offer 5))

(field-width

(1+ (length (format nil "~d" counter-offer)))))

(if

(y-or-n-p "Would you consider raising that to ~v,'$d ?"

field-width

counter-offer)

counter-offer

offer)))

Previous slide

Next slide

Back to first slide

View graphic version