Expanded dlambda example some more

lisp/dlambda.lisp

@@ -1,8 +1,9 @@
-(defun map (fn ls)
+(defun mapcar (fn ls)
   (if (null ls)
     ()
-    (cons (funcall fn (first ls))
+    (cons
-          (map fn (rest ls))
+      (funcall fn (first ls))
+      (mapcar fn (rest ls))
     )
   )
 )
@@ -17,7 +18,7 @@
           (quote case)
           (cons
             (quote (first arguments))
-            (map
+            (mapcar
               (lambda (method)
                 (cons
                   (first method)
@@ -29,7 +30,12 @@
                           (quote lambda)
                           (rest method)
                         )
-                        (list (quote (rest arguments)))
+                        (list
+                          (if (equal t (car method))
+                            (quote arguments)
+                            (quote (rest arguments))
+                          )
+                        )
                       )
                     )
                   )

lisp/fruit-counter.lisp

@@ -1,60 +1,96 @@
 (load "dlambda.lisp")
 
-(defun fruit-counter (initial-count)
+(defun counter (initial-count)
-
+  (let ((count initial-count))
-  (let ((apple-count initial-count)
-        (banana-count initial-count)
-        (coconut-count initial-count))
 
     (eval
       (dlambda
 
-        (:inc-apple ()
+        (:inc ()
-          (setf apple-count (+ apple-count 1))
+          (setf count (+ count 1))
         )
 
-        (:dec-apple ()
+        (:dec ()
-          (setf apple-count (- apple-count 1))
+          (setf count (- count 1))
         )
 
-        (:get-apple ()
+        (:get ()
-          apple-count
+          count
         )
 
-        (:set-apple (value)
+        (:set (value)
-          (setf apple-count value)
+          (setf count value)
         )
 
-        (:inc-banana ()
+      )
-          (setf banana-count (+ banana-count 1))
     )
 
-        (:dec-banana ()
+  )
-          (setf banana-count (- banana-count 1))
+)
+
+(defun fruit-counter (initial-count)
+
+  (let ((apple-counter (counter initial-count))
+        (banana-counter (counter initial-count))
+        (coconut-counter (counter initial-count)))
+
+    (eval
+      (dlambda
+
+        (:inc-apples ()
+          (funcall apple-counter :inc)
         )
 
-        (:get-banana ()
+        (:dec-apples ()
-          banana-count
+          (funcall apple-counter :dec)
         )
 
-        (:set-banana (value)
+        (:get-apples ()
-          (setf banana-count value)
+          (funcall apple-counter :get)
         )
 
-        (:inc-coconut ()
+        (:set-apples (value)
-          (setf coconut-count (+ coconut-count 1))
+          (funcall apple-counter :set value)
         )
 
-        (:dec-coconut ()
+        (:inc-bananas ()
-          (setf coconut-count (- coconut-count 1))
+          (funcall banana-counter :inc)
         )
 
-        (:get-coconut ()
+        (:dec-bananas ()
-          coconut-count
+          (funcall banana-counter :dec)
         )
 
-        (:set-coconut (value)
+        (:get-bananas ()
-          (setf coconut-count value)
+          (funcall banana-counter :get)
+        )
+
+        (:set-bananas (value)
+          (funcall banana-counter :set value)
+        )
+
+        (:inc-coconuts ()
+          (funcall coconut-counter :inc)
+        )
+
+        (:dec-coconuts ()
+          (funcall coconut-counter :dec)
+        )
+
+        (:get-coconuts ()
+          (funcall coconut-counter :get)
+        )
+
+        (:set-coconuts (value)
+          (funcall coconut-counter :set value)
+        )
+
+        (t (&rest arguments)
+          (list
+            'apples   (funcall apple-counter :get)
+            'bananas  (funcall banana-counter :get)
+            'coconuts (funcall coconut-counter :get)
+          )
         )
 
       )
@@ -66,7 +102,7 @@
 ; Create an instance
 ; 
 ; usage: 
-;   ~ (my-counter :set-apple 23)
+;   ~ (my-counter :set-apples 23)
 ;   23
 ;
 (let ((instance (fruit-counter 0)))
@@ -76,7 +112,7 @@
 ; Another way
 ; 
 ; usage: 
-;   ~ (funcall my-counter2 :set-apple 23)
+;   ~ (funcall my-counter2 :set-apples 23)
 ;   23
 ;
 (setf my-counter2 (fruit-counter 10000))