lib/keyword.c, src/method-impl.lisp: Use `kw.valist' consistently.

[sod] / src / method-impl.lisp

diff --git a/src/method-impl.lisp b/src/method-impl.lisp
index 6c751a4dff360cfa53d6b3f5d53e06bd369a2403..d0c7a5492c322ae9dfa8d40eddff34c882a25de6 100644 (file)
--- a/src/method-impl.lisp
+++ b/src/method-impl.lisp
@@ -555,7 +555,7 @@ (defun make-keyword-parser-function (codegen method tag set keywords)
       (codegen-push codegen)
       (call "aap" "va_arg" "*ap" (c-type (* va-list)))
       (call :void name "kw" "aap" *null-pointer* 0)
       (codegen-push codegen)
       (call "aap" "va_arg" "*ap" (c-type (* va-list)))
       (call :void name "kw" "aap" *null-pointer* 0)

-      (setf va-act (namecheck "k" "kw.va_list"
+      (setf va-act (namecheck "k" "kw.valist"

                              (codegen-pop-block codegen) va-act))
 
       ;; Finish up the varargs loop.
                              (codegen-pop-block codegen) va-act))
 
       ;; Finish up the varargs loop.


@@ -581,7 +581,7 @@ (defun make-keyword-parser-function (codegen method tag set keywords)
       (codegen-push codegen)
       (convert "aap" (c-type (* va-list)))
       (call :void name "kw" "aap" *null-pointer* 0)
       (codegen-push codegen)
       (convert "aap" (c-type (* va-list)))
       (call :void name "kw" "aap" *null-pointer* 0)

-      (setf tab-act (namecheck "v->kw" "kw.va_list"
+      (setf tab-act (namecheck "v->kw" "kw.valist"

                               (codegen-pop-block codegen) tab-act))
 
       ;; Finish off the table loop.
                               (codegen-pop-block codegen) tab-act))
 
       ;; Finish off the table loop.