hg.stevelosh.com > cl-losh

--- a/losh.lisp	Mon Sep 19 23:55:12 2016 +0000
+++ b/losh.lisp	Mon Sep 19 23:57:56 2016 +0000
@@ -1120,9 +1120,9 @@
     (macroexpand-iterate '(averaging (+ x 10) :into avg))
     =>
     (PROGN
-     (FOR #:COUNT665 :FROM 0)
-     (FOR AVG :FIRST (+ X 10) :THEN
-      (/ (+ (* AVG #:COUNT665) (+ X 10)) (1+ #:COUNT665))))
+     (FOR #:COUNT630 :FROM 1)
+     (SUM (+ X 10) :INTO #:TOTAL631)
+     (FOR AVG = (/ #:TOTAL631 #:COUNT630)))

   "
   ;; Given a clause like (for foo in-whatever bar) we need to:
author	Steve Losh <steve@stevelosh.com>
date	Mon, 19 Sep 2016 23:57:56 +0000
parents	147d800c551e
children	66e02df8c0b3
branches/tags	(none)
files	losh.lisp