home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / pcl / src-16f.lha / code / generic-site.lisp < prev    next >
Encoding:
Text File  |  1992-05-30  |  2.3 KB  |  58 lines
  1. ;;; -*- Mode: Lisp; Package: System -*-
  2. ;;;
  3. ;;; **********************************************************************
  4. ;;; This code was written as part of the CMU Common Lisp project at
  5. ;;; Carnegie Mellon University, and has been placed in the public domain.
  6. ;;; If you want to use this code or any part of CMU Common Lisp, please contact
  7. ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
  8. ;;;
  9. (ext:file-comment
  10.   "$Header: generic-site.lisp,v 1.5 92/05/30 12:56:53 ram Exp $")
  11. ;;;
  12. ;;; **********************************************************************
  13. ;;;
  14. ;;; Generic site specific initialization for CMU CL.  This can be used as a
  15. ;;; template for non-cmu "library:site-init" files.
  16. ;;;
  17. (in-package "SYSTEM")
  18.  
  19. ;;; Put your site name here...
  20. (setq *short-site-name* "Unknown")
  21. (setq *long-site-name* "Site name not initialized")
  22.  
  23. ;;; We would appreciate it if each site establishes a local maintainer who can
  24. ;;; filter bug reports from novice users to make sure that they really have
  25. ;;; found a bug.  Fill in the maintainer's address here..
  26. (setf (getf *herald-items* :bugs)
  27.       '("Send bug reports and questions to your local CMU CL maintainer, or to
  28. cmucl-bugs@cs.cmu.edu.
  29. Loaded subsystems:"))
  30.  
  31. ;;; The following Hemlock initializations will error if run in a core without
  32. ;;; hemlock.
  33. #+hemlock (progn
  34. ;;; If you have sources installed on your system, un-comment the following form
  35. ;;; and change it to point to the source location.  This will allow the Hemlock
  36. ;;; "Edit Definition" command to find sources for functions in the core.  If
  37. ;;; this doesn't work, check that first part of the translation really does
  38. ;;; have the correct prefix.
  39. ;;;
  40. #|
  41. (ed::add-definition-dir-translation
  42.  "/afs/cs.cmu.edu/project/clisp-1/sun4c_41/15/"
  43.  "<your source location here>")
  44. |#
  45.  
  46. ;;; Use standard X fonts for Hemlock, since the default ones may not work
  47. ;;; everywhere.  By default, Hemlock used 8x13 and a non-standard underline
  48. ;;; font, 8x13u (which is part of the distribution.)  Unfortunately, we don't
  49. ;;; have source for this font, since it was created by hand-editing the
  50. ;;; bitmaps.
  51. ;;;
  52. (hi:setv ed::open-paren-highlighting-font "*-courier-bold-r-normal--*-120-*")
  53. (hi:setv ed::default-font "*-courier-medium-r-normal--*-120-*")
  54. (hi:setv ed::active-region-highlighting-font
  55.      "*-courier-medium-o-normal--*-120-*")
  56.  
  57. ); #+hemlock
  58.