MUL2 - обобщённая функция умножения

(defgeneric mul2 (arg1 arg2)
 (:method ((n1 number) (n2 number))
  (* n1 n2)))

(mul2 3 4)
12
(mul2 #c(4 3) #c(-4 -3)) ; комплексные числа
#C(-7 -24)