From 0db00c435232ebcf8e57eef17426129fa045f36b Mon Sep 17 00:00:00 2001 From: wlott <wlott> Date: Fri, 3 Jul 1992 00:09:31 +0000 Subject: [PATCH] Removed *task-data* and *task-notify* because they aren't used, and I have no idea what they should be changed to under mach 3.0. --- code/mach-os.lisp | 8 ++------ 1 file changed, 2 insertions(+), 6 deletions(-) diff --git a/code/mach-os.lisp b/code/mach-os.lisp index 09a932768..c40f6bb92 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.8 1992/03/26 03:21:16 wlott Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/mach-os.lisp,v 1.9 1992/07/03 00:09:31 wlott Exp $") ;;; ;;; ********************************************************************** ;;; @@ -40,13 +40,9 @@ ;;; that set up the argument blocks for the server interfaces. (defvar *task-self*) -(defvar *task-data*) -(defvar *task-notify*) (defun os-init () - (setf *task-self* (mach:mach-task_self)) - (setf *task-data* (mach:mach-task_data)) - (setf *task-notify* (mach:mach-task_notify))) + (setf *task-self* (mach:mach-task_self))) ;;; GET-SYSTEM-INFO -- Interface -- GitLab