archive/src/cl-maxima.system

   1 ;;; -*-  Mode: Lisp; Package: USER; Syntax: Common-Lisp; Base: 10 -*- ;;;;
   2
   3 ;;This file contains logical directory information for the LISPM.
   4
   5 ;;        TO MAKE MAXIMA FOR LISPM
   6
   7 ;;1) Adjust the pathnames in this file
   8 ;;2) Load this file.
   9 ;;3) (make::make :maxima :recompile t :batch t)
  10
  11 ;;3a) Copy the documentation and test files (see command in bin/copy-doc.lisp)
  12
  13 ;; Try some of the test files.  You can try a number of them using the
  14 ;; macsyma form at the end of copy-doc.lisp
  15
  16 ;;4) After rebooting  load this file, (make:make :maxima), gc,
  17 ;;   and save the band.
  18
  19 (defvar *logical-source*  "cl-maxima-source:maxima;foo.lisp")
  20 (defvar *logical-object*
  21     (format nil "cl-maxima-object:maxima;foo.~a"
  22             #+ti "xld" #+symbolics "bin"))
  23
  24 ;;;******Start Editing here For Other Sites ********* You want to
  25 ;;;replace the :physical-host keyword args, and the second part of each
  26 ;;;translation pair (ie. the physical pathname).  We have used different
  27 ;;;logical host names, to allow keeping logically different sections of
  28 ;;;the code on different hosts.  Also since we wanted "logically
  29 ;;;different" directories sometimes to be kept on the same physical
  30 ;;;machine in the same physical directory, we required separate logical
  31 ;;;hosts since distinct logical directories on the same logical host
  32 ;;;can't map to the same physical directory (wrecks back translating).
  33
  34
  35 #+ti
  36 (progn
  37   (fs:set-logical-pathname-host
  38     "maxima-documentation" ':physical-host "MAX"
  39     ':translations '(("maxima" "MAXIMA.DOCUMENTATION;" )   ;;ABOUT 500 blocks
  40                      ("test" "MAXIMA.TEST;")
  41                      ))
  42
  43   (cond ((eql (si:get-system-version) 3)
  44          (fs:set-logical-pathname-host
  45            "Cl-maxima-source" ':physical-host "rascal"   ':translations '(("maxima" "/usr2/maxima/src/")))
  46          (fs:set-logical-pathname-host
  47            "Cl-maxima-object" ':physical-host "clug"
  48            ':translations '(("maxima" "MAXIMA.OBJECT;"))))
  49         (t
  50          (fs:set-logical-pathname-host
  51            "Cl-maxima-source" ':physical-host "MAX"
  52            ':translations '(("maxima" "MAXIMA.source;")))
  53          (fs:set-logical-pathname-host
  54            "Cl-maxima-object" ':physical-host "MAX"     ;;about 2500 blocks
  55            ':translations '(("maxima" "MAXIMA.OBJECT;"))))))
  56
  57 #+symbolics
  58 (progn
  59   (fs:set-logical-pathname-host
  60     "Cl-maxima-source" ':physical-host "rascal"  ':translations '(("maxima" "/usr2/maxima/src/")))
  61
  62   (fs:set-logical-pathname-host
  63     "Cl-maxima-object" ':physical-host "haskell"
  64     ':translations '(("maxima" "MAXIMA>rel7-object>"))) ;;about 2500 blocks
  65
  66   (fs:set-logical-pathname-host
  67     "maxima-documentation" ':physical-host "haskell"
  68     ':translations '(("maxima" "MAXIMA>DOCUMENTATION>" )   ;;ABOUT 500 blocks
  69                      ("test" "MAXIMA>TEST>")
  70                      ))
  71   )
  72
  73 (load "cl-maxima-source:maxima;sysdef.lisp")
  74
  75
  76
  77