src/c-types-impl.lisp: Fix mis-spelled function name.

diff --git a/src/c-types-impl.lisp b/src/c-types-impl.lisp
index 59225b2e9fec49a4060ed435251d2987598a8c54..122744f26997ce4413752b34eefa7d1d085df7ab 100644 (file)
--- a/src/c-types-impl.lisp
+++ b/src/c-types-impl.lisp
@@ -415,7 +415,7 @@ (c-type-alias [] array vec)
 
 ;; Function arguments.
 
 
 ;; Function arguments.
 

-(defun arguments-lists-equal-p (list-a list-b)
+(defun argument-lists-equal-p (list-a list-b)

   "Return whether LIST-A and LIST-B match.
 
    They must have the same number of arguments, and each argument must have
   "Return whether LIST-A and LIST-B match.
 
    They must have the same number of arguments, and each argument must have


@@ -463,8 +463,8 @@ (defun make-function-type (subtype arguments)
 (defmethod c-type-equal-p and
     ((type-a c-function-type) (type-b c-function-type))
   (and (c-type-equal-p (c-type-subtype type-a) (c-type-subtype type-b))
 (defmethod c-type-equal-p and
     ((type-a c-function-type) (type-b c-function-type))
   (and (c-type-equal-p (c-type-subtype type-a) (c-type-subtype type-b))

-       (arguments-lists-equal-p (c-function-arguments type-a)
-                               (c-function-arguments type-b))))
+       (argument-lists-equal-p (c-function-arguments type-a)
+                              (c-function-arguments type-b))))

 
 ;; C syntax output protocol.
 
 
 ;; C syntax output protocol.