Re: [Matlisp-users] m.*! not native?

[Raymond T. <to...@rt...>]

>>>>> "Tunc" == Tunc Simsek <si...@ee...> writes:

    Tunc> Hi Ray, Jefferson;
    Tunc> I've played with Allegro 6.0 as follows (I asked it to explain
    Tunc>  the compilation of m.*!):

    Tunc> (defmethod m.*! ((a real-matrix) (b real-matrix))
    Tunc>   (let* ((nxm (number-of-elements b)))
    Tunc>     (declare (type fixnum nxm)
    Tunc> 	     (optimize (speed 3) (safety 0)))

    Tunc>     (dotimes (k nxm b)
    Tunc>       (declare (type fixnum k))
    Tunc>       (let ((a-val (matrix-ref a k))
    Tunc> 	    (b-val (matrix-ref b k)))
    Tunc> 	(declare (type real-matrix-element-type a-val b-val)
    Tunc> 		 (:explain :calls :types :boxing))
    Tunc> 	(setf (matrix-ref b k) (* a-val b-val))))))

Jefferson, do you still need this optimized?   I think Tunc's version
is good enough when both matrices are real.  The complex-valued
versions need to be done.

Ray