← Back to branch summary

~ubuntu-branches/ubuntu/karmic/maxima/karmic

« back to all changes in this revision

Viewing changes to share/affine/sysdef.lisp

  • Committer: Bazaar Package Importer
  • Author(s): Camm Maguire
  • Date: 2004-11-13 18:39:14 UTC
  • mto: (2.1.2 hoary) (3.2.1 sid) (1.1.5 upstream)
  • mto: This revision was merged to the branch mainline in revision 3.
  • Revision ID: james.westby@ubuntu.com-20041113183914-ttig0evwuatnqosl
Tags: upstream-5.9.1
Import upstream version 5.9.1

Show diffs side-by-side

added added

removed removed

Lines of Context:
share/affine/sysdef.lisp
 
1
(pushnew :cl *features*)
 
2
(setf (get :affine :source-path) "foo.lisp")
 
3
(setf (get :affine :object-path) "foo.o")
 
4
 
 
5
#+lispm
 
6
(progn
 
7
  (setf (get :affine :object-path)
 
8
        #+ti (format nil "max:affine.rel~a-object;foo.xld"  (si::get-system-version))
 
9
        #+symbolics "cl-affine-object:affine;foo.bin")
 
10
  (setf (get :affine :source-path) #+ti "rascal:/usr2/wfs/affine/foo.lisp"
 
11
        #+symbolics
 
12
        "cl-affine-source:affine;foo.lisp"
 
13
        )
 
14
  )
 
15
 
 
16
 
 
17
(require "MAKE" "make.lisp")
 
18
(setf make::*system-p* nil)
 
19
 
 
20
 
 
21
(setf (get :affine :make) '
 
22
      (amacros
 
23
       (#+symbolics
 
24
        gc
 
25
        #-symbolics dummy-gc
 
26
        )
 
27
       (:progn (proclaim '(optimize (safety 2))))
 
28
       polybas
 
29
       sparsemat
 
30
       (aquotient new-rat)
 
31
       polya
 
32
       (ndotsimp polyb
 
33
                 polysmp sub-proj polyc polyd)
 
34
       sheafa sheafb sheafc
 
35
       dim-3 ndotsimp modsimp
 
36
       todd-coxeter
 
37
 
 
38
       ))
 
39
 
 
40
(proclaim '(declaration values))
 
41
 
 
42
#+kcl
 
43
(setf (get 'maxima::fixed-args :proclaim) #'(lambda (x)
 
44
                                      (setf (get x 'compiler::fixed-args)
 
45
                                            t)))
 
 
b'\\ No newline at end of file'