home *** CD-ROM | disk | FTP | other *** search
/ Dream 52 / Amiga_Dream_52.iso / RiscOS / APP / DEVS / LISP / CLISP.ZIP / CLisp / !CLisp / LSP / CONFIG next >
Lisp/Scheme  |  1995-01-02  |  2KB  |  40 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
  8.                         edit-file editor-tempfile))
  9.  
  10. (defun machine-type () "Acorn")
  11. (defun machine-version () "Risc PC, OS 3.5")
  12. (defun machine-instance () "Burwood's Risc PC")
  13.  
  14. (defun short-site-name () "Home")
  15. (defun long-site-name () "Burwood's Home, England")
  16.  
  17. ;; ENGLISH: (edit-file file) edits a file.
  18. ;; DEUTSCH: (edit-file file) editiert eine Datei.
  19. ;; FRANCAIS: (edit-file file) permet l'Θdition d'un fichier.
  20. (defun edit-file (file)
  21.   (shell (format nil "filer_run ~A" (truename file)))
  22. )
  23.  
  24. ;; ENGLISH: The temporary file LISP creates for editing:
  25. ;; DEUTSCH: Das temporΣre File, das LISP beim Editieren anlegt:
  26. ;; FRANCAIS: Fichier temporaire crΘΘ par LISP pour l'Θdition :
  27. (defun editor-tempfile ()
  28.   ; We write this instead of "<Wimp$ScrapDir>.lisptemp" in order to
  29.   ; make sure that all the components of (sys::getenv "Wimp$ScrapDir")
  30.   ; are treated as directory components.
  31.   (merge-pathnames "lisptemp" "<Wimp$ScrapDir>.")
  32. )
  33.  
  34. ;; ENGLISH: The list of directories where programs are searched on LOAD etc.:
  35. ;; DEUTSCH: Die Liste von Directories, in denen Programme bei LOAD etc. gesucht
  36. ;;          werden:
  37. ;; FRANCAIS: Liste de rΘpertoires o∙ chercher un fichier programme:
  38. (defparameter *load-paths* '(#"@.")) ; may add #"@.***." when this will be implemented
  39.  
  40.