share/affine/sysdef.lisp

   1 (pushnew :cl *features*)
   2
   3 (setf (get :affine :source-path) "foo.lisp")
   4 (setf (get :affine :object-path) "foo.o")
   5
   6 (require "MAKE" "make.lisp")
   7
   8 (setf make::*system-p* nil)
   9
  10 (setf (get :affine :make) '
  11       (amacros
  12        (dummy-gc)
  13        (:progn (proclaim '(optimize (safety 2))))
  14        polybas
  15        sparsemat
  16        (aquotient new-rat)
  17        polya
  18        (ndotsimp polyb polysmp sub-proj polyc polyd)
  19        sheafa sheafb sheafc
  20        dim-3 ndotsimp modsimp))
  21
  22 (proclaim '(declaration values))
  23
  24 #+kcl
  25 (setf (get 'maxima::fixed-args :proclaim)
  26       #'(lambda (x)
  27           (setf (get x 'compiler::fixed-args) t)))