;-*- Mode:     Lisp -*-
;;;; Author:   Paul Dietz
;;;; Created:  Mon Apr  7 07:16:44 2003
;;;; Contains: Forms to load files containing tests of number concepts

(compile-and-load* "numbers-aux.lsp")
(compile-and-load* "random-aux.lsp")
(compile-and-load* "floor-aux.lsp")
(compile-and-load* "ffloor-aux.lsp")
(compile-and-load* "ceiling-aux.lsp")
(compile-and-load* "fceiling-aux.lsp")
(compile-and-load* "truncate-aux.lsp")
(compile-and-load* "ftruncate-aux.lsp")
(compile-and-load* "round-aux.lsp")
(compile-and-load* "fround-aux.lsp")
(compile-and-load* "times-aux.lsp")
(compile-and-load* "division-aux.lsp")
(compile-and-load* "exp-aux.lsp")
(compile-and-load* "gcd-aux.lsp")
(compile-and-load* "types-aux.lsp")

(in-package #:cl-test)

(let ((*default-pathname-defaults*
       (make-pathname
        :directory (pathname-directory *load-pathname*))))
  (load "number-comparison.lsp")
  (load "max.lsp")
  (load "min.lsp")
  (load "minusp.lsp")
  (load "plusp.lsp")
  (load "zerop.lsp")
  (load "floor.lsp")
  (load "ffloor.lsp")
  (load "ceiling.lsp")
  (load "fceiling.lsp")
  (load "truncate.lsp")
  (load "ftruncate.lsp")
  (load "round.lsp")
  (load "fround.lsp")

;;; transcendental functions go here
  (load "sin.lsp")
  (load "cos.lsp")
  (load "tan.lsp")
  (load "asin.lsp")
  (load "acos.lsp")
  (load "atan.lsp")

  (load "sinh.lsp")
  (load "cosh.lsp")
  (load "tanh.lsp")
  (load "asinh.lsp")
  (load "acosh.lsp")
  (load "atanh.lsp")

  (load "times.lsp")
  (load "plus.lsp")
  (load "minus.lsp")
  (load "divide.lsp")
  (load "oneplus.lsp")
  (load "oneminus.lsp")
  (load "abs.lsp")
  (load "exp.lsp")
  (load "expt.lsp")
  (load "gcd.lsp")
  (load "incf.lsp")
  (load "decf.lsp")
  (load "lcm.lsp")
  (load "log.lsp")
  (load "signum.lsp")
  (load "sqrt.lsp")
  (load "isqrt.lsp")
  (load "random.lsp")
  (load "random-state-p.lsp")
  (load "make-random-state.lsp")
  (load "numberp.lsp")
  (load "cis.lsp")
  (load "complex.lsp")
  (load "complexp.lsp")
  (load "conjugate.lsp")
  (load "phase.lsp")
  (load "realpart.lsp")
  (load "imagpart.lsp")
  (load "realp.lsp")
  (load "numerator-denominator.lsp")
  (load "rationalp.lsp")

  (load "ash.lsp")
  (load "integer-length.lsp")
  (load "integerp.lsp")

  (load "parse-integer.lsp")
  (load "boole.lsp")

  (load "logand.lsp")
  (load "logandc1.lsp")
  (load "logandc2.lsp")
  (load "logeqv.lsp")
  (load "logior.lsp")
  (load "lognand.lsp")
  (load "lognor.lsp")
  (load "logorc1.lsp")
  (load "logorc2.lsp")
  (load "lognot.lsp")
  (load "logxor.lsp")
  (load "logbitp.lsp")
  (load "logcount.lsp")
  (load "logtest.lsp")

  (load "byte.lsp")
  (load "deposit-field.lsp")
  (load "dpb.lsp")
  (load "ldb.lsp")
  (load "mask-field.lsp")

  (load "float.lsp")
  (load "floatp.lsp")

  (load "rational.lsp")
  (load "rationalize.lsp")

  (load "evenp.lsp")
  (load "oddp.lsp")

  (load "epsilons.lsp")
  (load "real.lsp")

  (load "upgraded-complex-part-type.lsp")

  (load "arithmetic-error.lsp")
)