From bfe4333a8b4574fbc612b18f81dc8a2afbe47a81 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Tue, 24 Nov 2015 16:07:48 -0500 Subject: [PATCH] * packages/stream/stream.el (streamp): Tiny optimization. --- packages/stream/stream.el | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/packages/stream/stream.el b/packages/stream/stream.el index edfb3c54b..b03aa8afb 100644 --- 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." - (and (consp stream) - (eq (car stream) stream--identifier))) + (eq (car-safe stream) stream--identifier)) (defun stream-empty () "Return an empty stream." -- 2.39.2