[elpa] externals/stream 8af657a 12/36: * packages/stream/stream.el (streamp): Tiny optimization.

[Stefan Monnier]

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

    * packages/stream/stream.el (streamp): Tiny optimization.
---
 stream.el | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/stream.el b/stream.el
index edfb3c5..b03aa8a 100644
--- a/stream.el
+++ b/stream.el
@@ -137,8 +137,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 an empty stream."