Commit d135828e authored by Francois-Rene Rideau's avatar Francois-Rene Rideau
Browse files

Fix build issues reported by Quicklisp

parent a1d3f70d
...@@ -99,18 +99,18 @@ ...@@ -99,18 +99,18 @@
(:file "prodp")))) (:file "prodp"))))
:in-order-to ((test-op :in-order-to ((test-op
(test-op (test-op
"fishpack-test-hwscrt" "fishpack/test-hwscrt"
"fishpack-test-hwscrt" "fishpack/test-hwscrt"
"fishpack-test-hwscyl" "fishpack/test-hwscyl"
"fishpack-test-hwsplr" "fishpack/test-hwsplr"
"fishpack-test-hwsssp" "fishpack/test-hwsssp"
"fishpack-test-hwscsp" "fishpack/test-hwscsp"
"fishpack-test-hstcrt" "fishpack/test-hstcrt"
"fishpack-test-hstplr" "fishpack/test-hstplr"
"fishpack-test-hstcyl" "fishpack/test-hstcyl"
"fishpack-test-hstssp" "fishpack/test-hstssp"
"fishpack-test-hstcsp" "fishpack/test-hstcsp"
"fishpack-test-sepx4" "fishpack/test-sepx4"
)))) ))))
;; Some tests of Fishpack. ;; Some tests of Fishpack.
...@@ -119,7 +119,7 @@ ...@@ -119,7 +119,7 @@
;; Data 7600, but they should be close. ;; Data 7600, but they should be close.
;; Works ;; Works
(defsystem "fishpack-test-hwscrt" (defsystem "fishpack/test-hwscrt"
:class f2cl-system :class f2cl-system
:default-component-class :fortran-file :default-component-class :fortran-file
:f2cl-options (:package "FISHPACK" :array-slicing t :array-type :array :common-as-array t :keep-lisp-file t) :f2cl-options (:package "FISHPACK" :array-slicing t :array-type :array :common-as-array t :keep-lisp-file t)
...@@ -132,7 +132,7 @@ ...@@ -132,7 +132,7 @@
:perform (test-op (o c) (symbol-call :fishpack :thwscrt))) :perform (test-op (o c) (symbol-call :fishpack :thwscrt)))
;; Works ;; Works
(defsystem "fishpack-test-hwscyl" (defsystem "fishpack/test-hwscyl"
:class f2cl-system :class f2cl-system
:default-component-class :fortran-file :default-component-class :fortran-file
:f2cl-options (:package "FISHPACK" :array-slicing t :array-type :array :common-as-array t :keep-lisp-file t) :f2cl-options (:package "FISHPACK" :array-slicing t :array-type :array :common-as-array t :keep-lisp-file t)
...@@ -145,7 +145,7 @@ ...@@ -145,7 +145,7 @@
:perform (test-op (o c) (symbol-call :fishpack :thwscyl))) :perform (test-op (o c) (symbol-call :fishpack :thwscyl)))
;; Works ;; Works
(defsystem "fishpack-test-hwsplr" (defsystem "fishpack/test-hwsplr"
:class f2cl-system :class f2cl-system
:default-component-class :fortran-file :default-component-class :fortran-file
:f2cl-options (:package "FISHPACK" :array-slicing t :array-type :array :common-as-array t :keep-lisp-file t) :f2cl-options (:package "FISHPACK" :array-slicing t :array-type :array :common-as-array t :keep-lisp-file t)
...@@ -158,7 +158,7 @@ ...@@ -158,7 +158,7 @@
:perform (test-op (o c) (symbol-call :fishpack :thwsplr))) :perform (test-op (o c) (symbol-call :fishpack :thwsplr)))
;; Works ;; Works
(defsystem "fishpack-test-hwsssp" (defsystem "fishpack/test-hwsssp"
:class f2cl-system :class f2cl-system
:default-component-class :fortran-file :default-component-class :fortran-file
:f2cl-options (:package "FISHPACK" :array-slicing t :array-type :array :common-as-array t :keep-lisp-file t) :f2cl-options (:package "FISHPACK" :array-slicing t :array-type :array :common-as-array t :keep-lisp-file t)
...@@ -171,7 +171,7 @@ ...@@ -171,7 +171,7 @@
:perform (test-op (o c) (symbol-call :fishpack :thwsssp))) :perform (test-op (o c) (symbol-call :fishpack :thwsssp)))
;; Works ;; Works
(defsystem "fishpack-test-hwscsp" (defsystem "fishpack/test-hwscsp"
:class f2cl-system :class f2cl-system
:default-component-class :fortran-file :default-component-class :fortran-file
:f2cl-options (:package "FISHPACK" :array-slicing t :array-type :array :common-as-array t :keep-lisp-file t) :f2cl-options (:package "FISHPACK" :array-slicing t :array-type :array :common-as-array t :keep-lisp-file t)
...@@ -184,7 +184,7 @@ ...@@ -184,7 +184,7 @@
:perform (test-op (o c) (symbol-call :fishpack :thwscsp))) :perform (test-op (o c) (symbol-call :fishpack :thwscsp)))
;; Works ;; Works
(defsystem "fishpack-test-hstcrt" (defsystem "fishpack/test-hstcrt"
:class f2cl-system :class f2cl-system
:default-component-class :fortran-file :default-component-class :fortran-file
:f2cl-options (:package "FISHPACK" :array-slicing t :array-type :array :common-as-array t :keep-lisp-file t) :f2cl-options (:package "FISHPACK" :array-slicing t :array-type :array :common-as-array t :keep-lisp-file t)
...@@ -197,7 +197,7 @@ ...@@ -197,7 +197,7 @@
:perform (test-op (o c) (symbol-call :fishpack :thstcrt))) :perform (test-op (o c) (symbol-call :fishpack :thstcrt)))
;; Works ;; Works
(defsystem "fishpack-test-hstplr" (defsystem "fishpack/test-hstplr"
:class f2cl-system :class f2cl-system
:default-component-class :fortran-file :default-component-class :fortran-file
:f2cl-options (:package "FISHPACK" :array-slicing t :array-type :array :common-as-array t :keep-lisp-file t) :f2cl-options (:package "FISHPACK" :array-slicing t :array-type :array :common-as-array t :keep-lisp-file t)
...@@ -210,7 +210,7 @@ ...@@ -210,7 +210,7 @@
:perform (test-op (o c) (symbol-call :fishpack :thstplr))) :perform (test-op (o c) (symbol-call :fishpack :thstplr)))
;; Works ;; Works
(defsystem "fishpack-test-hstcyl" (defsystem "fishpack/test-hstcyl"
:class f2cl-system :class f2cl-system
:default-component-class :fortran-file :default-component-class :fortran-file
:f2cl-options (:package "FISHPACK" :array-slicing t :array-type :array :common-as-array t :keep-lisp-file t) :f2cl-options (:package "FISHPACK" :array-slicing t :array-type :array :common-as-array t :keep-lisp-file t)
...@@ -223,7 +223,7 @@ ...@@ -223,7 +223,7 @@
:perform (test-op (o c) (symbol-call :fishpack :thstcyl))) :perform (test-op (o c) (symbol-call :fishpack :thstcyl)))
;; Works ;; Works
(defsystem "fishpack-test-hstssp" (defsystem "fishpack/test-hstssp"
:class f2cl-system :class f2cl-system
:default-component-class :fortran-file :default-component-class :fortran-file
:f2cl-options (:package "FISHPACK" :array-slicing t :array-type :array :common-as-array t :keep-lisp-file t) :f2cl-options (:package "FISHPACK" :array-slicing t :array-type :array :common-as-array t :keep-lisp-file t)
...@@ -234,11 +234,11 @@ ...@@ -234,11 +234,11 @@
:components :components
((:file "tsthstssp"))))) ((:file "tsthstssp")))))
(defmethod perform ((op test-op) (c (eql (find-system "fishpack-test-hstssp")))) (defmethod perform ((op test-op) (c (eql (find-system "fishpack/test-hstssp"))))
(funcall (find-symbol "THSTSSP" (find-package '#:fishpack)))) (funcall (find-symbol "THSTSSP" (find-package '#:fishpack))))
;; Works ;; Works
(defsystem "fishpack-test-hstcsp" (defsystem "fishpack/test-hstcsp"
:class f2cl-system :class f2cl-system
:default-component-class :fortran-file :default-component-class :fortran-file
:f2cl-options (:package "FISHPACK" :array-slicing t :array-type :array :common-as-array t :keep-lisp-file t) :f2cl-options (:package "FISHPACK" :array-slicing t :array-type :array :common-as-array t :keep-lisp-file t)
...@@ -251,7 +251,7 @@ ...@@ -251,7 +251,7 @@
:perform (test-op (o c) (symbol-call :fishpack :thstcsp))) :perform (test-op (o c) (symbol-call :fishpack :thstcsp)))
;; Works ;; Works
(defsystem "fishpack-test-sepx4" (defsystem "fishpack/test-sepx4"
:class f2cl-system :class f2cl-system
:default-component-class :fortran-file :default-component-class :fortran-file
:f2cl-options (:package "FISHPACK" :array-slicing t :array-type :array :common-as-array t :keep-lisp-file t) :f2cl-options (:package "FISHPACK" :array-slicing t :array-type :array :common-as-array t :keep-lisp-file t)
......
...@@ -428,7 +428,6 @@ ...@@ -428,7 +428,6 @@
(symbol-call :odepack :opkdemo5))) (symbol-call :odepack :opkdemo5)))
;; This seems to work.
(defsystem "odepack/lsodkr-demo" (defsystem "odepack/lsodkr-demo"
:class f2cl-system :class f2cl-system
:default-component-class :fortran-file :default-component-class :fortran-file
...@@ -436,7 +435,7 @@ ...@@ -436,7 +435,7 @@
:relaxed-array-decls nil) :relaxed-array-decls nil)
:pathname "odepack/" :pathname "odepack/"
:depends-on ("odepack") :depends-on ("odepack")
:components ((:file "opkdemo6" :f2cl-options (:declare-common t))) :components ((:file "fortran/opkdemo6" :f2cl-options (:declare-common t)))
:perform (test-op (o c) (symbol-call :odepack :opkdemo6))) :perform (test-op (o c) (symbol-call :odepack :opkdemo6)))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment