Function: DOUBLE-ROTATE-RIGHT

Source

(defun double-rotate-right (node)
  (with-slots (left) node
    (setf left (single-rotate-left left))
    (single-rotate-right node)))