Function: SINGLE-ROTATE-LEFT

Source

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