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