Advertisement
Guest User

Untitled

a guest
Feb 1st, 2018
156
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 6.40 KB | None | 0 0
  1. ; compiling (DEFMETHOD MULT ...)
  2. ; file: /tmp/slimebcsWcm
  3. ; in: DEFMETHOD MULT (MATRIX-R MATRIX-R)
  4. ; (* LINEAR-ALGEBRA::I LINEAR-ALGEBRA::N-COLS)
  5. ;
  6. ; note: forced to do GENERIC-* (cost 30)
  7. ; unable to do inline fixnum arithmetic (cost 4) because:
  8. ; The result is a (VALUES (MOD 21267647932558653952625854909203349507)
  9. ; &OPTIONAL), not a (VALUES FIXNUM &REST T).
  10. ; unable to do inline (signed-byte 64) arithmetic (cost 5) because:
  11. ; The result is a (VALUES (MOD 21267647932558653952625854909203349507)
  12. ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST
  13. ; T).
  14. ; etc.
  15.  
  16. ; (+ LINEAR-ALGEBRA::J (* LINEAR-ALGEBRA::I LINEAR-ALGEBRA::N-COLS))
  17. ;
  18. ; note: forced to do GENERIC-+ (cost 10)
  19. ; unable to do inline fixnum arithmetic (cost 2) because:
  20. ; The second argument is a (MOD 21267647932558653952625854909203349507), not a FIXNUM.
  21. ; The result is a (VALUES (MOD 21267647932558653957237540927630737409)
  22. ; &OPTIONAL), not a (VALUES FIXNUM &REST T).
  23. ; unable to do inline (signed-byte 64) arithmetic (cost 5) because:
  24. ; The second argument is a (MOD 21267647932558653952625854909203349507), not a (SIGNED-BYTE
  25. ; 64).
  26. ; The result is a (VALUES (MOD 21267647932558653957237540927630737409)
  27. ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST
  28. ; T).
  29. ; etc.
  30.  
  31. ; (* LINEAR-ALGEBRA::I LINEAR-ALGEBRA::N)
  32. ;
  33. ; note: forced to do GENERIC-* (cost 30)
  34. ; unable to do inline fixnum arithmetic (cost 4) because:
  35. ; The result is a (VALUES (MOD 21267647932558653952625854909203349507)
  36. ; &OPTIONAL), not a (VALUES FIXNUM &REST T).
  37. ; unable to do inline (signed-byte 64) arithmetic (cost 5) because:
  38. ; The result is a (VALUES (MOD 21267647932558653952625854909203349507)
  39. ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST
  40. ; T).
  41. ; etc.
  42.  
  43. ; (+ LINEAR-ALGEBRA::K (* LINEAR-ALGEBRA::I LINEAR-ALGEBRA::N))
  44. ;
  45. ; note: forced to do GENERIC-+ (cost 10)
  46. ; unable to do inline fixnum arithmetic (cost 2) because:
  47. ; The second argument is a (MOD 21267647932558653952625854909203349507), not a FIXNUM.
  48. ; The result is a (VALUES (MOD 21267647932558653957237540927630737409)
  49. ; &OPTIONAL), not a (VALUES FIXNUM &REST T).
  50. ; unable to do inline (signed-byte 64) arithmetic (cost 5) because:
  51. ; The second argument is a (MOD 21267647932558653952625854909203349507), not a (SIGNED-BYTE
  52. ; 64).
  53. ; The result is a (VALUES (MOD 21267647932558653957237540927630737409)
  54. ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST
  55. ; T).
  56. ; etc.
  57.  
  58. ; (* LINEAR-ALGEBRA::K LINEAR-ALGEBRA::N)
  59. ;
  60. ; note: forced to do GENERIC-* (cost 30)
  61. ; unable to do inline fixnum arithmetic (cost 4) because:
  62. ; The result is a (VALUES (MOD 21267647932558653952625854909203349507)
  63. ; &OPTIONAL), not a (VALUES FIXNUM &REST T).
  64. ; unable to do inline (signed-byte 64) arithmetic (cost 5) because:
  65. ; The result is a (VALUES (MOD 21267647932558653952625854909203349507)
  66. ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST
  67. ; T).
  68. ; etc.
  69.  
  70. ; (+ LINEAR-ALGEBRA::J (* LINEAR-ALGEBRA::K LINEAR-ALGEBRA::N))
  71. ;
  72. ; note: forced to do GENERIC-+ (cost 10)
  73. ; unable to do inline fixnum arithmetic (cost 2) because:
  74. ; The second argument is a (MOD 21267647932558653952625854909203349507), not a FIXNUM.
  75. ; The result is a (VALUES (MOD 21267647932558653957237540927630737409)
  76. ; &OPTIONAL), not a (VALUES FIXNUM &REST T).
  77. ; unable to do inline (signed-byte 64) arithmetic (cost 5) because:
  78. ; The second argument is a (MOD 21267647932558653952625854909203349507), not a (SIGNED-BYTE
  79. ; 64).
  80. ; The result is a (VALUES (MOD 21267647932558653957237540927630737409)
  81. ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST
  82. ; T).
  83. ; etc.
  84.  
  85. ; (LOOP LINEAR-ALGEBRA::FOR LINEAR-ALGEBRA::K FIXNUM LINEAR-ALGEBRA::FROM 0 LINEAR-ALGEBRA::BELOW LINEAR-ALGEBRA::N
  86. ; LINEAR-ALGEBRA:SUM (*
  87. ; (AREF LINEAR-ALGEBRA::ELEMENTS-M1
  88. ; (+ LINEAR-ALGEBRA::K
  89. ; (* LINEAR-ALGEBRA::I LINEAR-ALGEBRA::N)))
  90. ; (AREF LINEAR-ALGEBRA::ELEMENTS-M2
  91. ; (+ LINEAR-ALGEBRA::J
  92. ; (* LINEAR-ALGEBRA::K LINEAR-ALGEBRA::N)))))
  93. ; --> BLOCK LET SB-LOOP::WITH-SUM-COUNT LET TAGBODY SETQ THE
  94. ; ==>
  95. ; (+ #:LOOP-SUM-13
  96. ; (*
  97. ; (AREF LINEAR-ALGEBRA::ELEMENTS-M1
  98. ; (+ LINEAR-ALGEBRA::K (* LINEAR-ALGEBRA::I LINEAR-ALGEBRA::N)))
  99. ; (AREF LINEAR-ALGEBRA::ELEMENTS-M2
  100. ; (+ LINEAR-ALGEBRA::J (* LINEAR-ALGEBRA::K LINEAR-ALGEBRA::N)))))
  101. ;
  102. ; note: forced to do GENERIC-+ (cost 10)
  103. ; unable to do inline float arithmetic (cost 2) because:
  104. ; The first argument is a NUMBER, not a DOUBLE-FLOAT.
  105. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES DOUBLE-FLOAT
  106. ; &REST T).
  107. ; unable to do inline float arithmetic (cost 4) because:
  108. ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
  109. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES
  110. ; (COMPLEX DOUBLE-FLOAT)
  111. ; &REST T).
  112. ;
  113. ; note: doing float to pointer coercion (cost 13), for:
  114. ; the second argument of GENERIC-+
  115. ;
  116. ; compilation unit finished
  117. ; printed 8 notes
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement