X-Git-Url: https://git.distorted.org.uk/~mdw/sod/blobdiff_plain/bb172d5341a0c453bdf46ac4ef5dd68c8077c724..a9cffac12f45d917ae632f4037991d7ba66091fb:/src/class-output.lisp?ds=sidebyside

diff --git a/src/class-output.lisp b/src/class-output.lisp
index d914864..8880df5 100644
--- a/src/class-output.lisp
+++ b/src/class-output.lisp
@@ -138,7 +138,7 @@
 				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))