X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/sod/blobdiff_plain/4b856491b9fa0bbeda9772b7b834071dfe1c9f56..c32aa709ec47cee02e46fc9e74e58eb6a9b430a6:/src/class-output.lisp

diff --git a/src/class-output.lisp b/src/class-output.lisp
index aea85d4..f47bc7e 100644
--- 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))