transcendental-lisp/lisp/object/multiple-methods.lisp

;; This is based on an example presented in "Let Over Lambda" by Doug Hoyte.

(defun counter-class ()
  (let ((counter 0))
    (lambda (msg)
      (case msg
        ((:inc) (setq counter (+ counter 1)))
        ((:dec) (setq counter (- counter 1)))))))
Refactor some lisp code and tests 2017-03-08 11:14:44 -05:00			`;; This is based on an example presented in "Let Over Lambda" by Doug Hoyte.`

Add more advanced lisp objects Added a class to compute compound interest. An alias for FUNCALL has been added: CALL Refactored some acceptance tests to load code from files. 2017-03-06 16:52:06 -05:00			`(defun counter-class ()`
			`(let ((counter 0))`
			`(lambda (msg)`
			`(case msg`
			`((:inc) (setq counter (+ counter 1)))`
			`((:dec) (setq counter (- counter 1)))))))`