I suggest taking a page from GBBopen's book and using something like:
(defmacro with-standard-optimization (&body body) `(locally (declare (optimize (speed 1) (safety 3) (debug 1))) ,@body))
(defun foo () (with-standard-optimization ...))
this has the advantage of not requiring the read time evaluation of #. which some view as a security risk.
On Mar 8, 2005, at 2:30 PM, Edi Weitz wrote:
New code: (EVAL-WHEN (EVAL COMPILE LOAD) (DEFVAR *STANDARD-SPEED-AND-SAFETY* '((SPEED 0) (SAFETY 3)))) (DEFUN FOO () (DECLARE (OPTIMIZE #.*STANDARD-SPEED-AND-SAFETY*)) ...)