Changeset 14040


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

Rename argument name and type to improve self-documentation of the code
and make more clear in which situation it's used.

File:
1 edited

Legend:

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

    r14028 r14040  
    11681168       (if (eq ,not-exist ,value) ,init-form ,value))))
    11691169
    1170 (defun wrap-with-call-method-macro (gf args-var forms)
     1170(defun wrap-with-call-method-macro (gf args-var emf-form)
    11711171  `(macrolet
    11721172       ((call-method (method &optional next-method-list)
     
    11941194                      ,gf (generic-function-method-combination ,gf)
    11951195                      (process-next-method-list next-method-list))))))
    1196      ,@forms))
     1196     ,emf-form))
    11971197
    11981198(defmacro with-args-lambda-list (args-lambda-list
     
    12861286           ,methods
    12871287         ,(if (null args-lambda-list)
    1288               `(let ((result (progn ,@forms)))
     1288              `(let ((emf-form (progn ,@forms)))
    12891289                 `(lambda (,',args-var)
    12901290                    ,(wrap-with-call-method-macro ,generic-function-symbol
    1291                                                   ',args-var (list result))))
     1291                                                  ',args-var emf-form)))
    12921292              `(lambda (,args-var)
    1293                  (let* ((result
     1293                 (let* ((emf-form
    12941294                         (with-args-lambda-list ,args-lambda-list
    12951295                             ,generic-function-symbol ,args-var
     
    12991299                          ;; to prevent calling gensym on every EMF invocation
    13001300                          ,(wrap-with-call-method-macro ,generic-function-symbol
    1301                                                         ',args-var
    1302                                                         (list result)))))
     1301                                                        ',args-var emf-form))))
    13031302                   (funcall function ,args-var))))))))
    13041303
Note: See TracChangeset for help on using the changeset viewer.