From: Lutz Euler <lutz.euler@freenet.de>
Date: Sat, 6 Oct 2012 18:36:10 +0000 (+0200)
Subject: Kill a build warning about unreachable code in MAKE-SEQUENCE.
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=99440adb9fc66f2713c4c4ba7b00ae278d9bc1eb;p=sbcl.git

Kill a build warning about unreachable code in MAKE-SEQUENCE.

Drop the T clause in a TYPECASE testing for ATOM, CONS and T as ATOM is
specified to be (NOT CONS) which the compiler well knows.

Break some overly long lines.
---

diff --git a/src/code/seq.lisp b/src/code/seq.lisp
index fd7e630..ea6fda7 100644
--- a/src/code/seq.lisp
+++ b/src/code/seq.lisp
@@ -301,16 +301,17 @@
           (typecase expanded-type
             (atom (cond
                     ((eq expanded-type 'string) '(vector character))
-                    ((eq expanded-type 'simple-string) '(simple-array character (*)))
+                    ((eq expanded-type 'simple-string)
+                     '(simple-array character (*)))
                     (t type)))
             (cons (cond
-                    ((eq (car expanded-type) 'string) `(vector character ,@(cdr expanded-type)))
+                    ((eq (car expanded-type) 'string)
+                     `(vector character ,@(cdr expanded-type)))
                     ((eq (car expanded-type) 'simple-string)
                      `(simple-array character ,(if (cdr expanded-type)
                                                    (cdr expanded-type)
                                                    '(*))))
-                    (t type)))
-            (t type)))
+                    (t type)))))
          (type (specifier-type adjusted-type)))
     (cond ((csubtypep type (specifier-type 'list))
            (cond