julia-lispworks.lisp

(defvar *fli1*
  (fli:register-module "/Applications/Julia-0.5.app/Contents/Resources/julia/lib/libjulia.0.5.1.dylib"))

(fli:define-foreign-function 
    (jl-init "jl_init" :source)
    ((julia-home-dir (:reference-pass :ef-mb-string)))
  :result-type :void
  :language :C
  :calling-convention :cdecl)

(fli:define-foreign-function 
    (jl-eval-string "jl_eval_string" :source)
    ((julia-home-dir (:reference-pass :ef-mb-string)))
  :result-type :void
  :language :C
  :calling-convention :cdecl)

#|
CL-USER 4 > (jl-init "/Applications/Julia-0.5.app/Contents/Resources/julia/lib/")

CL-USER 5 > (jl-eval-string "print(sqrt(2.0))")
1.4142135623730951
|#