(defun convertir (lista) (cond ((eq (cadar lista) '++) (cons (list (caar lista) '+ 1) (cdr lista))) ((eq (cadar lista) '--) (cons (list (caar lista) '- 1) (cdr lista))) ((eq (cadar lista) '+=) (cons (append (list (caar lista) '= (caar lista) '+) (cddar lista)) (cdr lista))) ((eq (cadar lista) '-=) (cons (append (list (caar lista) '= (caar lista) '-) (cddar lista)) (cdr lista))) ((eq (cadar lista) '*=) (cons (append (list (caar lista) '= (caar lista) '*) (cddar lista)) (cdr lista))) ((eq (cadar lista) '/=) (cons (append (list (caar lista) '= (caar lista) '/) (cddar lista)) (cdr lista))) ((eq (caar lista) '++) (cons (list (cadar lista) '+ 1) (cdr lista))) ) )