Skip to content
Snippets Groups Projects
Commit 19849b94 authored by ram's avatar ram
Browse files

Load CLX and Hemlock from the combined -library files.

parent f3a13fe4
No related branches found
No related tags found
No related merge requests found
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;; ;;;
(ext:file-comment (ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/tools/worldload.lisp,v 1.45 1992/03/29 21:55:36 wlott Exp $") "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/tools/worldload.lisp,v 1.46 1992/05/22 19:12:15 ram Exp $")
;;; ;;;
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
...@@ -133,26 +133,12 @@ ...@@ -133,26 +133,12 @@
;;; CLX. ;;; CLX.
;;; ;;;
#-no-clx #-no-clx
(load "clx:defsystem") (load "clx:clx-library")
#-no-clx
(xlib:load-clx (pathname "clx:"))
#-no-clx
(load "code:clx-ext")
#-no-clx
(load "code:inspect")
;;; Hemlock. ;;; Hemlock.
;;; ;;;
#-no-hemlock #-no-hemlock
(load "tools:hemload.lisp") (load "lisp:hemlock/hemlock-library")
#-no-hemlock
(load "hem:rompsite") ;Contains site-init stuff called at load time.
#-no-hemlock
(hi::build-hemlock)
#-no-hemlock
(set '*hemlock-version*
(concatenate 'string *hemlock-version* " "
"(" *lisp-implementation-version* ")"))
#-(and no-clx no-hemlock) #-(and no-clx no-hemlock)
(purify :root-structures `(ed #-no-hemlock ,hi::*global-command-table*)) (purify :root-structures `(ed #-no-hemlock ,hi::*global-command-table*))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment