branch: master
commit 58977fd96d3050c52267eed5a0227e37abaa4b2a
Author: Stefan Monnier <[email protected]>
Commit: Stefan Monnier <[email protected]>
* stream/stream.el (stream--generalizer): Accept more arguments
(streamp): Use car-safe.
---
packages/stream/stream.el | 7 +++----
1 file changed, 3 insertions(+), 4 deletions(-)
diff --git a/packages/stream/stream.el b/packages/stream/stream.el
index 853251e..8c156f1 100644
--- a/packages/stream/stream.el
+++ b/packages/stream/stream.el
@@ -148,8 +148,7 @@ range is infinite."
(defun streamp (stream)
"Return non-nil if STREAM is a stream, nil otherwise."
- (and (consp stream)
- (eq (car stream) stream--identifier)))
+ (eq (car-safe stream) stream--identifier))
(defun stream-empty ()
"Return a new empty stream."
@@ -197,10 +196,10 @@ elements in the STREAMS in order."
(cl-generic-define-generalizer stream--generalizer
11
- (lambda (name)
+ (lambda (name &rest _)
`(when (streamp ,name)
'stream))
- (lambda (tag)
+ (lambda (tag &rest _)
(when (eq tag 'stream)
'(stream))))
