Author: ehuelsmann
Date: Thu Sep 8 03:21:24 2011
New Revision: 13584
Log:
Remove unused variable in METHOD-COMBINATION-TYPE-LAMBDA.
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 Sep 8 03:19:47 2011 (r13583)
+++ trunk/abcl/src/org/armedbear/lisp/clos.lisp Thu Sep 8 03:21:24 2011 (r13584)
@@ -1108,14 +1108,13 @@
(let ((methods (gensym)))
`(lambda (,generic-function-symbol ,methods , at lambda-list)
, at declarations
- (let ((*message-prefix* ,(format nil "METHOD COMBINATION TYPE ~S: " name)))
- (with-method-groups ,method-group-specs
+ (with-method-groups ,method-group-specs
,methods
- ,@(if (null args-lambda-list)
- forms
- `((with-args-lambda-list ,args-lambda-list
+ ,@(if (null args-lambda-list)
+ forms
+ `((with-args-lambda-list ,args-lambda-list
,generic-function-symbol
- , at forms))))))))
+ , at forms)))))))
(defun declarationp (expr)
(and (consp expr) (eq (car expr) 'DECLARE)))