share/lapack/load-lapack.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 "(maxima-load-pathname-directory) = ~A~%" (maxima-load-pathname-directory))
   7   (format t "sys = ~A~%" (merge-pathnames (make-pathname :name "lapack" :type "system") (maxima-load-pathname-directory))))
   8
   9 #+(or ecl abcl) ($load "lisp-utils/defsystem.lisp")
  10
  11 (load (merge-pathnames (make-pathname :name "lapack" :type "system") (maxima-load-pathname-directory)))
  12
  13 ;; Maxima errored out when any lapack function was used which
  14 ;; most certainly was an ECL bug: Seems like the definition of the
  15 ;; MAXIMA package shadows the array symbol from the COMMON-LISP package.
  16 ;; Bugfix by Marius Gerbershagen:
  17 #+ecl (in-package #:common-lisp)
  18
  19 (mk:oos "lapack-interface" :compile)