1;;; -*- *cold-load:t; 1Mode:Common-Lisp; Package:SYSTEM-INTERNALS; Fonts:(CPTFONT CPTFONTB); Base:10. -*-*
 
1;;;                           RESTRICTED RIGHTS LEGEND

;;;Use, duplication, or disclosure by the Government is subject to
;;;restrictions as set forth in subdivision (c)(1)(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
;;;                                 MS 2151

;;; Copyright (C) 1986-1989 Texas Instruments Incorporated. All rights reserved.*

(DEFMACRO SEND (object operation &REST arguments)
  1"Send a message to OBJECT, with operation OPERATION and ARGUMENTS.  If the object is SELF,
   a special fast calling sequence is generated."*
  `(FUNCALL ,object ,operation . ,arguments))


(DEFMACRO LEXPR-SEND (&REST args)
  1"Send a message to OBJECT, with operation OPERATION and ARGUMENTS.
The last one of ARGUMENTS actually is a list of arguments, not one argument."*
  (DECLARE (ARGLIST object operation &REST arguments))
  `(APPLY . ,args))