[Openmcl-devel] BUG: incorrect argument type checking in AREF

[Eric Marsden]

Hi,

Thanks for fixing the previous AREF bug. Below is what seems to be a
similar bug.

,----
| ? (lisp-implementation-version)
| "Version 1.8-dev-r15028M  (LinuxX8664)"
| ? (defun foo (p2 p3)
|   (declare (optimize (speed 0)))
|   (aref #3A(((1 2 3)))
|         (the (member 0 -236) p2)
|         (the real p3)
|         2))
| FOO
| ? (funcall 'foo 0 0)
| > Error: value #<ARRAY 1x1x3, simple> is not of the expected type FIXNUM.
`----

-- 
Eric Marsden