/[cmucl]/src/tools/config.lisp
ViewVC logotype

Contents of /src/tools/config.lisp

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.6 - (hide annotations)
Wed Jun 18 09:23:08 2003 UTC (10 years, 10 months ago) by gerd
Branch: MAIN
Changes since 1.5: +2 -2 lines
	Remove package nicknames USER from COMMON-LISP-USER.  Add a new
	package COMMON-LISP which LISP uses, so that COMMON-LISP no longer
	has the non-ANSI nickname LISP.

	To bootstrap, use boot13.lisp as target:bootstrap.lisp with pmai's
	build scripts, and do a full compile.

	* src/bootfiles/18e/boot13.lisp: Change for all the package
	changes.

	* src/code/exports.lisp: New package common-lisp,
	which lisp uses.

	* src/tools/worldload.lisp:
	* src/tools/setup.lisp: Use cl-user instead of user.
	Use lisp:: instead of cl::.

	* src/tools/worldcom.lisp:
	* src/tools/snapshot-update.lisp:
	* src/tools/pclcom.lisp:
	* src/tools/mk-lisp:
	* src/tools/hemcom.lisp:
	* src/tools/config.lisp:
	* src/tools/comcom.lisp:
	* src/tools/clxcom.lisp:
	* src/tools/clmcom.lisp:
	* src/pcl/defsys.lisp:
	* src/motif/lisp/initial.lisp:
	* src/interface/initial.lisp:
	* src/hemlock/lispmode.lisp (setup-lisp-mode):
	Use cl-user instead of user.

	* src/code/save.lisp (assert-user-package):
	* src/code/print.lisp (%with-standard-io-syntax): Find
	cl-user package instead of user.

	* src/code/package.lisp (package-locks-init): Add lisp.
	(package-init): Don't add user nickname to cl-user.

	* src/code/ntrace.lisp (*trace-encapsulate-package-names*):
	Add common-lisp.

	* src/code/hash.lisp (toplevel):
	* src/code/hash-new.lisp (toplevel): Use in-package :lisp
	instead of :common-lisp.

	* src/code/float-trap.lisp (sigfpe-handler): Don't
	qualify floating-point-inexact with ext:.

	* src/pcl/simple-streams/strategy.lisp (sc):
	* src/pcl/simple-streams/null.lisp (null-read-char):
	* src/pcl/simple-streams/internal.lisp (allocate-buffer)
	(free-buffer):
	* src/pcl/simple-streams/impl.lisp (%check, %read-line)
	(%peek-char, %read-byte):
	* src/pcl/simple-streams/file.lisp (open-file-stream)
	(device-close):
	* src/pcl/simple-streams/classes.lisp (simple-stream)
	(device-close):
	* src/pcl/macros.lisp (toplevel):
	* src/pcl/braid.lisp (lisp::sxhash-instance):
	* src/pcl/env.lisp (toplevel):
	* src/compiler/generic/objdef.lisp (symbol-hash):
	* src/code/stream.lisp (read-sequence, write-sequence):
	* src/code/macros.lisp (defmacro, deftype):
	* src/code/eval.lisp (interpreted-function):
	* src/code/defstruct.lisp (defstruct):
	* src/code/debug.lisp (debug-eval-print): Use lisp:: instead
	of cl::.
