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 @@ ...@@ -7,7 +7,7 @@
;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;; ;;;
(ext:file-comment (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 @@ ...@@ -586,14 +586,6 @@
#+nil #+nil
(add-port-object *task-notify* nil *kernel-messages*)) (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: ;;;; Miscellaneous external functions:
......
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;; ;;;
(ext:file-comment (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 @@ ...@@ -18,7 +18,7 @@
;;; ;;;
(in-package "SYSTEM") (in-package "SYSTEM")
(use-package "EXTENSIONS") (use-package "EXTENSIONS")
(export '(get-system-info get-page-size)) (export '(get-system-info get-page-size os-init))
(pushnew :mach *features*) (pushnew :mach *features*)
(setq *software-type* "MACH/4.3BSD") (setq *software-type* "MACH/4.3BSD")
...@@ -33,6 +33,16 @@ ...@@ -33,6 +33,16 @@
(run-program "/usr/cs/etc/version" ; Site dependent??? (run-program "/usr/cs/etc/version" ; Site dependent???
nil :output stream)))) 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 ;;; GET-SYSTEM-INFO -- Interface
;;; ;;;
;;; Return system time, user time and number of page faults. For ;;; Return system time, user time and number of page faults. For
......
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;; ;;;
(ext:file-comment (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 @@ ...@@ -16,7 +16,7 @@
;;; ;;;
(in-package "SYSTEM") (in-package "SYSTEM")
(use-package "EXTENSIONS") (use-package "EXTENSIONS")
(export '(get-system-info get-page-size)) (export '(get-system-info get-page-size os-init))
(pushnew :sunos *features*) (pushnew :sunos *features*)
(setq *software-type* "SunOS") (setq *software-type* "SunOS")
...@@ -45,12 +45,14 @@ ...@@ -45,12 +45,14 @@
(subseq version-line (1+ second-space) third-space))))) (subseq version-line (1+ second-space) third-space)))))
*software-version*) *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 ;;; 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