# HG changeset patch
# Parent ea3f3c7baaf62caf1ffd8dd4f28e1cf409d2bc36
Get a raw Java byte array from (SIMPLE-VECTOR (UNSIGNED-BYTE 8))

Use JAVA:MAKE-IMMEDIATE-OBJECT to return the underlying Java byte array.


diff -r ea3f3c7baaf6 -r 7ad5255ea45a src/org/armedbear/lisp/BasicVector_UnsignedByte8.java
--- a/src/org/armedbear/lisp/BasicVector_UnsignedByte8.java	Fri Jun 10 14:23:31 2011 +0200
+++ b/src/org/armedbear/lisp/BasicVector_UnsignedByte8.java	Fri Jun 10 17:12:45 2011 +0200
@@ -123,6 +123,12 @@
   }
 
   @Override
+  public Object javaInstance() 
+  { 
+    return elements;
+  }
+
+  @Override
   public LispObject elt(int index)
   {
     try