[armedbear-cvs] r12891 - branches/generic-class-file/abcl/src/org/armedbear/lisp

[Erik Huelsmann]

Author: ehuelsmann
Date: Thu Aug 12 17:43:08 2010
New Revision: 12891

Log:
Remove debugging artifact.

Modified:
   branches/generic-class-file/abcl/src/org/armedbear/lisp/compiler-pass2.lisp

Modified: branches/generic-class-file/abcl/src/org/armedbear/lisp/compiler-pass2.lisp
==============================================================================
--- branches/generic-class-file/abcl/src/org/armedbear/lisp/compiler-pass2.lisp	(original)
+++ branches/generic-class-file/abcl/src/org/armedbear/lisp/compiler-pass2.lisp	Thu Aug 12 17:43:08 2010
@@ -842,7 +842,7 @@
          more-keys-p
          (*code* ())
          (*current-code-attribute* code))
-    (setf (code-max-locals code) 3)
+    (setf (code-max-locals code) 1)
     (unless (eq super +lisp-primitive+)
       (multiple-value-bind
             (req opt key key-p rest