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

[ehuelsmann at common-lisp.net]

Author: ehuelsmann
Date: Thu Sep  8 22:54:38 2011
New Revision: 13589

Log:
Follow-up to yesterday's work: unbreak D-M-C, the non-:ARGUMENTS case.

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 14:43:31 2011	(r13588)
+++ trunk/abcl/src/org/armedbear/lisp/clos.lisp	Thu Sep  8 22:54:38 2011	(r13589)
@@ -1115,9 +1115,10 @@
        (with-method-groups ,method-group-specs
            ,methods
          ,(if (null args-lambda-list)
-              `(lambda (,args-var)
-                 ,(wrap-with-call-method-macro generic-function-symbol
-                                               args-var forms))
+              `(let ((result (progn , at forms)))
+                 `(lambda (,',args-var)
+                    ,(wrap-with-call-method-macro ,generic-function-symbol
+                                                  ',args-var (list result))))
               `(lambda (,args-var)
                  (let* ((result
                          (with-args-lambda-list ,args-lambda-list