diff --git a/code/generic-site.lisp b/code/generic-site.lisp new file mode 100644 index 0000000000000000000000000000000000000000..574ea21bc119b5b08325eff4a2ce0e1e2bfb63ed --- /dev/null +++ b/code/generic-site.lisp @@ -0,0 +1,28 @@ +;;; -*- Mode: Lisp; Package: System -*- +;;; +;;; ********************************************************************** +;;; This code was written as part of the CMU Common Lisp project at +;;; Carnegie Mellon University, and has been placed in the public domain. +;;; If you want to use this code or any part of CMU Common Lisp, please contact +;;; Scott Fahlman or slisp-group@cs.cmu.edu. +;;; +(ext:file-comment + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/generic-site.lisp,v 1.1 1991/10/17 18:56:58 ram Exp $") +;;; +;;; ********************************************************************** +;;; +;;; Generic site specific initialization for CMU CL. This can be used as a +;;; template for non-cmu "library:site-init" files. +;;; +(in-package "SYSTEM") + +;;; Define the site to be undefined. +(setq *short-site-name* "Unknown") +(setq *long-site-name* "Site name not initialized") + +;;; Use standard X fonts for Hemlock, since the default ones may not work +;;; everywhere. +;;; +(hi:setv ed::open-paren-highlighting-font "*-courier-bold-r-normal--12-*") +(hi:setv ed::default-font "*-courier-medium-r-normal--12-*") +(hi:setv ed::active-region-highlighting-font "*-courier-medium-o-normal--12-*")