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