From: Mark Wooding <mdw@distorted.org.uk>
Date: Sun, 10 Jan 2016 13:51:04 +0000 (+0000)
Subject: src/c-types-impl.lisp: Fix mis-spelled function name.
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/sod/commitdiff_plain/933bbda69cd7c809a843cd6075137dc0f50b9020?ds=inline

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 59225b2..122744f 100644
--- a/src/c-types-impl.lisp
+++ b/src/c-types-impl.lisp
@@ -415,7 +415,7 @@ (c-type-alias [] array vec)
 
 ;; 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
@@ -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))
-       (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.