|
From: | Giannandrea Castaldi |
Subject: | Personalize indentation for a specific lisp funciton |
Date: | Tue, 23 Mar 2004 17:38:51 +0100 |
User-agent: | Mozilla/5.0 (X11; U; Linux i686; en-US; rv:1.5) Gecko/20031219 |
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
[Prev in Thread] | Current Thread | [Next in Thread] |