Skip to content
Snippets Groups Projects
Commit 9a3afc42 authored by wlott's avatar wlott
Browse files

Moved OS-INIT into mumble-os.lisp

parent 4fd15ba5
No related branches found
No related tags found
No related merge requests found
......@@ -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:
......
......@@ -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
......
......@@ -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
;;;
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment