[elpa] externals/stream f8e6639 20/36: * stream/stream.el (stream--generalizer): Accept more arguments

[Stefan Monnier]

branch: externals/stream
commit f8e6639dde3871442cf9f7b214800a19332c5ee8
Author: Stefan Monnier <monnier@iro.umontreal.ca>
Commit: Stefan Monnier <monnier@iro.umontreal.ca>

    * stream/stream.el (stream--generalizer): Accept more arguments
    
    (streamp): Use car-safe.
---
 stream.el | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

diff --git a/stream.el b/stream.el
index 853251e..8c156f1 100644
--- a/stream.el
+++ b/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))))