在ecilisp中编写一个计算器，可以通过定义函数来实现。以下是一个简单的例子：

(define (calculator)(display "Enter an expression (+, -, *, /): ")(let ((expression (read)))(let ((result (case expression((+) (+ (read) (read)))((-) (- (read) (read)))((*) (* (read) (read)))((/) (/ (read) (read)))))(display "Result: ")(display result))))

然后，你可以在ecilisp REPL中调用这个函数来使用计算器：

(calculator)

然后根据提示输入表达式（例如+，-，*，/），然后输入两个数字，计算器将计算并显示结果。