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

[ehuelsmann at common-lisp.net]

Author: ehuelsmann
Date: Sat Sep  1 14:03:05 2012
New Revision: 14144

Log:
The OPCODES file doesn't exist anymore and has been merged
into jvm-instructions.lisp. However, shouldn't we just eliminate
this file instead??

Modified:
   trunk/abcl/src/org/armedbear/lisp/dump-class.lisp

Modified: trunk/abcl/src/org/armedbear/lisp/dump-class.lisp
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/dump-class.lisp	Sat Sep  1 14:00:49 2012	(r14143)
+++ trunk/abcl/src/org/armedbear/lisp/dump-class.lisp	Sat Sep  1 14:03:05 2012	(r14144)
@@ -29,7 +29,7 @@
 ;;; obligated to do so.  If you do not wish to do so, delete this
 ;;; exception statement from your version.
 
-(require '#:opcodes)
+(require '#:jvm-instructions)
 
 (in-package #:jvm)
 
@@ -55,7 +55,7 @@
       ((7 8)
        (list tag (read-u2 stream)))
       (1
-       (let* ((len (read-u2 stream))
+`       (let* ((len (read-u2 stream))
               (s (make-string len)))
          (dotimes (i len)
            (setf (char s i) (code-char (read-u1 stream))))