4 (asdf:operate
'asdf
:load-op
'clem
)
5 (asdf:operate
'asdf
:load-op
'clem-test
)
7 (let ((m1 (make-instance 'clem
:ub8-matrix
:rows
8 :cols
10 :initial-element
2))
8 (m2 (make-instance 'clem
:ub8-matrix
:rows
10 :cols
7 :initial-element
3)))
10 (describe (clem::horzcat m1 m2
))
11 (describe (clem::vertcat m1 m2
)))
13 ;(clem-test:run-tests)
14 ;(clem-test:run-bench)
15 ; (clem-test:run-defmatrix-tests)
16 ; (let* ((x (clem::random-fixnum-matrix 512 512 :max 255))) (print (clem::sum-range x 2 2 4 4)))