(eval original-exp)
(defun solve-arithmetic (equation) "Do the arithmetic for the right hand side." (mkexp (exp-lhs equation) '= (eval (exp-rhs equation))))
(eval-when situations &rest forms)
*read-eval
*read-eval*
(defun safe-read-from-string (string) (let ((*read-eval* nil)) (ignore-errors (read-from-string string))))
value
(values &rest values)
(defun optimisation-fixing () "..." (values))