| Page 7 | Table of Contents | Index | Page 9 |
| 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 | |||
(defclass presentation () ()) (defun presentationp (object) (typep object 'presentation))Note that in some implementations, it may be more efficient not to use typep, and instead use
(defgeneric extended-input-stream-p (object))
(defmethod extended-input-stream-p ((object t))
nil)
(defmethod extended-input-stream-p ((object basic-extended-input-protocol))
t)
(defmethod extended-input-stream-p
((encapsulating-stream standard-encapsulating-stream))
(with-slots (stream) encapsulating-stream
(extended-input-stream-p stream)))
Whenever a class inherits from a protocol class or returns true from the protocol predicate, the| Page 7 | Table of Contents | Index | Page 9 |
| 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 | |||