From f5e989f047dc8b9f1374c7a1a3fc68f8afc63f10 Mon Sep 17 00:00:00 2001
From: Douglas Katzman <dougk@google.com>
Date: Mon, 14 Aug 2017 11:35:45 -0400
Subject: [PATCH] Add fop for CONDITION layout and change fop-layout to
 :not-host

---
 src/code/fop.lisp | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/code/fop.lisp b/src/code/fop.lisp
index 668c71578..2f8c0cef5 100644
--- a/src/code/fop.lisp
+++ b/src/code/fop.lisp
@@ -182,7 +182,7 @@
             (incf ptr)))))
     res))
 
-(!define-fop 45 (fop-layout (name inherits depthoid length bitmap))
+(!define-fop 45 :not-host (fop-layout (name inherits depthoid length bitmap))
   (find-and-init-or-check-layout name length inherits depthoid bitmap))
 
 ;; Allocate a CLOS object. This is used when the compiler detects that
@@ -742,6 +742,7 @@
                           specs))))
   (frob (#x6c t)
         (#x6d structure-object)
+        (#x6e condition)
         (#x6f definition-source-location)
         (#x70 sb!c::debug-fun)
         (#x71 sb!c::compiled-debug-fun)
-- 
2.11.4.GIT