home *** CD-ROM | disk | FTP | other *** search
/ High Voltage Shareware / high1.zip / high1 / DIR24 / CLISP.ZIP / CFGATHD.LSP < prev    next >
Lisp/Scheme  |  1993-09-12  |  2KB  |  47 lines
  1. ;;; ENGLISH: Site specific definitions, to be modified on installation
  2. ;;; DEUTSCH: Funktionen, die beim Transportieren zu ändern sind
  3. ;;; FRANCAIS: Fonctions dépendantes de l'installation
  4.  
  5. (in-package "LISP")
  6. (mapcar #'fmakunbound '(machine-type machine-version machine-instance
  7.                         short-site-name long-site-name editor-tempfile))
  8.  
  9. (defun machine-type () "Atari ST")
  10. (defun machine-version () "Mega ST 4")
  11. (defun machine-instance () "Instituts-Maschine Math. Institut II")
  12.  
  13. (defun short-site-name () "Karlsruhe")
  14. (defun long-site-name () "Zimmer 320, Mathe-Bau, Universität Karlsruhe, D-76131 Karlsruhe, Deutschland")
  15.  
  16. ;; ENGLISH: The name of the editor:
  17. ;; DEUTSCH: Der Name des Editors:
  18. ;; FRANCAIS: Nom de l'éditeur :
  19. (defparameter *editor* "E:\\LISP\\TEMPUS.PRG")
  20.  
  21. ;; ENGLISH: The temporary file LISP creates for editing:
  22. ;; DEUTSCH: Das temporäre File, das LISP beim Editieren anlegt:
  23. ;; FRANCAIS: Fichier temporaire créé par LISP pour l'édition :
  24. (defun editor-tempfile () "LISPTEMP.LSP")
  25.  
  26. ;; ENGLISH: The list of directories where programs are searched on LOAD etc.
  27. ;;          if device and directory are unspecified:
  28. ;; DEUTSCH: Die Liste von Directories, in denen Programme bei LOAD etc. gesucht
  29. ;;          werden, wenn dabei Laufwerk und Directory nicht angegeben ist:
  30. ;; FRANCAIS: Liste de répertoires où chercher un fichier lorsqu'un répertoire
  31. ;;           particulier n'est pas indiqué :
  32. (defparameter *load-paths*
  33.   '(#"E:\\LISP\\...\\" ; in allen Directories unterhalb von E:\LISP
  34.     #"A:"        ; erst im Current-Directory von Laufwerk A:
  35.     #"A:\\"      ; dann im Root-Directory von Laufwerk A:
  36.     #"A:\\...\\" ; dann in allen Directories von Laufwerk A:
  37.    )
  38. )
  39.  
  40. ;; ENGLISH: Also set the variable *default-time-zone* in DEFS1.LSP according
  41. ;;          to your time zone.
  42. ;; DEUTSCH: Setzen Sie auch die Variable *default-time-zone* in DEFS1.LSP
  43. ;;          auf die bei Ihnen gültige Zeitzone.
  44. ;; FRANCAIS: Dans DEFS1.LSP, affectez à *default-time-zone* la valeur
  45. ;;           correspondante à votre fuseau horaire.
  46.  
  47.