Here are site-init.lisp and the error messages I got when I ran cmucl
with it.  If I replace "src" with "compiler/", cmucl prints the banner
without error messages.

Bill
_____
Script started on Mon 28 Jul 2003 08:58:24 AM EDT
%cat site-init.lisp
;;; -*- 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.
;;;
(ext:file-comment
  "$Header: /home/CVS-cmucl/src/code/generic-site.lisp,v 1.15 2003/02/05 
14:41:11 emarsden Exp $")
;;;
;;; **********************************************************************
;;;
;;; This file is installed as "library:site-init" in binary
;;; distributions of CMUCL.
;;;
(in-package "SYSTEM")

;;; Put your site name here...
(setq *short-site-name* "Unknown")
(setq *long-site-name* "Site name not initialized")

;;; We would appreciate it if each site establishes a local maintainer who can
;;; filter bug reports from novice users to make sure that they really have
;;; found a bug.  Fill in the maintainer's address here..
(rplaca
 (cdr (member :bugs *herald-items*))
 '("Send questions and bug reports to your local CMUCL maintainer, " terpri
   "or see <http://www.cons.org/cmucl/support.html>." terpri
   "Loaded subsystems:" terpri))

;;; If you have sources installed on your system, un-comment the following form
;;; and change it to point to the source location.  This will allow the Hemlock
;;; "Edit Definition" command and the debugger to find sources for functions in
;;; the core.

(setf (search-list "target:") "/opt/cmucl-18e/src")

%cmucl


Error in function COMMON-LISP::CONVERT:
   Search-lists cannot expand into pathnames that have a name, type, or 
version specified:
  #p"/opt/cmucl-18e/src"

Restarts:
  0: [CONTINUE] Return NIL from load of "library:site-init".
  1: [ABORT   ] Skip remaining initializations.

Debug  (type H for help)

(COMMON-LISP::CONVERT "/opt/cmucl-18e/src")
Source: Error finding source: 
Error in function DEBUG::GET-FILE-TOP-LEVEL-FORM:  Source file no longer exists:
  target:code/pathname.lisp.
0] ^DEnd-of-File on #<Stream for the Terminal>
Error flushed ...
0] (quit)
%
script done on Mon 28 Jul 2003 09:00:24 AM EDT


Please reply to [EMAIL PROTECTED]



Reply via email to