[armedbear-cvs] r14041 - trunk/abcl/src/org/armedbear/lisp
ehuelsmann at common-lisp.net
ehuelsmann at common-lisp.net
Thu Aug 2 15:36:56 UTC 2012
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)))
More information about the armedbear-cvs
mailing list