(load "packs") (load "ga") ;generic arithmetic (defpackage :ms (:use :ga :ma :cl :df) (:shadowing-import-from :ga "+" "-" "/" "*" "expt" ;binary arith "=" "/=" ">" "<" "<=" ">=" ;binary comparisons expt log exp sqrt sin cos tan atan asin acos atan2 sinh cosh tanh asinh acosh atanh "1-" "1+" "abs" "tocl" "re-intern" "incf" "decf" "numerator" "denominator" max min ) ) (load "gc-mpfr.dll") (load "mpfr") (load "quad-fast") ;; put your code in here..