share/odepack/load-odepack.lisp

   1 (in-package #-gcl #:maxima #+GCL "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
  13 "system")
  14                              #-gcl *load-pathname* +gcl
  15                              #sys:*load-pathname*)))
  16   (format t "path = ~S~%" path) (load path))
  17
  18 ;; Maxima errored out when any lapack function was used which
  19 ;; most certainly was an ECL bug: Seems like the definition of the
  20 ;; MAXIMA package shadows the array symbol from the COMMON-LISP package.
  21 ;; Bugfix by Marius Gerbershagen:
  22 #+ecl (in-package #:common-lisp)
  23 (mk:oos "maxima-odepack" :compile)