anchor.diff:  ;;; Library General Public License for more details.
   ;;;
   ;;; You should have received a copy of the GNU Library General Public
  -;;; License along with this library; if not, write to the 
  -;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, 
  +;;; License along with this library; if not, write to the
  +;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
   ;;; Boston, MA  02111-1307  USA.
   
   (in-package :clim-clx)
  
positive.code: 
        (xlib:draw-rectangle mask mask-gc 0 0 w h t)
        (setf (xlib:gcontext-foreground mask-gc) 0)
        
        (let ((gc (xlib:create-gcontext :drawable drawable)))
          (setf (xlib:gcontext-fill-style gc) :tiled
                (xlib:gcontext-tile gc) (port-lookup-mirror (port pm) pm)
  
negative.code: 	     i)
            (declare (type xlib:array-index i j))
            (setq elt (elt src i))
            (when (characterp elt)
              (setq elt (char-code elt)))
            (if (or (not (integerp elt))
                    (< elt min-char-index)
                    (> elt max-char-index))
                (progn
  