[armedbear-devel] adjust-array bug

[Helmut Eller]

Evaluating this form 

(adjust-array (make-array 2 :element-type '(unsigned-byte 8)) 4)

prints a longish stacktrace that doesn't seem right:


Armed Bear Common Lisp 1.1.0-dev-svn-13692M
Java 1.6.0_18 Sun Microsystems Inc.
OpenJDK Client VM
Low-level initialization completed in 0.771 seconds.
Startup completed in 2.209 seconds.
Type ":help" for a list of available commands.
CL-USER(1): (adjust-array (make-array 2 :element-type '(unsigned-byte 8)) 4)
java.lang.ArrayStoreException
 at java.lang.System.arraycopy(Native Method)
 at org.armedbear.lisp.BasicVector_UnsignedByte8.adjustArray(BasicVector_UnsignedByte8.java:291)
 at org.armedbear.lisp.BasicVector_UnsignedByte8.adjustArray(BasicVector_UnsignedByte8.java:40)
 at org.armedbear.lisp.adjust_array.execute(adjust_array.java:95)
 at org.armedbear.lisp.Symbol.execute(Symbol.java:896)
 at org.armedbear.lisp.Autoload.execute(Autoload.java:258)
 at org.armedbear.lisp.Symbol.execute(Symbol.java:896)
 at org.armedbear.lisp.LispThread.execute(LispThread.java:798)
 at org.armedbear.lisp.arrays_2.execute(arrays.lisp:46)
 at org.armedbear.lisp.CompiledClosure.execute(CompiledClosure.java:112)
 at org.armedbear.lisp.LispThread.execute(LispThread.java:666)
 at org.armedbear.lisp.Lisp.evalCall(Lisp.java:548)
 at org.armedbear.lisp.Lisp.eval(Lisp.java:506)
 at org.armedbear.lisp.Primitives$pf__eval.execute(Primitives.java:345)
 at org.armedbear.lisp.LispThread.execute(LispThread.java:649)
 at org.armedbear.lisp.Lisp.evalCall(Lisp.java:541)
 at org.armedbear.lisp.Lisp.eval(Lisp.java:506)
 at org.armedbear.lisp.Lisp.progn(Lisp.java:675)
 at org.armedbear.lisp.Primitives$sf_block.execute(Primitives.java:3733)
 at org.armedbear.lisp.Lisp.eval(Lisp.java:496)
 at org.armedbear.lisp.Lisp.progn(Lisp.java:675)
 at org.armedbear.lisp.Closure.bindParametersAndExecute(Closure.java:451)
 at org.armedbear.lisp.Closure.execute(Closure.java:484)
 at org.armedbear.lisp.LispThread.execute(LispThread.java:649)
 at org.armedbear.lisp.Lisp$1.execute(Lisp.java:277)
 at org.armedbear.lisp.Symbol.execute(Symbol.java:785)
 at org.armedbear.lisp.LispThread.execute(LispThread.java:649)
 at org.armedbear.lisp.top_level_50.execute(top-level.lisp:415)
 at org.armedbear.lisp.CompiledClosure.execute(CompiledClosure.java:92)
 at org.armedbear.lisp.Symbol.execute(Symbol.java:775)
 at org.armedbear.lisp.LispThread.execute(LispThread.java:633)
 at org.armedbear.lisp.top_level_51.execute(top-level.lisp:423)
 at org.armedbear.lisp.LispThread.execute(LispThread.java:633)
 at org.armedbear.lisp.Interpreter.run(Interpreter.java:360)
 at org.armedbear.lisp.Main$1.run(Main.java:48)
 at java.lang.Thread.run(Thread.java:636)
#<THREAD "interpreter" {3DC13D}>: Debugger invoked on condition of type ERROR
  Caught java.lang.ArrayStoreException.
Restarts:
  0: TOP-LEVEL Return to top level.
[1] CL-USER(2):

Helmut