From 04555cdf290d949ca85cdf4118d29a751f284308 Mon Sep 17 00:00:00 2001
From: Douglas Katzman <dougk@google.com>
Date: Sat, 19 Sep 2015 17:26:42 -0400
Subject: [PATCH] Don't reinvent SINGLETON-P

---
 src/compiler/seqtran.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/compiler/seqtran.lisp b/src/compiler/seqtran.lisp
index fcfc8736a..514b31f96 100644
--- a/src/compiler/seqtran.lisp
+++ b/src/compiler/seqtran.lisp
@@ -158,7 +158,7 @@
                                       result-type)))
                    (if (array-type-p result-ctype)
                        (let ((dims (array-type-dimensions result-ctype)))
-                         (unless (and (listp dims) (= (length dims) 1))
+                         (unless (singleton-p dims)
                            (give-up-ir1-transform "invalid sequence type"))
                          (let ((dim (first dims)))
                            (if (eq dim '*)
-- 
2.11.4.GIT