lib/sod.h, src/class-output.lisp: Rename `SOD__CAR' to `SOD_CAR'.

[sod] / src / class-output.lisp

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