13 lines
349 B
Plaintext
13 lines
349 B
Plaintext
;; AR 8575 test
|
|
;; Filed as {ERIS}<LISPCORE>TEST>MATMULT>AR8575.TEST
|
|
;; By Peter Reidy
|
|
;; Verify that MATMULT-N33 will execute without error or crash.
|
|
|
|
(do-test AR8575-test
|
|
(il:matmult-n33 (il:make-homogeneous-n-by-3 4) (il:make-homogeneous-3-by-3))
|
|
(il:matmult-n33 (il:make-homogeneous-n-by-3 (random 100)) (il:make-homogeneous-3-by-3))
|
|
)
|
|
STOP
|
|
|
|
|