home *** CD-ROM | disk | FTP | other *** search
/ GEMini Atari / GEMini_Atari_CD-ROM_Walnut_Creek_December_1993.iso / files / language / clisp / config.lsp < prev    next >
Encoding:
Lisp/Scheme  |  1993-10-23  |  960 b   |  27 lines
  1. ;;; Funktionen, die beim Transportieren zu ändern sind
  2.  
  3. (in-package "LISP")
  4. (mapcar #'fmakunbound '(machine-type machine-version machine-instance
  5.                         short-site-name long-site-name edit-file))
  6.  
  7. (defun machine-type () "Atari ST")
  8. (defun machine-version () "1040 ST/F")
  9. (defun machine-instance () "Heimgerät Bruno Haible")
  10.  
  11. (defun short-site-name () "Karlsruhe")
  12. (defun long-site-name () "Karlsruhe, Ritterstraße 42")
  13.  
  14. ;; (edit-file file) editiert ein File.
  15. (defun edit-file (file)
  16.   (execute "TEMPUS.PRG" ; das ist der Name des Editors
  17.            (namestring file t) ; file als String, im GEMDOS-Format
  18.            (round (* 0.99 (gc))) ; Editor kriegt 99% des freien Speichers
  19. ) )
  20.  
  21. ;; Das temporäre File, das LISP beim Editieren anlegt:
  22. (defparameter tempfile "LISPTEMP.LSP")
  23.  
  24. ;; Die Liste von Directories, in denen Programme bei LOAD etc. gesucht werden:
  25. (defparameter *load-paths* '(#"A:" #"A:\\" #"A:\\...\\"))
  26.  
  27.