# HG changeset patch # User Steve Losh # Date 1474329476 0 # Node ID 6aec014eb591703581338b1ea22da84f4b3b8e1d # Parent 147d800c551e9c6e06db78100cebed95c8455a5d Fix the docstring diff -r 147d800c551e -r 6aec014eb591 losh.lisp --- 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: