branch: master commit 58977fd96d3050c52267eed5a0227e37abaa4b2a Author: Stefan Monnier <monn...@iro.umontreal.ca> Commit: Stefan Monnier <monn...@iro.umontreal.ca>
* 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))))