src/class-output.lisp (*instance-class*): Add a docstring.

[sod] / src / class-output.lisp

diff --git a/src/class-output.lisp b/src/class-output.lisp
index 1b69f69..aea85d4 100644 (file)
--- a/src/class-output.lisp
+++ b/src/class-output.lisp
@@ -392,7 +392,15 @@
 ;;; Implementation output.
 
 (export '*instance-class*)
-(defvar *instance-class*)
+(defvar *instance-class* nil
+  "The class currently being output.
+
+   This is bound during the `hook-output' traversal of a class layout for
+   `:c' output, since some of the objects traversed actually `belong' to
+   superclasses and there's no other way to find out what the reference class
+   actually is.
+
+   It may be bound at other times.")
 
 (defmethod hook-output progn ((class sod-class) (reason (eql :c)) sequencer)
   (sequence-output (stream sequencer)