Skip to content
Snippets Groups Projects
Commit 67a57976 authored by ram's avatar ram
Browse files

Load PCL before CLX so that it can use PCL stuff.

parent 99bd4c75
No related branches found
No related tags found
No related merge requests found
...@@ -6,7 +6,7 @@ ...@@ -6,7 +6,7 @@
;;; If you want to use this code or any part of CMU Common Lisp, please contact ;;; If you want to use this code or any part of CMU Common Lisp, please contact
;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; 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 @@ ...@@ -132,6 +132,10 @@
:environment-name (concatenate 'string (c:backend-name c:*backend*) :environment-name (concatenate 'string (c:backend-name c:*backend*)
" backend"))) " backend")))
;;; PCL.
;;;
#-(or no-pcl runtime) (maybe-byte-load "pcl:pclload")
;;; CLX. ;;; CLX.
;;; ;;;
#-(or no-clx runtime) #-(or no-clx runtime)
...@@ -142,11 +146,6 @@ ...@@ -142,11 +146,6 @@
#-(or no-hemlock runtime) #-(or no-hemlock runtime)
(maybe-byte-load "target:hemlock/hemlock-library") (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. ;;; CLM.
;;; ;;;
#-(or no-clm runtime) #-(or no-clm runtime)
......
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