In MARK+3 (src/db.lisp), quiet warning from SBCL about "Derived type conflicting...

[maxima.git] / share / contrib / gentran / test / det.tem

real*8 function det(m)
real*8 m(3,3)
<<
m : genmatrix(m, 3,3, 1,1)$
gentran( rsetq( det, determinant(m) ) )$
>>
return
end