;;; -*- 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  *program-number*     #x20118650)
(DEFCONSTANT  *version-number*              1)
(DEFCONSTANT  *procedure-number*            1)

Ï4(Defun calltestÏ* Ï4()
Ï2  "This function tests to make sure callrpc Ï*Ï*oÏ2n the LISP side and registerrpc on the MAC side work.."Ï*
   (CALLRPC 'mac
	    *program-number*
	    *version-number*
	    *procedure-number*
	    :xdr-void
	    nil
	    :xdr-integer)
Ï1   Ï*);


















