From 67a57976facb1bebedde16a8a809c30a21c76ada Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Sun, 2 Oct 1994 23:35:31 +0000 Subject: [PATCH] Load PCL before CLX so that it can use PCL stuff. --- tools/worldload.lisp | 11 +++++------ 1 file changed, 5 insertions(+), 6 deletions(-) diff --git a/tools/worldload.lisp b/tools/worldload.lisp index ae33bce12..308b127d0 100644 --- a/tools/worldload.lisp +++ b/tools/worldload.lisp @@ -6,7 +6,7 @@ ;;; If you want to use this code or any part of CMU Common Lisp, please contact ;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; -;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/tools/worldload.lisp,v 1.78 1994/06/22 16:21:15 hallgren Exp $ +;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/tools/worldload.lisp,v 1.79 1994/10/02 23:35:31 ram Exp $ ;;; ;;; ********************************************************************** ;;; @@ -132,6 +132,10 @@ :environment-name (concatenate 'string (c:backend-name c:*backend*) " backend"))) +;;; PCL. +;;; +#-(or no-pcl runtime) (maybe-byte-load "pcl:pclload") + ;;; CLX. ;;; #-(or no-clx runtime) @@ -142,11 +146,6 @@ #-(or no-hemlock runtime) (maybe-byte-load "target:hemlock/hemlock-library") -;;; PCL. -;;; -#-(or no-pcl runtime) (maybe-byte-load "pcl:pclload") -; #+(and no-clm (not (or no-pcl no-clx))) (maybe-byte-load "code:inspect") - ;;; CLM. ;;; #-(or no-clm runtime) -- GitLab