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