xlib:<mumble>-equal

[Kerry Kimbrough <Kimbrough@dsg.csc.ti.com>]

The specification for these predicates is not clear. Should they return true iff
the two drawable/font/gcontext/etc. objects are EQ (the current implementation)?
Or should they return true iff the two objects name the same server resource?

The mere existence of these functions implies that the latter definition was
intended. This might be implemented as:

	(defun mumble-equal (mumble1 mumble2)
	  (and
	    (eq
	      (mumble-id mumble1)
	      (mumble-id mumble2))
	    
	    (display-equal
	      (mumble-display mumble1)
	      (mumble-display mumble2))))

where:

	(defun display-equal (display1 display2)
	  (and
	    (equalp
	      (display-host display1)
	      (display-host display2))
	    
	    (=
	      (display-display display1)
	      (display-display display2))))