Changeset 14041


Ignore:
Timestamp:
08/02/12 15:36:56 (9 years ago)
Author:
ehuelsmann
Message:

Rename function to follow terminology used in the spec.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/abcl/src/org/armedbear/lisp/clos.lisp

    r14040 r14041  
    11311131  (extract-specified-part '&optional lambda-list))
    11321132
    1133 (defun parse-define-method-combination-arguments-lambda-list (lambda-list)
     1133(defun parse-define-method-combination-args-lambda-list (lambda-list)
    11341134  ;; Define-method-combination Arguments Lambda Lists
    11351135  ;; http://www.lispworks.com/reference/HyperSpec/Body/03_dj.htm
     
    12051205        (rest-args (gensym)))
    12061206    (multiple-value-bind (whole required optional rest keys aux)
    1207         (parse-define-method-combination-arguments-lambda-list args-lambda-list)
     1207        (parse-define-method-combination-args-lambda-list args-lambda-list)
    12081208      `(let* ((,gf-lambda-list (slot-value ,generic-function-symbol 'sys::lambda-list))
    12091209              (,nrequired (length (extract-required-part ,gf-lambda-list)))
Note: See TracChangeset for help on using the changeset viewer.