Commit ceaa98da authored by Raymond Toy's avatar Raymond Toy
Browse files

Update asd files to save the generated lisp files.

hompack.asd:
o Also fix names of tests.

toms715.asd:
o Was not calling tests correctly.
parent 42682cbc
......@@ -18,6 +18,7 @@
declare-common (common-as-array t))
(let ((file (component-pathname c)))
(f2cl:f2cl-compile file
:keep-lisp-file t
:output-file (first (output-files op c))
:array-slicing array-slicing
:array-type array-type
......
......@@ -20,6 +20,7 @@
(defun fortran-compile (op c &key (array-slicing t) (array-type :array) package declare-common)
(let ((file (component-pathname c)))
(f2cl:f2cl-compile file
:keep-lisp-file t
:output-file (first (output-files op c))
:array-slicing array-slicing
:array-type array-type
......
......@@ -18,6 +18,7 @@
(defun fortran-compile (op c &key (array-slicing t) (array-type :array) package declare-common)
(let ((file (component-pathname c)))
(f2cl:f2cl-compile file
:keep-lisp-file t
:output-file (first (output-files op c))
:array-slicing array-slicing
:array-type array-type
......@@ -115,9 +116,9 @@
))))
(defmethod perform ((op test-op) (c (eql (find-system "hompack"))))
(oos 'test-op "hompack-tests-mainf")
(oos 'test-op "hompack-tests-mainp")
(oos 'test-op "hompack-tests-mains"))
(oos 'test-op "hompack-test-mainf")
(oos 'test-op "hompack-test-mainp")
(oos 'test-op "hompack-test-mains"))
;; Run (hompack::mainf). Compare with hompack/ref-main.txt.
;;
......
......@@ -21,6 +21,7 @@
(defun fortran-compile (op c &key (array-slicing t) (array-type :array) package declare-common)
(let ((file (component-pathname c)))
(f2cl:f2cl-compile file
:keep-lisp-file t
:output-file (first (output-files op c))
:array-slicing array-slicing
:array-type array-type
......
......@@ -18,6 +18,7 @@
(defun fortran-compile (op c &key (array-slicing t) (array-type :array) package declare-common)
(let ((file (component-pathname c)))
(f2cl:f2cl-compile file
:keep-lisp-file t
:output-file (first (output-files op c))
:array-slicing array-slicing
:array-type array-type
......
......@@ -26,6 +26,7 @@
(defun fortran-compile (op c &key (array-slicing t) (array-type :array) package)
(let ((file (component-pathname c)))
(f2cl:f2cl-compile file
:keep-lisp-file t
:output-file (first (output-files op c))
:array-slicing array-slicing
:array-type array-type
......@@ -151,4 +152,4 @@
;; signal errors and we do. But we don't want asdf to stop the
;; tests. So we just ignore all errors and expect the user to
;; look through the results to see if they make sense.
(ignore-errors (funcall (find-symbol test "TOMS715"))))))
(ignore-errors (funcall (find-symbol (symbol-name test) "TOMS715"))))))
......@@ -18,6 +18,7 @@
(defun fortran-compile (op c &key (array-slicing t) (array-type :array) package declare-common)
(let ((file (component-pathname c)))
(f2cl:f2cl-compile file
:keep-lisp-file t
:output-file (first (output-files op c))
:array-slicing array-slicing
:array-type array-type
......
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