| Page 174 | Table of Contents | Index | Page 176 |
| 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 border-test (stream)
(fresh-line stream)
(surrounding-output-with-border (stream :shape :rectangle)
(format stream "This is some output with a rectangular border"))
(terpri stream) (terpri stream)
(surrounding-output-with-border (stream :shape :drop-shadow)
(format stream "This has a drop-shadow under it"))
(terpri stream) (terpri stream)
(surrounding-output-with-border (stream :shape :underline)
(format stream "And this output is underlined")))
| Page 174 | Table of Contents | Index | Page 176 |
| 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 | |||