Changeset 14041

Timestamp:

08/02/12 15:36:56 (8 years ago)

Author:

ehuelsmann

Message:

Rename function to follow terminology used in the spec.

File:

• trunk/abcl/src/org/armedbear/lisp/clos.lisp (modified) (2 diffs)

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

@@ -1131 +1131 @@
   (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
@@ -1205 +1205 @@
         (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)))