From aacc827f8e80de9ef21fa3f04fc2ec8f32d61358 Mon Sep 17 00:00:00 2001
From: Douglas Katzman <dougk@google.com>
Date: Tue, 20 Sep 2016 21:34:28 -0400
Subject: [PATCH] Kill effectless expression

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

diff --git a/src/compiler/seqtran.lisp b/src/compiler/seqtran.lisp
index f04570987..8f6986746 100644
--- a/src/compiler/seqtran.lisp
+++ b/src/compiler/seqtran.lisp
@@ -851,7 +851,6 @@
                                  (constant-arg null)))
   (cond ((and (constant-lvar-p string1)
               (equal (lvar-value string1) ""))
-         (lvar-type string2)
          `(and (plusp (length string2))
                0))
         ((and (constant-lvar-p string2)
-- 
2.11.4.GIT