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

[Erik Huelsmann]

Author: ehuelsmann
Date: Sun Jul  4 05:25:15 2010
New Revision: 12783

Log:
More fixes from test-writing.

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

Modified: branches/generic-class-file/abcl/src/org/armedbear/lisp/jvm-class-file.lisp
==============================================================================
--- branches/generic-class-file/abcl/src/org/armedbear/lisp/jvm-class-file.lisp	(original)
+++ branches/generic-class-file/abcl/src/org/armedbear/lisp/jvm-class-file.lisp	Sun Jul  4 05:25:15 2010
@@ -420,7 +420,8 @@
   (setf (class-file-access-flags class)
         (map-flags (class-file-access-flags class)))
   (setf (class-file-class class)
-        (pool-add-class (class-name-internal (class-file-class class))))
+        (pool-add-class (class-file-constants class)
+                        (class-file-class class)))
   ;;  (finalize-interfaces)
   (dolist (field (class-file-fields class))
     (finalize-field field class))
@@ -516,11 +517,11 @@
     (:strict       #x0800)))
 
 (defun map-flags (flags)
-  (reduce #'(lambda (x y)
+  (reduce #'(lambda (y x)
               (logior (or (when (member (car x) flags)
                             (second x))
-                          0) y)
-              (logior (or )))
+                          0) y))
+          +access-flags-map+
           :initial-value 0))
 
 (defstruct (field (:constructor %make-field))