| Page 180 | Table of Contents | Index | Page 182 |
| Chapters | |||
|
1,
2,
3,
4,
5,
6,
7,
8,
9,
10,
11,
12,
13,
14,
15,
16,
17,
18,
19,
20,
21,
22,
23,
24,
25,
26,
27,
28,
29,
30 A, B, C, D, E | |||
(defun test (stream)
(let* ((list (list 1 2 3 4 5))
(record
(updating-output (stream)
(do* ((elements list (cdr elements))
(count 0 (1+ count)))
((null elements))
(let ((element (first elements)))
(updating-output (stream :unique-id count
:cache-value element)
(format stream "Element ~D" element)
(terpri stream)))))))
(sleep 10)
(setf (nth 2 list) 17)
(redisplay record stream)))
When this function is run on a window, the initial display will look like:Element 1 Element 2 Element 3 Element 4 Element 5After the sleep has terminated, the display will look like:
| Page 180 | Table of Contents | Index | Page 182 |
| Chapters | |||
|
1,
2,
3,
4,
5,
6,
7,
8,
9,
10,
11,
12,
13,
14,
15,
16,
17,
18,
19,
20,
21,
22,
23,
24,
25,
26,
27,
28,
29,
30 A, B, C, D, E | |||