Personalize indentation for a specific lisp funciton

[Giannandrea Castaldi]

Hi,
I've defined a common lisp function,create-calculus, and I'd like to 
have a specific indentation instead of the default that is the following

(defmethod eval-cell ((column integer) row)
  (let ((cell (aref *spreadsheet* (- row 1) (- column 1))))
    (if (eq (aref cell 0) #\=)
        (let ((expr (remove #\= cell)))
          (funcall (create-calculus '+
                                    (create-calculus '-
                                                     (create-calculus '/
                                                                  
(create-calculus '* #'eval-operand)))) expr))
        (parse-integer cell))))

I'd like something similar this:

(defmethod eval-cell ((column integer) row)
  (let ((cell (aref *spreadsheet* (- row 1) (- column 1))))
    (if (eq (aref cell 0) #\=)
        (let ((expr (remove #\= cell)))
          (funcall (create-calculus '+
                      (create-calculus '-
                        (create-calculus '/
                          (create-calculus '* #'eval-operand)))) expr))
        (parse-integer cell))))

Any suggestion?

Thanks.

Giannandrea