[Bug-openmcl] Is it a bug?

[Dmitri Hrapof]

Hello!

My OpenMCL is "Version 1.1-pre-070722 (LinuxPPC32)".

I define a function as follows:

(defun make-graph (ld lst)
  (let ((len (length lst)))
    (let ((va (apply #'vector lst))
      (ga (make-array (list len len))))
      (dotimes (i len)
    (dotimes (j len)
      (setf (aref ga i j) (funcall ld (svref va i) (svref va j)))))
      (values ga va))))

(I won't be suprised to hear it's a very silly way to define a 
graph-building function)

and call it like that:

(make-graph #'= '(1 2 3 4 5))

OpenMCL says:

value #<CODE-VECTOR  #x31194D4E> is not of the expected type (SIMPLE-ARRAY
                                                              T
                                                              (* *)).

while SBCL, CLISP and ECL return

#2A((T NIL NIL NIL NIL)
    (NIL T NIL NIL NIL)
    (NIL NIL T NIL NIL)
    (NIL NIL NIL T NIL)
    (NIL NIL NIL NIL T))
#(1 2 3 4 5)

Is it a bug in OpenMCL?

Sincerely yours,
Dmitri