* packages/stream/stream.el (streamp): Tiny optimization.

diff --git a/packages/stream/stream.el b/packages/stream/stream.el
index edfb3c54be3f7a1b1dd48d1e33431f70fd1aab8a..b03aa8afb24adc6cf398d8772d01ab5e9630d33d 100644 (file)
--- a/packages/stream/stream.el
+++ b/packages/stream/stream.el
@@ -137,8 +137,7 @@ range is infinite."
 
 (defun streamp (stream)
   "Return non-nil if STREAM is a stream, nil otherwise."
 
 (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."
 
 (defun stream-empty ()
   "Return an empty stream."