* Personalize indentation for a specific lisp funciton
@ 2004-03-23 16:38 Giannandrea Castaldi
0 siblings, 0 replies; only message in thread
From: Giannandrea Castaldi @ 2004-03-23 16:38 UTC (permalink / raw)
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
^ permalink raw reply [flat|nested] only message in thread
only message in thread, other threads:[~2004-03-23 16:38 UTC | newest]
Thread overview: (only message) (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
2004-03-23 16:38 Personalize indentation for a specific lisp funciton Giannandrea Castaldi
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).