Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- ; compiling (DEFMETHOD MULT ...)
- ; file: /tmp/slimebcsWcm
- ; in: DEFMETHOD MULT (MATRIX-R MATRIX-R)
- ; (* LINEAR-ALGEBRA::I LINEAR-ALGEBRA::N-COLS)
- ;
- ; note: forced to do GENERIC-* (cost 30)
- ; unable to do inline fixnum arithmetic (cost 4) because:
- ; The result is a (VALUES (MOD 21267647932558653952625854909203349507)
- ; &OPTIONAL), not a (VALUES FIXNUM &REST T).
- ; unable to do inline (signed-byte 64) arithmetic (cost 5) because:
- ; The result is a (VALUES (MOD 21267647932558653952625854909203349507)
- ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST
- ; T).
- ; etc.
- ; (+ LINEAR-ALGEBRA::J (* LINEAR-ALGEBRA::I LINEAR-ALGEBRA::N-COLS))
- ;
- ; note: forced to do GENERIC-+ (cost 10)
- ; unable to do inline fixnum arithmetic (cost 2) because:
- ; The second argument is a (MOD 21267647932558653952625854909203349507), not a FIXNUM.
- ; The result is a (VALUES (MOD 21267647932558653957237540927630737409)
- ; &OPTIONAL), not a (VALUES FIXNUM &REST T).
- ; unable to do inline (signed-byte 64) arithmetic (cost 5) because:
- ; The second argument is a (MOD 21267647932558653952625854909203349507), not a (SIGNED-BYTE
- ; 64).
- ; The result is a (VALUES (MOD 21267647932558653957237540927630737409)
- ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST
- ; T).
- ; etc.
- ; (* LINEAR-ALGEBRA::I LINEAR-ALGEBRA::N)
- ;
- ; note: forced to do GENERIC-* (cost 30)
- ; unable to do inline fixnum arithmetic (cost 4) because:
- ; The result is a (VALUES (MOD 21267647932558653952625854909203349507)
- ; &OPTIONAL), not a (VALUES FIXNUM &REST T).
- ; unable to do inline (signed-byte 64) arithmetic (cost 5) because:
- ; The result is a (VALUES (MOD 21267647932558653952625854909203349507)
- ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST
- ; T).
- ; etc.
- ; (+ LINEAR-ALGEBRA::K (* LINEAR-ALGEBRA::I LINEAR-ALGEBRA::N))
- ;
- ; note: forced to do GENERIC-+ (cost 10)
- ; unable to do inline fixnum arithmetic (cost 2) because:
- ; The second argument is a (MOD 21267647932558653952625854909203349507), not a FIXNUM.
- ; The result is a (VALUES (MOD 21267647932558653957237540927630737409)
- ; &OPTIONAL), not a (VALUES FIXNUM &REST T).
- ; unable to do inline (signed-byte 64) arithmetic (cost 5) because:
- ; The second argument is a (MOD 21267647932558653952625854909203349507), not a (SIGNED-BYTE
- ; 64).
- ; The result is a (VALUES (MOD 21267647932558653957237540927630737409)
- ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST
- ; T).
- ; etc.
- ; (* LINEAR-ALGEBRA::K LINEAR-ALGEBRA::N)
- ;
- ; note: forced to do GENERIC-* (cost 30)
- ; unable to do inline fixnum arithmetic (cost 4) because:
- ; The result is a (VALUES (MOD 21267647932558653952625854909203349507)
- ; &OPTIONAL), not a (VALUES FIXNUM &REST T).
- ; unable to do inline (signed-byte 64) arithmetic (cost 5) because:
- ; The result is a (VALUES (MOD 21267647932558653952625854909203349507)
- ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST
- ; T).
- ; etc.
- ; (+ LINEAR-ALGEBRA::J (* LINEAR-ALGEBRA::K LINEAR-ALGEBRA::N))
- ;
- ; note: forced to do GENERIC-+ (cost 10)
- ; unable to do inline fixnum arithmetic (cost 2) because:
- ; The second argument is a (MOD 21267647932558653952625854909203349507), not a FIXNUM.
- ; The result is a (VALUES (MOD 21267647932558653957237540927630737409)
- ; &OPTIONAL), not a (VALUES FIXNUM &REST T).
- ; unable to do inline (signed-byte 64) arithmetic (cost 5) because:
- ; The second argument is a (MOD 21267647932558653952625854909203349507), not a (SIGNED-BYTE
- ; 64).
- ; The result is a (VALUES (MOD 21267647932558653957237540927630737409)
- ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST
- ; T).
- ; etc.
- ; (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
- ; (* LINEAR-ALGEBRA::I LINEAR-ALGEBRA::N)))
- ; (AREF LINEAR-ALGEBRA::ELEMENTS-M2
- ; (+ LINEAR-ALGEBRA::J
- ; (* LINEAR-ALGEBRA::K LINEAR-ALGEBRA::N)))))
- ; --> BLOCK LET SB-LOOP::WITH-SUM-COUNT LET TAGBODY SETQ THE
- ; ==>
- ; (+ #:LOOP-SUM-13
- ; (*
- ; (AREF LINEAR-ALGEBRA::ELEMENTS-M1
- ; (+ LINEAR-ALGEBRA::K (* LINEAR-ALGEBRA::I LINEAR-ALGEBRA::N)))
- ; (AREF LINEAR-ALGEBRA::ELEMENTS-M2
- ; (+ LINEAR-ALGEBRA::J (* LINEAR-ALGEBRA::K LINEAR-ALGEBRA::N)))))
- ;
- ; 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 8 notes
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement