From 9a3afc4216f604d44c22e08c07eb3877c123813c Mon Sep 17 00:00:00 2001
From: wlott <wlott>
Date: Sat, 29 Feb 1992 02:29:54 +0000
Subject: [PATCH] Moved OS-INIT into mumble-os.lisp

---
 code/lispinit.lisp | 10 +---------
 code/mach-os.lisp  | 14 ++++++++++++--
 code/sunos-os.lisp | 16 +++++++++-------
 3 files changed, 22 insertions(+), 18 deletions(-)

diff --git a/code/lispinit.lisp b/code/lispinit.lisp
index 1fcc36e9e..98f068c8d 100644
--- a/code/lispinit.lisp
+++ b/code/lispinit.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/lispinit.lisp,v 1.30 1992/02/21 21:59:55 wlott Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/lispinit.lisp,v 1.31 1992/02/29 02:29:50 wlott Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -586,14 +586,6 @@
   #+nil
   (add-port-object *task-notify* nil *kernel-messages*))
 
-;;; OS-Init initializes our operating-system interface.  It sets the values
-;;; of the global port variables to what they should be and calls the functions
-;;; that set up the argument blocks for the server interfaces.
-
-(defun os-init ()
-  (setf *task-self* (mach:mach-task_self))
-  (setf *task-data* (mach:mach-task_data))
-  (setf *task-notify* (mach:mach-task_notify)))
 
 
 ;;;; Miscellaneous external functions:
diff --git a/code/mach-os.lisp b/code/mach-os.lisp
index 72da11855..f644f7167 100644
--- a/code/mach-os.lisp
+++ b/code/mach-os.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/mach-os.lisp,v 1.6 1992/02/20 23:03:11 wlott Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/mach-os.lisp,v 1.7 1992/02/29 02:29:53 wlott Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -18,7 +18,7 @@
 ;;;
 (in-package "SYSTEM")
 (use-package "EXTENSIONS")
-(export '(get-system-info get-page-size))
+(export '(get-system-info get-page-size os-init))
 
 (pushnew :mach *features*)
 (setq *software-type* "MACH/4.3BSD")
@@ -33,6 +33,16 @@
 		 (run-program "/usr/cs/etc/version" ; Site dependent???
 			      nil :output stream))))
 
+;;; OS-Init initializes our operating-system interface.  It sets the values
+;;; of the global port variables to what they should be and calls the functions
+;;; that set up the argument blocks for the server interfaces.
+
+(defun os-init ()
+  (setf *task-self* (mach:mach-task_self))
+  (setf *task-data* (mach:mach-task_data))
+  (setf *task-notify* (mach:mach-task_notify)))
+
+
 ;;; GET-SYSTEM-INFO  --  Interface
 ;;;
 ;;;    Return system time, user time and number of page faults.  For
diff --git a/code/sunos-os.lisp b/code/sunos-os.lisp
index c412c206e..69c1a9201 100644
--- a/code/sunos-os.lisp
+++ b/code/sunos-os.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/sunos-os.lisp,v 1.3 1992/02/29 00:45:36 wlott Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/sunos-os.lisp,v 1.4 1992/02/29 02:29:54 wlott Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -16,7 +16,7 @@
 ;;;
 (in-package "SYSTEM")
 (use-package "EXTENSIONS")
-(export '(get-system-info get-page-size))
+(export '(get-system-info get-page-size os-init))
 
 (pushnew :sunos *features*)
 (setq *software-type* "SunOS")
@@ -45,12 +45,14 @@
 	      (subseq version-line (1+ second-space) third-space)))))
   *software-version*)
 
-;;; Decache version on save, because it might not be the same when we restart.
-;;;
-(pushnew #'(lambda ()
-	     (setq *sofware-version* nil))
-	 ext:*before-save-initializations*)
 
+;;; OS-INIT -- interface.
+;;;
+;;; Other OS dependent initializations.
+;;; 
+(defun os-init ()
+  ;; Decache version on save, because it might not be the same when we restart.
+  (setq *sofware-version* nil))
 
 ;;; GET-SYSTEM-INFO  --  Interface
 ;;;
-- 
GitLab