(defun simetrico (x) (simetrico-aux x x 0 0)) (defun simetrico-aux (x+ x- -x+ -x-) (cond ((zerop x+) -x+) ((zerop x-) -x-) (t (simetrico-aux (1+ x+) (1- x-) (1+ -x+) (1- -x-)))))
(defun simetrico-aux (x+ x- -x+ -x-) (cond ((zerop x+) -x+) ((zerop x-) -x-) (t (simetrico-aux (1+ x+) (1- x-) (1+ -x+) (1- -x-)))))