Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
cmucl
cmucl
Commits
8e89df14
Commit
8e89df14
authored
Jul 26, 1993
by
ram
Browse files
Add support for loading Motif stuff.
parent
27d4cd9a
Changes
1
Hide whitespace changes
Inline
Side-by-side
tools/config.lisp
View file @
8e89df14
...
...
@@ -7,7 +7,7 @@
;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;;
(
ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/tools/config.lisp,v 1.
3
1993/0
6/08 13:04:40 wlott
Exp $"
)
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/tools/config.lisp,v 1.
4
1993/0
7/26 15:16:03 ram
Exp $"
)
;;;
;;; **********************************************************************
;;;
...
...
@@ -18,6 +18,7 @@
(
block
abort
(
let
((
output-file
#p"library:lisp.core"
)
(
load-clm
t
)
(
load-clx
t
)
(
load-hemlock
t
)
(
other
()))
...
...
@@ -28,15 +29,19 @@
(
format
t
" 2: toggle loading of the CLX X library, currently ~
~:[dis~;en~]abled.~%"
load-clx
)
(
format
t
" 3: toggle loading the Hemlock editor, currently ~
(
format
t
" 3: toggle loading of Motif and the graphical debugger, ~
currently ~:[dis~;en~]abled.~
~:[~% (would force loading of CLX.)~;~]~%"
load-clm
load-clx
)
(
format
t
" 4: toggle loading the Hemlock editor, currently ~
~:[dis~;en~]abled.~
~:[~% (would force loading of CLX.)~;~]~%"
load-hemlock
load-clx
)
(
format
t
"
4
: specify some site-specific file to load.~@
(
format
t
"
5
: specify some site-specific file to load.~@
~@[ Current files:~%~{ ~S~%~}~]"
(
mapcar
#'
namestring
other
))
(
format
t
"
5
: configure according to current options.~%"
)
(
format
t
"
6
: abort the configuration process.~%"
)
(
format
t
"
6
: configure according to current options.~%"
)
(
format
t
"
7
: abort the configuration process.~%"
)
(
format
t
"~%Option number: "
)
(
force-output
)
(
flet
((
file-prompt
(
prompt
)
...
...
@@ -51,15 +56,18 @@
(
unless
(
setq
load-clx
(
not
load-clx
))
(
setq
load-hemlock
nil
)))
(
3
(
when
(
setq
load-
hemlock
(
not
load-
hemlock
))
(
when
(
setq
load-
clm
(
not
load-
clm
))
(
setq
load-clx
t
)))
(
4
(
when
(
setq
load-hemlock
(
not
load-hemlock
))
(
setq
load-clx
t
)))
(
5
(
setq
other
(
append
other
(
list
(
file-prompt
"File(s) to load ~
(can have wildcards): "
)))))
(
5
(
return
))
(
6
(
6
(
return
))
(
7
(
format
t
"~%Aborted.~%"
)
(
return-from
abort
))))))
...
...
@@ -67,6 +75,9 @@
(
when
load-clx
(
setf
*features*
(
delete
:no-clx
*features*
:test
#'
eq
))
(
load
"library:subsystems/clx-library"
))
(
when
load-clm
(
setf
*features*
(
delete
:no-clm
*features*
:test
#'
eq
))
(
load
"library:subsystems/clm-library"
))
(
when
load-hemlock
(
setf
*features*
(
delete
:no-hemlock
*features*
:test
#'
eq
))
(
load
"library:subsystems/hemlock-library"
))
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment