Changeset 12783

Timestamp:

07/04/10 09:25:15 (13 years ago)

Author:

ehuelsmann

Message:

More fixes from test-writing.

File:

• branches/generic-class-file/abcl/src/org/armedbear/lisp/jvm-class-file.lisp (modified) (2 diffs)

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

@@ -421 +421 @@
         (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))
@@ -517 +518 @@
 
 (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))