From 95d57cc72644ae5d8cbbdbad9d110dd519dfe661 Mon Sep 17 00:00:00 2001 From: wlott <wlott> Date: Thu, 6 Sep 1990 19:44:47 +0000 Subject: [PATCH] Added CLX. Added switched (:no-xp, :no-hemlock, :no-clx) to keep from loading those parts. --- tools/worldload.lisp | 16 +++++++++++++--- 1 file changed, 13 insertions(+), 3 deletions(-) diff --git a/tools/worldload.lisp b/tools/worldload.lisp index a2d857546..e5d03a5f2 100644 --- a/tools/worldload.lisp +++ b/tools/worldload.lisp @@ -19,6 +19,7 @@ (setf (ext:search-list "mips:") '("c:mips/")) (setf (ext:search-list "assem:") '("lisp:assembly/")) (setf (ext:search-list "hem:") '("lisp:hemlock/")) +(setf (ext:search-list "clx:") '("lisp:clx/")) ;;; This must be here, because it's where assert-user-package is defined. (load "code:save") @@ -71,15 +72,21 @@ ;;; Load the pretty printer after the compiler, 'cause it compiles stuff ;;; at load time. +#-no-xp (load "code:xp") +#-no-xp (pprint-init) -#| ;;; CLX. ;;; +#-no-clx (load "clx:defsystem") -(load-clx (pathname "clx:")) +#-no-clx +(xlib:load-clx (pathname "clx:")) +#-no-clx +(load "code:clx-ext") +#| ;;; A hack to fix a bug in the X11 R3 server. This should go away when ;;; the server is fixed. ;;; @@ -94,8 +101,11 @@ ;;; Hemlock. ;;; +#-no-hemlock (load "hem:load-hem.lisp") +#-no-hemlock (load "hem:rompsite") ;Contains site-init stuff called at load time. +#-no-hemlock (hi::build-hemlock) #| @@ -166,7 +176,7 @@ Don't install any dir translations, 'cause we want the real things. :purify t :init-function #'initial-init-function :root-structures `(ed - ,hi::*global-command-table* + #-no-hemlock ,hi::*global-command-table* lisp::%top-level extensions:save-lisp ,lisp::fop-codes -- GitLab