Function: SINGLE-ROTATE-RIGHT

Source

(defun single-rotate-right (node)
  (let ((left (left node)))
    (setf (left node) (right left)
	  (right left) node)
    (adjust-height node)
    (adjust-height left)
    left))