Changeset 13584


Ignore:
Timestamp:
09/08/11 10:21:24 (10 years ago)
Author:
ehuelsmann
Message:

Remove unused variable in METHOD-COMBINATION-TYPE-LAMBDA.

File:
1 edited

Legend:

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

    r13583 r13584  
    11091109    `(lambda (,generic-function-symbol ,methods ,@lambda-list)
    11101110       ,@declarations
    1111        (let ((*message-prefix* ,(format nil "METHOD COMBINATION TYPE ~S: " name)))
    1112          (with-method-groups ,method-group-specs
     1111       (with-method-groups ,method-group-specs
    11131112           ,methods
    1114            ,@(if (null args-lambda-list)
    1115                  forms
    1116                  `((with-args-lambda-list ,args-lambda-list
     1113         ,@(if (null args-lambda-list)
     1114               forms
     1115               `((with-args-lambda-list ,args-lambda-list
    11171116                     ,generic-function-symbol
    1118                      ,@forms))))))))
     1117                   ,@forms)))))))
    11191118
    11201119(defun declarationp (expr)
Note: See TracChangeset for help on using the changeset viewer.