share/odepack/load-odepack.lisp

   1 (in-package #:maxima)
   2
   3 #+nil
   4 (progn
   5   (format t "path = ~A~%" (combine-path *maxima-sharedir* "lapack"))
   6   (format t "*load-truename* = ~A~%" *load-truename*) (format t "sys =
   7   ~A~%" (merge-pathnames (make-pathname :name "lapack" :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                              *load-pathname*)))
  14   (format t "path = ~S~%" path) (load path))
  15
  16 ;; Maxima errored out when any lapack function was used which
  17 ;; most certainly was an ECL bug: Seems like the definition of the
  18 ;; MAXIMA package shadows the array symbol from the COMMON-LISP package.
  19 ;; Bugfix by Marius Gerbershagen:
  20 #+ecl (in-package #:common-lisp)
  21 (mk:oos "maxima-odepack" :compile)