/[cmucl]/src/code/generic-site.lisp
ViewVC logotype

Contents of /src/code/generic-site.lisp

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.18 - (show annotations)
Fri Aug 14 12:36:42 2009 UTC (4 years, 8 months ago) by rtoy
Branch: MAIN
CVS Tags: sparc-tramp-assem-base, post-merge-intl-branch, intl-branch-working-2010-02-19-1000, unicode-string-buffer-impl-base, release-20b-pre1, release-20b-pre2, unicode-string-buffer-base, sparc-tramp-assem-2010-07-19, amd64-dd-start, intl-2-branch-base, GIT-CONVERSION, cross-sol-x86-merged, intl-branch-working-2010-02-11-1000, RELEASE_20b, release-20a-base, cross-sol-x86-base, snapshot-2010-12, snapshot-2010-11, snapshot-2011-09, snapshot-2011-06, snapshot-2011-07, snapshot-2011-04, snapshot-2011-02, snapshot-2011-03, snapshot-2011-01, pre-merge-intl-branch, snapshot-2010-05, snapshot-2010-04, snapshot-2010-07, snapshot-2010-06, snapshot-2010-01, snapshot-2010-03, snapshot-2010-02, snapshot-2010-08, cross-sol-x86-2010-12-20, intl-branch-2010-03-18-1300, RELEASE_20a, release-20a-pre1, snapshot-2009-11, snapshot-2009-12, cross-sparc-branch-base, intl-branch-base, HEAD
Branch point for: cross-sparc-branch, RELEASE-20B-BRANCH, unicode-string-buffer-branch, sparc-tramp-assem-branch, RELEASE-20A-BRANCH, amd64-dd-branch, unicode-string-buffer-impl-branch, intl-branch, cross-sol-x86-branch, intl-2-branch
Changes since 1.17: +3 -3 lines
Use :UP instead of :BACK.  And use the correct number of them.
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 ;;;
7 (ext:file-comment
8 "$Header: /tiger/var/lib/cvsroots/cmucl/src/code/generic-site.lisp,v 1.18 2009/08/14 12:36:42 rtoy Rel $")
9 ;;;
10 ;;; **********************************************************************
11 ;;;
12 ;;; This file is installed as "library:site-init" in binary
13 ;;; distributions of CMUCL.
14 ;;;
15 (in-package "SYSTEM")
16
17 ;;; Put your site name here...
18 (setq *short-site-name* "Unknown")
19 (setq *long-site-name* "Site name not initialized")
20
21 ;;; We would appreciate it if each site establishes a local maintainer who can
22 ;;; filter bug reports from novice users to make sure that they really have
23 ;;; found a bug. Fill in the maintainer's address here..
24 (when *herald-items*
25 (rplaca
26 (cdr (member :bugs *herald-items*))
27 '("Send questions and bug reports to your local CMUCL maintainer, " terpri
28 "or see <http://www.cons.org/cmucl/support.html>." terpri
29 "Loaded subsystems:" terpri)))
30
31 ;;; If you have sources installed on your system, un-comment the following form
32 ;;; and change it to point to the source location. This will allow the Hemlock
33 ;;; "Edit Definition" command and the debugger to find sources for functions in
34 ;;; the core.
35 ;;;
36 ;;; The definition below assumes the default tree structure in a CMUCL
37 ;;; distribution:
38 ;;;
39 ;;; top
40 ;;; bin/
41 ;;; lib/
42 ;;; man/
43 ;;; src/
44 ;;;
45 ;;; If your sources are located somewhere else, change this
46 ;;; accordingly.
47 #|
48 (setf (search-list "target:")
49 (list
50 (namestring
51 (make-pathname
52 :directory (pathname-directory
53 (merge-pathnames (make-pathname
54 :directory '(:relative :up :up
55 :up "src"))
56 (pathname lisp::*cmucl-core-path*)))))))
57 |#

  ViewVC Help
Powered by ViewVC 1.1.5