From 99440adb9fc66f2713c4c4ba7b00ae278d9bc1eb Mon Sep 17 00:00:00 2001 From: Lutz Euler Date: Sat, 6 Oct 2012 20:36:10 +0200 Subject: [PATCH] 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. --- src/code/seq.lisp | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) 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 -- 1.7.10.4