anchor.diff:  
   (defun transient-for-managed-p (window)
     (loop for id in (xlib:get-property window :WM_TRANSIENT_FOR)
  -	  thereis (find id *windows* :key #'xlib:window-id)))
  +          thereis (find id *windows* :key #'xlib:window-id)))
   
   (defun plus (window)
     "Add window to the list of managed windows."
  
positive.code:   (let ((win (find (if class class (x11-capitalize program))
                     *windows* :test #'string-equal :key #'xclass)))
      (if win
  	(focus win)
  	(run program))))
  
  (defun send-message (window type &rest data)
    (xlib:send-event window :client-message nil :window window
  
negative.code:          (sb-unix:unix-access filename sb-unix:x_ok)))
    #+clisp
    (not (zerop (logand (posix:convert-mode (posix:file-stat-mode (posix:file-stat pathname)))
                        (posix:convert-mode '(:xusr :xgrp :xoth)))))
    #-(or sbcl clisp) t)
  
  (defun getenv (var) #+sbcl (sb-ext:posix-getenv var) #+clisp (ext:getenv var))
  