anchor.diff:  (defun grouper (window)
     "Get the grouper function of a window if there is one."
     (and window (restart-case (find-if #'(lambda (f) (funcall f window)) *groupers*)
  -		(window-error () nil))))
  +		(window-error (c) nil))))
   
   (defun transient-for-p (transient parent)
     (let ((pid (window-id parent)))
  
positive.code: 
  (defun xclass (window) (multiple-value-bind (name class)
                             (restart-case (get-wm-class window)
                               (window-error ()
                                 (format t "~&No class on ~a~%" window)
                                 (values "" "I'm dead")))
                           class))
  
negative.code:   (let ((com (split-string command)))
      #+clisp (ext:run-program (first com) :arguments (rest com) :wait nil)
      #+sbcl (restart-case (sb-ext:run-program (first com) (rest com) :wait nil :search t)
                           (simple-error (c) (format t "~&Cannot execute ~s~%" (first com))))))
  
  (defun raise-or-run (program)
    "Raise (an existing window) or run a program."
  