Some Common Lisp compilers do not optimize the same way as others. The following expression is sometimes used:
(* -1 <form>)
when compilers often produce better code for this variant:
(- <form>)
Of course, the first is the Lisp analog of the FORTRAN idiom:
-1*<form>