Searched refs:remsimp (Results 1 – 1 of 1) sorted by relevance
385 (setq l (nconc (mapcar #'(lambda (x) (remsimp (meval x)))729 (defun remsimp (e) function730 (if (atom e) e (cons (delsimp (car e)) (mapcar #'remsimp (cdr e)))))