[armedbear-cvs] r13587 - trunk/abcl/src/org/armedbear/lisp

[ehuelsmann at common-lisp.net]

Author: ehuelsmann
Date: Thu Sep  8 11:45:19 2011
New Revision: 13587

Log:
Fix typo copy/pasted with code from STD-COMPUTE-EFFECTIVE-METHOD-FUNCTION.

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 11:37:23 2011	(r13586)
+++ trunk/abcl/src/org/armedbear/lisp/clos.lisp	Thu Sep  8 11:45:19 2011	(r13587)
@@ -1116,11 +1116,11 @@
            ,methods
          ,(if (null args-lambda-list)
               `(lambda (,args-var)
-                 (let ((gf-args-var ,args-var))
+                 (let ((,+gf-args-var+ ,args-var))
                    ,(wrap-with-call-method-macro generic-function-symbol
                                                  args-var forms)))
               `(lambda (,args-var)
-                 (let ((gf-args-var ,args-var))
+                 (let ((,+gf-args-var+ ,args-var))
                    ,(wrap-with-call-method-macro generic-function-symbol
                                                  args-var
                        `(with-args-lambda-list ,args-lambda-list