diff --git a/code/lispinit.lisp b/code/lispinit.lisp index 1fcc36e9eda66e0b8057d43e9fdaaa8f4d1eee7e..98f068c8d10b5e676c27d7d4f2eaf17c8c82601e 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 72da118551a4e2707451781fb6dabaff77a34f4d..f644f71676eacdf86b4b8cd79a416f63e5e8d149 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 c412c206ec5994d08138efc35774f9c82e9ceb0e..69c1a920163af6588ea6d8501f414b58299a340e 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 ;;;