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 |