anchor.diff:        ((= (argc) 2)
          (setf (xlib:screen-height *screen*) (parse-integer (args 0))
                (xlib:screen-width *screen*) (parse-integer (args 1)))))
  +
  +(defun randr-p ()
  +  (and (fboundp 'xlib:rr-query-version)
  +       (xlib:rr-query-version *display*)))
   
   (defmacro with-gensyms (syms &body body)
     `(let ,(mapcar #'(lambda (s) `(,s (gensym))) syms)
  
positive.code: 
    (xlib:intern-atom *display* :_MOTIF_WM_HINTS)
    (setf (xlib:window-event-mask *root*) '(:substructure-notify :substructure-redirect))
  
    (setf *last* (setf *curr* (first *windows*)))
    (focus *curr*)
  
negative.code: 	  (format t "~&configure-request: ~a ~a~%" c window)
  	  'processed)))))
  
  (when (randr-p)
    (defhandler :rr-screen-change-notify (width height)
      (setf (xlib:screen-width *screen*) width
  	  (xlib:screen-height *screen*) height)))
  
  ;; Restart functions
  (defmacro defrestart (name)
    (let ((fname (intern (concatenate 'string "RESTART-" (symbol-name name)))))
  