archive/src/sysdef.lisp

   1
   2 (or (find-package "MAKE") (make-package "MAKE" :use '(LISP)))
   3
   4 (in-package "MAKE")
   5
   6 (or (fboundp 'make) (load  "make.lisp" ))
   7 (or (member :cl *features*) (setq *features* (cons :cl *features*)))
   8
   9 (setf (get :maxima :source-path) "foo.lisp")
  10 (setf (get :maxima :object-path)
  11       #+lucid "foo.lbin"
  12       #+excl "foo.fasl"
  13       #+clisp "foo.fas"
  14       #+cmu (namestring (make-pathname :name "foo" :type (c::backend-fasl-file-type c::*target-backend*)))
  15       #-(or cmu :CLISP excl lucid) "foo.o")
  16
  17
  18 #+lispm
  19 (progn
  20 ;;;----Adjust these for your site if this is a lisp machine.
  21   (setf (get :maxima :object-path)
  22         (if (boundp '*logical-object*) *logical-object*
  23         #+ti "max:maxima.object;foo.xld"
  24         #+symbolics  "alonzo:>maxima>object>foo.bin"))
  25   (setf (get :maxima :source-path)
  26         (if (boundp '*logical-source*) *logical-source*
  27           "rascal:/usr2/maxima/src/foo.lisp")))
  28
  29 #+(and cl (not lispm))
  30 (or (member :nocp  lisp:*features*) (push :nocp *features*))
  31
  32 (load  (make::our-merge "maxima-package" (get :maxima :source-path)))
  33
  34 #+kcl ;may have sloop
  35 (if (fboundp 'sloop::sloop) (push :SLOOP *features*))
  36
  37
  38 (setf (get :maxima  :make)
  39       '(
  40         #-sloop sloop                   ;include sloop if not there in
  41                                         ;plain lisp.
  42                                         ;module declarations
  43         (lmdcls)
  44                                         ;module destructuring-let
  45         (letmac)
  46                                         ;module compatibility-macros1
  47
  48         #-(or kcl lispm) generr
  49 ;       #+kcl serror
  50         #+kcl kclmac
  51         (clmacs
  52           )
  53                                         ;module compatibility-macros
  54         ( commac
  55            )
  56         #+symbolics method-compat
  57                                         ;module prerequisites
  58         mormac
  59         compat
  60                                         ;module fundamental-macros
  61         (defopt
  62           defcal
  63           maxmac )
  64                                         ;module utility-macros
  65         (mopers
  66           mforma
  67           )
  68                                         ;module other-macros
  69         (mrgmac
  70           procs
  71           rzmac
  72           strmac
  73           displm )
  74                                         ;module rat-macros
  75         (ratmac
  76           mhayat )
  77                                         ;module numerical-macros
  78         (numerm )
  79         #+kcl optimize
  80         ;;other   (:module macros (
  81         ;; other-macros rat-macros numerical-macros))
  82                                         ;module utilities
  83         (:progn
  84          (load "SYS-PROCLAIM.lisp")
  85          #-cmu (proclaim '(optimize (safety 0) (speed 3))))
  86         (opers
  87           utils
  88           sumcon
  89           sublis
  90           runtim
  91           merror
  92           mformt
  93           mutils
  94           outmis
  95           ar
  96           misc )
  97                                         ;module commands
  98         (comm
  99           comm2 )
 100                                         ;module evaluator
 101         (mlisp
 102           mmacro
 103           buildq )
 104                                         ;module simplification
 105         (simp
 106           float
 107           csimp
 108           csimp2
 109           zero
 110           logarc
 111           rpart )
 112                                         ;module i-o
 113         (
 114          #+lispm lmsup
 115          macsys
 116          mload
 117          suprv1
 118          ;; we should really look, *seriously*, at the functionality provided
 119          ;; by the dskfn package. mainly, it saves and manages environments.
 120          dskfn
 121          )
 122                                         ;module factoring
 123         (lesfac
 124           factor
 125           algfac
 126           nalgfa
 127                                         ;newfac  ;why was this commented out?
 128           ufact
 129           result )
 130                                         ;module rational-functions
 131         (rat3a
 132           rat3b
 133           rat3d
 134           rat3c
 135           rat3e
 136           nrat4
 137           ratout )
 138                                         ;module maxima-language-compiler-macros
 139         (transm )
 140                                         ;module maxima-language-compiler
 141         ;; this includes the translator itself and runtime
 142         ;; support needed for translated code.
 143         (transl
 144           transs
 145           trans1
 146           trans2
 147           trans3
 148           trans4
 149           trans5
 150           transf
 151           troper
 152           trutil
 153           trmode
 154           trdata
 155           trpred
 156           transq
 157           acall
 158           fcall
 159           evalw
 160           trprop
 161           mdefun
 162           )
 163                                         ;module numerical-functions
 164         (bessel
 165           ellipt
 166           numer
 167           intpol
 168           rombrg
 169           )
 170         ;;rest of system
 171                                         ;module reader
 172         (nparse )
 173         (:progn ;;reset this from nparse
 174          #-cmu (proclaim '(optimize (safety 0) (speed 3))))
 175                                         ;module display
 176         (displa
 177           nforma
 178           ldisp
 179           grind )
 180                                         ;module gcd
 181         (spgcd
 182           ezgcd
 183           )
 184                                         ;module documentation
 185         (option
 186                                         ;primer
 187           macdes
 188           #+obsolete mudoc              ;is this used?
 189                                         ;module algebraic-database
 190           )
 191         (inmis
 192           db
 193           compar
 194           askp )                        ;does this belong here?
 195                                         ;module integration
 196         (sinint
 197           sin
 198           risch )
 199                                         ;module taylor-series
 200         (hayat )
 201                                         ;module definite-integration
 202         (defint
 203           residu )
 204                                         ;module plotting
 205         #+lispm
 206         (pltwin
 207           plotll                        ; fix the instance
 208           plot
 209           iffun
 210           plot3d )
 211                                         ;module trigonometry
 212         (trigi
 213           trigo
 214           trgred )
 215                                         ;module special-functions
 216         (specfn )
 217                                         ;module matrix-algebra
 218         (mat
 219           matrix )
 220                                         ;module determinants
 221         (sprdet
 222           newinv
 223           linnew
 224           newdet )
 225                                         ;module pattern-matching
 226         (schatc
 227           matcom
 228           matrun
 229           nisimp )
 230                                         ;module limits
 231         (tlimit
 232           limit )
 233                                         ;module solve
 234         (solve
 235           psolve
 236           algsys
 237           polyrz
 238           cpoly )
 239                                         ;  (:module tensor
 240                                         ;           (itensr
 241                                         ;           canten
 242                                         ;           gener
 243                                         ;           symtry ))
 244
 245                                         ;module debugging
 246         (mtrace
 247          mdebug
 248          )
 249                                         ;module miscellaneous
 250         (scs
 251           asum
 252           fortra
 253           optim
 254           marray
 255           mdot
 256           irinte
 257           series
 258           numth
 259           laplac
 260           pade
 261           homog
 262           combin
 263           mstuff)
 264                                         ;module poisson-series
 265         (ratpoi
 266           pois2
 267           pois3 )
 268                                         ;module interaction-with-editor
 269         #+lispm
 270         (buffer1
 271           buffer2
 272           buffer)
 273
 274                                         ;module translated-packages
 275         #+(or lispm main-files-loaded)
 276         (nusum
 277           desoln
 278           elim
 279           trgsmp
 280           ode2
 281           invert
 282           hypgeo
 283           hyp
 284           todd-coxeter
 285           mactex
 286           plot
 287
 288         )
 289         (:load-source autol max_ext)
 290         (:progn
 291           (format t "~%Setting object path default to ~a"
 292                   (setf (get :maxima :object-path)
 293                         (probe-file (object 'clmacs)))))
 294         (:load-source version autol max_ext init_max1)
 295         ))
 296
 297
 298
 299 #+symbolics
 300 (cond ( (>= (si::get-system-version 'system) 349)
 301        (push :genera Lisp:*features*)
 302        (push :zlch lisp:*features*))
 303       (t (push :pre-genera lisp:*features*)))
 304
 305 #+ti
 306 (cond ((= (si::get-system-version ) 1)
 307        (push :tirel3 Lisp:*features*)))
 308
 309
 310 (setf (get :maxima-macros :source-path)(get :maxima :source-path))
 311 (setf (get :maxima-macros :object-path)(get :maxima :object-path))
 312 (setf (get :maxima-macros :make)
 313   '(  #-sloop sloop
 314                                         ;module declarations
 315     (lmdcls)
 316                                         ;module destructuring-let
 317     (letmac)
 318                                         ;module compatibility-macros1
 319      #-kcl generr
 320 ;     #+kcl serror
 321      #+kcl kclmac
 322      #+kcl (:load-source fundcl)
 323
 324     (clmacs
 325      )
 326                                         ;module compatibility-macros
 327     ( commac
 328       )
 329     #+symbolics method-compat
 330                                         ;module prerequisites
 331     mormac
 332      compat
 333                                         ;module fundamental-macros
 334     (defopt
 335      defcal
 336      maxmac )
 337                                         ;module utility-macros
 338     (mopers
 339      mforma
 340      )
 341                                         ;module other-macros
 342     (mrgmac
 343      procs
 344      rzmac
 345      strmac
 346      displm )
 347                                         ;module rat-macros
 348     (ratmac
 349      mhayat )
 350                                         ;module numerical-macros
 351     (numerm )
 352     (transm)
 353      #+kcl optimize
 354 ))
 355
 356 #+kcl
 357 (setq make::*system-p* t)
 358
 359
 360
 361 ;;minima
 362
 363
 364
 365 (setf (get :minima :source-path) "/usr/local/schelter/cl/foo.lisp")
 366 (setf (get :minima :object-path) "/usr/local/schelter/cl/o/foo.o")
 367 (setf (get :minima :make)
 368       '(  #-sloop sloop
 369                   (letmac)
 370                                         ;module compatibility-macros1
 371                   #+kcl (
 372                          ;serror
 373                          kclmac)
 374                   (clmacs
 375                     )
 376                                         ;module compatibility-macros
 377                   ( commac
 378                      )
 379
 380                   #+symbolics method-compat
 381
 382                   maxmac
 383                   compat
 384                   rzmac
 385                   ratmac
 386
 387                   (opers
 388                     utils
 389                     sumcon
 390                     sublis
 391                     runtim
 392                     merror
 393                     mformt
 394                     mutils
 395                     outmis
 396                     ar
 397                     misc )
 398                                         ;module commands
 399                   (comm
 400                     comm2 )
 401                                         ;module evaluator
 402                   (mlisp
 403                     mmacro
 404                     buildq )
 405                                         ;module simplification
 406                   (simp
 407                     float
 408                     csimp
 409                     csimp2
 410                     zero
 411                     logarc
 412                     rpart )
 413                                         ;module i-o
 414                   macsys
 415                   mload
 416                   suprv1
 417
 418
 419                                         ;module factoring
 420                   (lesfac
 421                     factor
 422                     algfac
 423                     nalgfa
 424                     ufact
 425                     result )
 426                                         ;module rational-functions
 427                   (rat3a
 428                     rat3b
 429                     rat3d
 430                     rat3c
 431                     rat3e
 432                     nrat4
 433                     ratout )
 434                   spgcd
 435                   nparse
 436                   displa
 437                   nforma
 438                   grind
 439                   mdot
 440                   trigi
 441                   compar
 442                   (:progn
 443                     (format t "~%Setting object path default to ~a"
 444                             (setf (get :maxima :object-path)
 445                                   (probe-file (object 'clmacs)))))
 446                   (:load-source version autol max_ext init_max1 )
 447                   ))
 448
 449 ;(in-package "MAXIMA")
 450 ;(let ((si::*defuns* '(defun defmfun))) (make-declare :maxima))
 451
 452 #+kcl
 453 (setf (get 'maxima::fixed-args :proclaim) #'(lambda (x)
 454                                       (setf (get x 'compiler::fixed-args)
 455                                             t)))