fix a bug due to allegro's function variable-information problem

[ghost]

While I try to make jonathan work in Allegro CL, I found there's a problem with Allegro CL's variable-information function. In the documentation it says the 3rd return value of variable-information should be an alist, however, it's a proper list instead of alist. So for example, if there's a dummy function like this:

;;;; try it in Allegro CL
(defun test-str (str)
   (declare (type simple-string str))
   (with-vector-parsing (str)
    (flet ((add (x y) (+ x y)))
       (add 1 2))))

then if I issue (test-str "LISP") in the REPL, it will report an error because the function VARIABLE-TYPE actually returns ((SIMPLE-ARRAY CHARACTER (*))) instead of (SIMPLE-ARRAY CHARACTER (*)).

I guess it may be a bug of Allegro CL itself, I will also send an email to Allegro Support later.

[fukamachi]

Thanks!