From 7b33f229d4c5a6c2dbf01380a6cc9d27abc0fc63 Mon Sep 17 00:00:00 2001
From: Douglas Katzman <dougk@google.com>
Date: Wed, 9 Sep 2015 23:15:09 -0400
Subject: [PATCH] Delete unreachable code in CHECK-WRAPPER-VALIDITY.

The possibilities of NIL,T,:UNINITIALIZED, and CONS are all covered.
---
 src/pcl/wrapper.lisp | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

diff --git a/src/pcl/wrapper.lisp b/src/pcl/wrapper.lisp
index a4d943c45..6270029db 100644
--- a/src/pcl/wrapper.lisp
+++ b/src/pcl/wrapper.lisp
@@ -225,9 +225,7 @@
                         (t
                          (bug "unrecognized instance type")))))
                (:obsolete
-                (%obsolete-instance-trap owrapper (cadr state) instance))))
-            (t
-             (bug "Invalid LAYOUT-INVALID: ~S" state))))))
+                (%obsolete-instance-trap owrapper (cadr state) instance))))))))
 
 (declaim (inline check-obsolete-instance))
 (defun check-obsolete-instance (instance)
-- 
2.11.4.GIT