home *** CD-ROM | disk | FTP | other *** search
/ Il CD di internet / CD.iso / SOURCE / D / CLISP / CLISPSRC.TAR / clisp-1995-01-01 / src / cfglinux.lsp < prev    next >
Encoding:
Lisp/Scheme  |  1993-12-07  |  1.5 KB  |  42 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 () "AT Clone")
  11. (defun machine-version () "486/33")
  12. (defun machine-instance () "HeimgerΣt Bruno Haible")
  13.  
  14. (defun short-site-name () "Karlsruhe")
  15. (defun long-site-name () "Augartenstra▀e 40, D-76137 Karlsruhe, Deutschland")
  16.  
  17. ;; ENGLISH: The name of the editor:
  18. ;; DEUTSCH: Der Name des Editors:
  19. ;; FRANCAIS: Nom de l'Θditeur :
  20. (defparameter *editor* "vi")
  21.  
  22. ;; ENGLISH: (edit-file file) edits a file.
  23. ;; DEUTSCH: (edit-file file) editiert eine Datei.
  24. ;; FRANCAIS: (edit-file file) permet l'Θdition d'un fichier.
  25. (defun edit-file (file)
  26.   (shell (format nil "~A ~A" *editor* (truename file)))
  27. )
  28.  
  29. ;; ENGLISH: The temporary file LISP creates for editing:
  30. ;; DEUTSCH: Das temporΣre File, das LISP beim Editieren anlegt:
  31. ;; FRANCAIS: Fichier temporaire crΘΘ par LISP pour l'Θdition :
  32. (defun editor-tempfile ()
  33.   (merge-pathnames "lisptemp.lsp" (user-homedir-pathname))
  34. )
  35.  
  36. ;; ENGLISH: The list of directories where programs are searched on LOAD etc.:
  37. ;; DEUTSCH: Die Liste von Directories, in denen Programme bei LOAD etc. gesucht
  38. ;;          werden:
  39. ;; FRANCAIS: Liste de rΘpertoires o∙ chercher un fichier programme:
  40. (defparameter *load-paths* '(#"./" #"./**/" "~/**/"))
  41.  
  42.