bug#11077: 24.0.94; avl-tree--enter-balance: (wrong-type-argument arrayp nil)

[Christopher Schmidt]

I think I hit on a bug in avl-tree.el on GNU Emacs 24.0.94.1
(x86_64-unknown-linux-gnu, GTK+ Version 2.24.10) of 2012-03-23.

Recipe:
emacs -q
eval:
#+BEGIN_SRC emacs-lisp
(require 'cl)
(require 'avl-tree)

(defun gen-random ()
  (loop repeat 10
        concat (char-to-string (+ ?0 (random 10)))))

(loop repeat 10
      for tree = (avl-tree-create (lambda (a b) (string< a b)))
      do (loop repeat 400
               do (avl-tree-enter tree (gen-random) (lambda (data match) 
match))))
#+END_SRC

Backtrace:

backtrace
Description: Text document

I have to run the body of the outer loop multiple times or increase the
repeat count of the inner loop to trigger the error.  I am not running
out of virtual memory, though.  Adding `do (garbage-collect)' to the
outer loop does not help either.

        Christopher