Commit 4a3c7442 authored by TTCA Vukovic's avatar TTCA Vukovic Committed by Liam Healy
Browse files

Added clisp dependency in evaluate-integral-example

parent d87c9b66
......@@ -45,4 +45,7 @@ over a 0-2pi interval and interpolated with
collect (sin x))))
(acc (make-acceleration))
(spline (make-spline +periodic-cubic-spline-interpolation+ xmarr ymarr)))
(evaluate-integral spline 0d0 (coerce pi 'double-float) :acceleration acc)))
(evaluate-integral spline 0d0
#+clisp(coerce pi 'double-float) ;; pi=3.14..L0 on clisp
#-clisp pi
:acceleration acc)))
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment