src/optparse.lisp: Rearrange system-specific stuff.

[sod] / src / class-output.lisp

diff --git a/src/class-output.lisp b/src/class-output.lisp
index aea85d4bd3d821b470d58d4a21af772943965d67..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)
                                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))
                        (push (format nil "/*~A*/ ..." name) in-names)
                        (push "__VA_ARGS__" out-names)
                        (return))