From 4b81b85db544767a6b9bb0547efda4886fed56e8 Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Thu, 22 Jul 1993 21:25:03 +0000 Subject: [PATCH] Load the CLM library file instead of individual fasls. --- tools/worldload.lisp | 24 ++---------------------- 1 file changed, 2 insertions(+), 22 deletions(-) diff --git a/tools/worldload.lisp b/tools/worldload.lisp index 520f97c7d..ac55b9045 100644 --- a/tools/worldload.lisp +++ b/tools/worldload.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/tools/worldload.lisp,v 1.60 1993/07/22 00:08:57 hallgren Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/tools/worldload.lisp,v 1.61 1993/07/22 21:25:03 ram Exp $") ;;; ;;; ********************************************************************** ;;; @@ -161,27 +161,7 @@ ;;; CLM. ;;; #-no-clm -(progn - (load "lisp:motif/lisp/initial") - (load "lisp:motif/lisp/internals") - (load "lisp:motif/lisp/transport") - (load "lisp:motif/lisp/events") - (load "lisp:motif/lisp/conversion") - - (load "lisp:motif/lisp/interface-glue") - (load "lisp:motif/lisp/xt-types") - (load "lisp:motif/lisp/string-base") - (load "lisp:motif/lisp/prototypes") - ;(load "lisp:motif/lisp/interface-build") - (load "lisp:motif/lisp/callbacks") - (load "lisp:motif/lisp/widgets") - (load "lisp:motif/lisp/main") - (load "lisp:interface/initial") - (load "lisp:interface/interface") - (load "lisp:interface/inspect")) - -#-no-clm (let ((interface:*interface-style* :tty)) - (load "lisp:interface/debug")) +(load "lisp:interface/clm-library") ;;; Don't include the search lists used for loading in the resultant core. ;;; -- GitLab