Мой второй подход к снаряду (practical common lisp). Синонимические конструкции из javascript и common lisp для самоободрения.

var o = (function () {
    var count = 0;

    return [function () {
        return count += 1;
    }, function () {
        return count -= 1;
    }, function () {
        return count;
    }];
}());

(defparameter *o* (let ((count 0))
					(list 
					 #'(lambda () (incf count))
					 #'(lambda () (decf count))
					 #'(lambda () count))))