doc/syntax.tex, src/sod-module.5: Typeset `<qualifier>s' properly.

[sod] / src / class-output.lisp

diff --git a/src/class-output.lisp b/src/class-output.lisp
index 1b69f6966d2ed19ef02ad524e2a9237bec367fb3..f47bc7e251fa690b16c7ebcd05b25ee8a28649e9 100644 (file)
--- a/src/class-output.lisp
+++ b/src/class-output.lisp
@@ -168,7 +168,7 @@ (defmethod hook-output progn ((class sod-class) (reason (eql :h)) sequencer)
                                raw-name)))
                 (cond ((and (cdr args) (eq (cadr args) :ellipsis))
                        (setf varargsp t)
-                       (unless in-names (setf me "SOD_CAR(__VA_ARGS__)"))
+                       (unless in-names (setf me "SOD__CAR(__VA_ARGS__)"))
                        (push (format nil "/*~A*/ ..." name) in-names)
                        (push "__VA_ARGS__" out-names)
                        (return))
@@ -392,7 +392,15 @@ (defmethod hook-output progn ((choff chain-offset)
 ;;; 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)