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

[Erik Huelsmann]

Author: ehuelsmann
Date: Sun Oct  4 10:01:58 2009
New Revision: 12172

Log:
Fix dispatch() generic case. Fixes compiled MULTIPLE-VALUE-CALL
with more than 8 arguments.

Pointed out by piso.


Modified:
   trunk/abcl/src/org/armedbear/lisp/LispObject.java

Modified: trunk/abcl/src/org/armedbear/lisp/LispObject.java
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/LispObject.java	(original)
+++ trunk/abcl/src/org/armedbear/lisp/LispObject.java	Sun Oct  4 10:01:58 2009
@@ -761,7 +761,7 @@
         return execute(args[0], args[1], args[2], args[3], args[4],
                        args[5], args[6], args[7]);
       default:
-        return type_error(this, Symbol.FUNCTION);
+        return execute(args);
       }
   }