Skip to content
Snippets Groups Projects
Commit 63aebd86 authored by dtc's avatar dtc
Browse files

Split the Gray Streams files out into a separate system so that they

can be compiled but not loaded.
parent 0137c570
No related branches found
No related tags found
No related merge requests found
...@@ -26,7 +26,7 @@ ...@@ -26,7 +26,7 @@
;;; ;;;
(ext:file-comment (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 ;;; 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 ;;; there was some portable make-system we could all agree to share for a
...@@ -512,24 +512,44 @@ and load your system with: ...@@ -512,24 +512,44 @@ and load your system with:
(cmucl-documentation t t () CMU) (cmucl-documentation t t () CMU)
(precom1 (dlisp) t (defs low cache fin dfun)) (precom1 (dlisp) t (defs low cache fin dfun))
(precom2 (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-class t t () CMU)
(gray-streams t t (gray-streams-class) CMU) (gray-streams t t (gray-streams-class) CMU)
)) ))
(defun compile-pcl (&optional m) (defun compile-pcl (&optional m)
(cond ((null m) (operate-on-system 'pcl :compile)) (cond ((null m)
((eq m :print) (operate-on-system 'pcl :compile () t)) (operate-on-system 'pcl :compile)
((eq m :query) (operate-on-system 'pcl :query-compile)) (operate-on-system 'gray-streams :compile))
((eq m :confirm) (operate-on-system 'pcl :confirm-compile)) ((eq m :print)
((eq m 't) (operate-on-system 'pcl :recompile)) (operate-on-system 'pcl :compile () t))
((listp m) (operate-on-system 'pcl :compile-from m)) ((eq m :query)
((symbolp m) (operate-on-system 'pcl :recompile-some `(,m))))) (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) (defun load-pcl (&optional m)
(cond ((null m) (operate-on-system 'pcl :load)) (cond ((null m)
((eq m :query) (operate-on-system 'pcl :query-load)))) (operate-on-system 'pcl :load))
((eq m :query)
(operate-on-system 'pcl :query-load))))
(defun bug-report-info (&optional (stream *standard-output*)) (defun bug-report-info (&optional (stream *standard-output*))
(format stream "~&PCL system date: ~A~ (format stream "~&PCL system date: ~A~
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment