share/odepack/load-dlsode.lisp

   1 (in-package #:maxima)
   2
   3 #+(or)
   4 (progn
   5   (format t "path = ~A~%" (combine-path *maxima-sharedir* "odepack"))
   6   (format t "*load-truename* = ~A~%" *load-truename*)
   7   (format t "sys = ~A~%" (merge-pathnames (make-pathname :name "odepack" :type "system")
   8                                           *load-truename*)))
   9
  10 #+(or ecl abcl) ($load "lisp-utils/defsystem.lisp")
  11
  12 (let ((path (merge-pathnames (make-pathname :name "odepack" :type "system")
  13                              (maxima-load-pathname-directory))))
  14   #+(or)
  15   (format t "loading = ~S~%" path)
  16   (load path))
  17
  18 ;; Fix for ecl thinking that ARRAY in declarations is not from the CL
  19 ;; package.  This seems like a bug in ecl, and this works around it.
  20 ;; Same fix as used for lapack.
  21 #+ecl
  22 (in-package #:common-lisp)
  23
  24 (mk:oos "maxima-dlsode" :compile)