(defun square (x) (* x x))

(defun sum-square-max-2 (a b c)
  (if (< a b)
      (if (< c a)
          (+ (square a) (square b))
          (+ (square c) (square b)))
      (if (< c b)
          (+ (square b) (square a))
          (+ (square c) (square a)))))

(defun sum-square-max-2 (a b c)
  (cond
    ((< c a b) (+ (square a) (square b)))
    ((< a c b) (+ (square c) (square b)))
    ((< c b a) (+ (square a) (square b)))
    (t         (+ (square c) (square a)))))