[armedbear-cvs] r14041 - trunk/abcl/src/org/armedbear/lisp

[ehuelsmann at common-lisp.net]

Author: ehuelsmann
Date: Thu Aug  2 08:36:56 2012
New Revision: 14041

Log:
Rename function to follow terminology used in the spec.

Modified:
   trunk/abcl/src/org/armedbear/lisp/clos.lisp

Modified: trunk/abcl/src/org/armedbear/lisp/clos.lisp
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/clos.lisp	Thu Aug  2 08:35:18 2012	(r14040)
+++ trunk/abcl/src/org/armedbear/lisp/clos.lisp	Thu Aug  2 08:36:56 2012	(r14041)
@@ -1130,7 +1130,7 @@
 (defun extract-optional-part (lambda-list)
   (extract-specified-part '&optional lambda-list))
 
-(defun parse-define-method-combination-arguments-lambda-list (lambda-list)
+(defun parse-define-method-combination-args-lambda-list (lambda-list)
   ;; Define-method-combination Arguments Lambda Lists
   ;; http://www.lispworks.com/reference/HyperSpec/Body/03_dj.htm
   (let ((required (extract-required-part lambda-list))
@@ -1204,7 +1204,7 @@
         (noptional (gensym))
         (rest-args (gensym)))
     (multiple-value-bind (whole required optional rest keys aux)
-        (parse-define-method-combination-arguments-lambda-list args-lambda-list)
+        (parse-define-method-combination-args-lambda-list args-lambda-list)
       `(let* ((,gf-lambda-list (slot-value ,generic-function-symbol 'sys::lambda-list))
               (,nrequired (length (extract-required-part ,gf-lambda-list)))
               (,noptional (length (extract-optional-part ,gf-lambda-list)))