[elpa] master 58977fd 2/9: * stream/stream.el (stream--generalizer): Accept more arguments

[Stefan Monnier]

branch: master
commit 58977fd96d3050c52267eed5a0227e37abaa4b2a
Author: Stefan Monnier <address@hidden>
Commit: Stefan Monnier <address@hidden>

    * 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))))