; compiling (DEFMETHOD MULT ...)
; file: /tmp/slimemgUJ2A
; in: DEFMETHOD MULT (MATRIX-R MATRIX-R)
;     (LOOP LINEAR-ALGEBRA::FOR LINEAR-ALGEBRA::K FIXNUM LINEAR-ALGEBRA::FROM 0 LINEAR-ALGEBRA::BELOW LINEAR-ALGEBRA::N
;           LINEAR-ALGEBRA:SUM (*
;                               (AREF LINEAR-ALGEBRA::ELEMENTS-M1
;                                     (+ LINEAR-ALGEBRA::K (THE FIXNUM #)))
;                               (AREF LINEAR-ALGEBRA::ELEMENTS-M2
;                                     (+ LINEAR-ALGEBRA::J (THE FIXNUM #)))))
; --> BLOCK LET SB-LOOP::WITH-SUM-COUNT LET TAGBODY SETQ THE
; ==>
;   (+ #:LOOP-SUM-13
;      (* (AREF LINEAR-ALGEBRA::ELEMENTS-M1 (+ LINEAR-ALGEBRA::K (THE FIXNUM #)))
;         (AREF LINEAR-ALGEBRA::ELEMENTS-M2
;               (+ LINEAR-ALGEBRA::J (THE FIXNUM #)))))
;
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline float arithmetic (cost 2) because:
;       The first argument is a NUMBER, not a DOUBLE-FLOAT.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES DOUBLE-FLOAT
;                                                                &REST T).
;       unable to do inline float arithmetic (cost 4) because:
;       The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES
;                                                         (COMPLEX DOUBLE-FLOAT)
;                                                         &REST T).
;
; note: doing float to pointer coercion (cost 13), for:
;       the second argument of GENERIC-+
;
; compilation unit finished
;   printed 2 notes