X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/sod/blobdiff_plain/6b875a6dc26c156d139cb0fb70a09816e132b8bc..944bf9362ff51217b1617f85126d26e821b8aa91:/src/class-output.lisp

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 @@ (defmethod hook-output ((choff chain-offset) (reason (eql :h)) sequencer)
 ;;; 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