From 4b856491b9fa0bbeda9772b7b834071dfe1c9f56 Mon Sep 17 00:00:00 2001 From: Mark Wooding Date: Sun, 10 Jan 2016 03:00:53 +0000 Subject: [PATCH] src/class-output.lisp (*instance-class*): Add a docstring. --- src/class-output.lisp | 10 +++++++++- 1 file changed, 9 insertions(+), 1 deletion(-) diff --git a/src/class-output.lisp b/src/class-output.lisp index 1b69f69..aea85d4 100644 --- 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) -- 2.11.0