anchor.diff:         (pushnew (cons ,sc #'(lambda () ,@body)) *shortcuts* :test #'equal :key #'car))))
   
   (defmethod focus :before (window)
  -  (unless (win= window *curr*) (setf *last* *curr*))
  -  (setf *curr* window))
  +  (unless (null window)
  +    (unless (win= window *curr*) (setf *last* *curr*))
  +    (setf *curr* window)))
   
   (defmethod focus ((window window))
     (when (eql (window-map-state window) :viewable)
  
positive.code:             ((funcall test item hd) rtl)
              (t (cons hd rtl))))))
  
  (defun randomth (list) (nth (random (length list)) list))
  
  (defmacro defror (command)
    "Define a raise or run command."
  
negative.code:   (dolist (w window)
      (when (eql (window-map-state w) :viewable)
        (setf (window-priority w) :above)))
    (unless (null window)
      (set-input-focus *display* :pointer-root :pointer-root)))
  
  (defmethod focus :after (window) (display-finish-output *display*))
  
  