From 63aebd866c881e851ee15e1afdeded93641bd10d Mon Sep 17 00:00:00 2001
From: dtc <dtc>
Date: Wed, 14 Jun 2000 06:22:25 +0000
Subject: [PATCH] Split the Gray Streams files out into a separate system so
 that they can be compiled but not loaded.

---
 pcl/defsys.lisp | 42 +++++++++++++++++++++++++++++++-----------
 1 file changed, 31 insertions(+), 11 deletions(-)

diff --git a/pcl/defsys.lisp b/pcl/defsys.lisp
index b0084697f..28def384a 100644
--- a/pcl/defsys.lisp
+++ b/pcl/defsys.lisp
@@ -26,7 +26,7 @@
 ;;;
 
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/defsys.lisp,v 1.22 2000/06/06 09:57:38 dtc Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/defsys.lisp,v 1.23 2000/06/14 06:22:25 dtc Exp $")
 ;;;
 ;;; Some support stuff for compiling and loading PCL.  It would be nice if
 ;;; there was some portable make-system we could all agree to share for a
@@ -512,24 +512,44 @@ and load your system with:
    (cmucl-documentation t			    t () CMU)
    (precom1     (dlisp)                             t (defs low cache fin dfun))
    (precom2     (dlisp)                             t (defs low cache fin dfun))
+   ))
 
+(defsystem gray-streams
+           *pcl-directory*
+  ;;
+  ;; file         load           compile      files which       port
+  ;;              environment    environment  force the
+  ;;                                          recompilation
+  ;;                                          of this file
+  ;;                                          
+  (
    (gray-streams-class  t            t            ()                   CMU)
    (gray-streams        t            t            (gray-streams-class) CMU)
    ))
 
 (defun compile-pcl (&optional m)
-  (cond ((null m)        (operate-on-system 'pcl :compile))
-	((eq m :print)   (operate-on-system 'pcl :compile () t))
-	((eq m :query)   (operate-on-system 'pcl :query-compile))
-	((eq m :confirm) (operate-on-system 'pcl :confirm-compile))
-	((eq m 't)       (operate-on-system 'pcl :recompile))        
-	((listp m)       (operate-on-system 'pcl :compile-from m))
-	((symbolp m)     (operate-on-system 'pcl :recompile-some `(,m)))))
+  (cond ((null m)
+	 (operate-on-system 'pcl :compile)
+	 (operate-on-system 'gray-streams :compile))
+	((eq m :print)
+	 (operate-on-system 'pcl :compile () t))
+	((eq m :query)
+	 (operate-on-system 'pcl :query-compile))
+	((eq m :confirm)
+	 (operate-on-system 'pcl :confirm-compile))
+	((eq m 't)
+	 (operate-on-system 'pcl :recompile)
+	 (operate-on-system 'gray-streams :recompile))
+	((listp m)
+	 (operate-on-system 'pcl :compile-from m))
+	((symbolp m)
+	 (operate-on-system 'pcl :recompile-some `(,m)))))
 
 (defun load-pcl (&optional m)
-  (cond ((null m)      (operate-on-system 'pcl :load))
-	((eq m :query) (operate-on-system 'pcl :query-load))))
-
+  (cond ((null m)
+	 (operate-on-system 'pcl :load))
+	((eq m :query)
+	 (operate-on-system 'pcl :query-load))))
 
 (defun bug-report-info (&optional (stream *standard-output*))
   (format stream "~&PCL system date: ~A~
-- 
GitLab