From 944bf9362ff51217b1617f85126d26e821b8aa91 Mon Sep 17 00:00:00 2001
From: Mark Wooding <mdw@distorted.org.uk>
Date: Sun, 6 Oct 2019 22:52:37 +0100
Subject: [PATCH] src/class-output.lisp: Leave `*instance-class*' unbound at
 top-level.

---
 src/class-output.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/class-output.lisp b/src/class-output.lisp
index ef82355..45a4909 100644
--- a/src/class-output.lisp
+++ b/src/class-output.lisp
@@ -542,7 +542,7 @@
 ;;; Implementation output.
 
 (export '*instance-class*)
-(defvar *instance-class* nil
+(defvar-unbound *instance-class*
   "The class currently being output.
 
    This is bound during the `hook-output' traversal of a class layout for
-- 
2.11.0