src/overload/numbers.lisp

   1
   2 (defmethod over-multv-inverse ((a number)) (/ a))
   3 (defmethod expt2n (a b) (expt a b))
   4
   5 (defmethod add2n ((a number) (b number)) (+ a b))
   6 (defmethod subtr2n ((a number) (b number)) (- a b))
   7 (defmethod mult2n ((a number) (b number)) (* a b))
   8 (defmethod divis2n ((a number) (b number)) (/ a b))
   9
  10 (defun over-sqrt (n)
  11   (if (= n -1)
  12     (complex 0 1)
  13     (sqrt n)))
  14
  15 (defun over-factorial (n)
  16   (declare (type (integer 0 *) n))
  17   (factorial n))
  18