;;; -*- Mode:Common-Lisp; Package:X11; Base:10; Syntax:COMMON-LISP; Fonts:(MEDFNB HL12B HL12BI) -*-

;;;                           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
;;;                                 MS 2151
;;;
;;; Copyright (C) 1987, Texas Instruments Incorporated. All rights reserved.

;;; Change history:
;;;
;;;  Date      Author	Description
;;; -------------------------------------------------------------------------------------
;;; 10/06/88    LGO	Implement the no-operation request
;;;  19*/219*/88    1LGO*	1Move test functions to the test directory*
;;;  1/21/88    TWE	Changed gcontext-validate to not alter the gcontext.


(defun gcontext-validate (gcontext drawable)
  (cond ((eq (gcontext.trait gcontext) (drawable.trait drawable))
         ;; This used to reference the clip-id (not the clip-mask) and I don't
         ;; have any idea why one would want to do this, so I commented it out
         ;; (TWE)
	 ;;(setf (gcontext.clip-mask gcontext) (drawable.clip-mask drawable))
	 t)
	(t
	 (Bad-Match)
	 nil)))

(defreq no-operation ()
  nil)