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

Use #+bad-array-types to mark the files

Instead of just commenting out the files, use #+bad-array-types to
make it clearer why the files aren't included.
parent 4d1c5857
......@@ -6,6 +6,10 @@
(in-package :f2cl-asdf)
;;; #+bad-array-types marks the files that either call routines with
;;; mismatched array types or were called from routines with
;;; mismatched array types.
;;; See https://www2.cisl.ucar.edu/resources/legacy/fft5/documentation
;;; for documentation of this package.
(defsystem fftpack51
......@@ -34,16 +38,16 @@
(:file "c1f5kf")
(:file "c1fgkb")
(:file "c1fgkf")
;;(:file "c1fm1b")
;;(:file "c1fm1f")
;;(:file "cfft1b" :depends-on ("xerfft" "c1fm1b"))
;;(:file "cfft1f" :depends-on ("xerfft" "c1fm1f"))
#+bad-array-types (:file "c1fm1b")
#+bad-array-types (:file "c1fm1f")
#+bad-array-types (:file "cfft1b" :depends-on ("xerfft" "c1fm1b"))
#+bad-array-types (:file "cfft1f" :depends-on ("xerfft" "c1fm1f"))
(:file "cfft1i" :depends-on ("xerfft" "mcfti1"))
;;(:file "cfft2b" :depends-on ("xerfft" "cfftmb"))
;;(:file "cfft2f" :depends-on ("xerfft" "cfftmf"))
#+bad-array-types (:file "cfft2b" :depends-on ("xerfft" "cfftmb"))
#+bad-array-types (:file "cfft2f" :depends-on ("xerfft" "cfftmf"))
(:file "cfft2i" :depends-on ("xerfft" "cfftmi"))
;;(:file "cfftmb" :depends-on ("xerfft" "xercon" "cmfm1b"))
;;(:file "cfftmf" :depends-on ("xerfft" "xercon" "cmfm1f"))
#+bad-array-types (:file "cfftmb" :depends-on ("xerfft" "xercon" "cmfm1b"))
#+bad-array-types (:file "cfftmf" :depends-on ("xerfft" "xercon" "cmfm1f"))
(:file "cfftmi" :depends-on ("xerfft" "mcfti1"))
(:file "cmf2kb")
(:file "cmf2kf")
......@@ -55,8 +59,8 @@
(:file "cmf5kf")
(:file "cmfgkb")
(:file "cmfgkf")
;;(:file "cmfm1b" :depends-on ("cmf2kb" "cmf3kb" "cmf4kb" "cmf5kb" "cmfgkb"))
;;(:file "cmfm1f" :depends-on ("cmf2kf" "cmf3kf" "cmf4kf" "cmf5kf" "cmfgkf"))
#+bad-array-types (:file "cmfm1b" :depends-on ("cmf2kb" "cmf3kb" "cmf4kb" "cmf5kb" "cmfgkb"))
#+bad-array-types (:file "cmfm1f" :depends-on ("cmf2kf" "cmf3kf" "cmf4kf" "cmf5kf" "cmfgkf"))
(:file "cosq1b" :depends-on ("cosqb1"))
(:file "cosq1f" :depends-on ("cosqf1"))
(:file "cosq1i" :depends-on ("rfft1i"))
......@@ -70,8 +74,8 @@
(:file "cost1i" :depends-on ("rfft1i"))
(:file "costb1" :depends-on ("rfft1f"))
(:file "costf1" :depends-on ("rfft1f"))
;;(:file "costmb" :depends-on ("mcstb1"))
;;(:file "costmf" :depends-on ("mcstf1"))
#+bad-array-types (:file "costmb" :depends-on ("mcstb1"))
#+bad-array-types (:file "costmf" :depends-on ("mcstf1"))
(:file "costmi" :depends-on ("rfftmi"))
(:file "factor")
(:file "mcfti1" :depends-on ("factor" "tables"))
......@@ -108,8 +112,8 @@
(:file "rfft1b" :depends-on ("rfftb1"))
(:file "rfft1f" :depends-on ("rfftf1"))
(:file "rfft1i" :depends-on ("rffti1"))
;;(:file "rfft2b" :depends-on ("rfftmb" "w2r"))
;;(:file "rfft2f" :depends-on ("rfftmf" "w2r"))
#+bad-array-types (:file "rfft2b" :depends-on ("rfftmb" "w2r"))
#+bad-array-types (:file "rfft2f" :depends-on ("rfftmf" "w2r"))
(:file "rfft2i" :depends-on ("rfftmi"))
(:file "rfftb1" :depends-on ("r1f4kb" "r1f2kb" "r1f3kb" "r1f5kb" "r1fgkb"))
(:file "rfftf1" :depends-on ("r1f4kf" "r1f2kf" "r1f3kf" "r1f5kf" "r1fgkf"))
......@@ -128,8 +132,8 @@
(:file "sint1i")
(:file "sintb1")
(:file "sintf1")
;;(:file "sintmb")
;;(:file "sintmf")
#+bad-array-types (:file "sintmb")
#+bad-array-types (:file "sintmf")
(:file "sintmi")
(:file "tables")
(:file "w2r")
......
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