;;; -*- Mode:Common-Lisp; Package:USER; Fonts:(MEDFNT HL12B HL12I MEDFNT MEDFNB); Base:10 -*-
;;;
;;;                                    RESTRICTED RIGHTS LEGEND 
;;; Use,  duplication, or  disclosure  by  the  Government is subject to restrictions as set forth in
;;; subdivision (b)(3)(ii) of the Rights in Technical Data and Computer Software clause at 52.227-7013. 
;;;
;;;                                 TEXAS INSTRUMENTS INCORPORATED  
;;;                                        P.O. BOX 2909  
;;;                                     AUSTIN, TEXAS 78769  
;;; 
;;; Copyright (C) 1986, Texas Instruments Incorporated. All rights reserved.


(DEFCONSTANT  *register-program-number*     #x20118651)
(DEFCONSTANT  *register-version-number*              1)
(DEFCONSTANT  *register-procedure-number*            1)

Ï4(DEFUN register-testÏ* Ï4()Ï*
  "Ï2This function tests to make sure registerrpc Ï*oÏ2n the LISP side and callrpc on the MAC side work.Ï*."
  (REGISTERRPC   *register-program-number*
		 *register-version-number*
		 *register-procedure-number*
		 'get-current-time-in-universal-time
                 :xdr-void
		 :xdr-integer
		 :protocol :micronet
		 :name "Get-Universal-Time"
		 :server-id 'register-test)
Ï1   Ï*);

Ï4(DEFUN get-current-time-in-universal-time()Ï*
  (get-universal-time)
Ï2   );Ï*;Ï2get-current-in-universal-time


