1 ram 1.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 gerd 1.6 "$Header: /tiger/var/lib/cvsroots/cmucl/src/tools/config.lisp,v 1.6 2003/06/18 09:23:08 gerd Exp $")
11 ram 1.1 ;;;
12     ;;; **********************************************************************
13     ;;;
14     ;;; Utility to load subsystems and save a new core.
15     ;;;
16 gerd 1.6 (in-package "CL-USER")
17 ram 1.1
18    
19     (block abort
20     (let ((output-file #p"library:lisp.core")
21 dtc 1.5 (load-gray-streams t)
22 ram 1.4 (load-clm t)
23 ram 1.1 (load-clx t)
24     (load-hemlock t)
25     (other ()))
26     (loop
27     (fresh-line)
28     (format t " 1: specify result file (currently ~S)~%"
29     (namestring output-file))
30 dtc 1.5 (format t " 2: toggle loading of the Gray Stream library, currently ~
31     ~:[dis~;en~]abled.~%"
32     load-gray-streams)
33     (format t " 3: toggle loading of the CLX X library, currently ~
34 wlott 1.2 ~:[dis~;en~]abled.~%"
35 ram 1.1 load-clx)
36 dtc 1.5 (format t " 4: toggle loading of Motif and the graphical debugger, ~
37 ram 1.4 currently ~:[dis~;en~]abled.~
38     ~:[~% (would force loading of CLX.)~;~]~%"
39     load-clm load-clx)
40 dtc 1.5 (format t " 5: toggle loading the Hemlock editor, currently ~
41 wlott 1.2 ~:[dis~;en~]abled.~
42     ~:[~% (would force loading of CLX.)~;~]~%"
43     load-hemlock load-clx)
44 dtc 1.5 (format t " 6: specify some site-specific file to load.~@
45 ram 1.1 ~@[ Current files:~%~{ ~S~%~}~]"
46     (mapcar #'namestring other))
47 dtc 1.5 (format t " 7: configure according to current options.~%")
48     (format t " 8: abort the configuration process.~%")
49 ram 1.1 (format t "~%Option number: ")
50     (force-output)
51     (flet ((file-prompt (prompt)
52     (format t prompt)
53     (force-output)
54     (pathname (string-trim " " (read-line)))))
55     (let ((res (ignore-errors (read-from-string (read-line)))))
56     (case res
57     (1
58     (setq output-file (file-prompt "Result core file name: ")))
59     (2
60 dtc 1.5 (setq load-gray-streams (not load-gray-streams)))
61     (3
62 ram 1.1 (unless (setq load-clx (not load-clx))
63     (setq load-hemlock nil)))
64 dtc 1.5 (4
65 ram 1.4 (when (setq load-clm (not load-clm))
66     (setq load-clx t)))
67 dtc 1.5 (5
68 ram 1.1 (when (setq load-hemlock (not load-hemlock))
69     (setq load-clx t)))
70 dtc 1.5 (6
71 ram 1.1 (setq other
72     (append other
73     (list (file-prompt "File(s) to load ~
74     (can have wildcards): ")))))
75 dtc 1.5 (7 (return))
76     (8
77 ram 1.1 (format t "~%Aborted.~%")
78     (return-from abort))))))
79    
80     (gc-off)
81 dtc 1.5 (when load-gray-streams
82     (load "library:subsystems/gray-streams-library"))
83 ram 1.1 (when load-clx
84 wlott 1.3 (setf *features* (delete :no-clx *features* :test #'eq))
85 ram 1.1 (load "library:subsystems/clx-library"))
86 ram 1.4 (when load-clm
87     (setf *features* (delete :no-clm *features* :test #'eq))
88     (load "library:subsystems/clm-library"))
89 ram 1.1 (when load-hemlock
90 wlott 1.3 (setf *features* (delete :no-hemlock *features* :test #'eq))
91 ram 1.1 (load "library:subsystems/hemlock-library"))
92     (dolist (f other) (load f))
93    
94     (setq *info-environment*
95     (list* (make-info-environment :name "Working")
96     (compact-info-environment (first *info-environment*)
97     :name "Auxiliary")
98     (rest *info-environment*)))
99    
100     (when (probe-file output-file)
101     (multiple-value-bind
102     (ignore old new)
103     (rename-file output-file
104     (concatenate 'string (namestring output-file)
105     ".BAK"))
106     (declare (ignore ignore))
107     (format t "~&Saved ~S as ~S.~%" (namestring old) (namestring new))))
108    
109     ;;
110     ;; Enable the garbage collector. But first fake it into thinking that
111     ;; we don't need to garbage collect. The save-lisp is going to call
112     ;; purify so any garbage will be collected then.
113     (setf lisp::*need-to-collect-garbage* nil)
114     (gc-on)
115     ;;
116     ;; Save the lisp.
117     (save-lisp output-file)))
118    
119     (quit)

  ViewVC Help
Powered by ViewVC 1.1.5