anchor.diff:  (in-package :clamp)
   
   (mac ado (&body body)
  -	"Evaluates each expression with it bound to the result of
  +  "Evaluates each expression with it bound to the result of
      the previous one. Returns the value of the last expression"
  -	(if (null body)
  -			  nil
  -			(single body)
  -			  (car body)
  -			:else
  -			  `(let it ,(car body)
  -					 (declare (ignorable it))
  -					 (ado ,@(cdr body)))))
  +  (if (null body)
  +        nil
  +      (single body)
  +        (car body)
  +      :else
  +        `(let it ,(car body)
  +           (declare (ignorable it))
  +           (ado ,@(cdr body)))))
   
   (mac accum (accfn &body body)
     "The result is all of the arguments passed into accfn"
     (w/uniq gacc
       `(let ,gacc '()
          (flet1 ,accfn (arg) (push arg ,gacc)
  -	 ,@body)
  +         ,@body)
          (nrev ,gacc))))
   
   (def multiple (x y)
  
positive.code:    ys is"
    (w/uniq y
      `(mapcan (fn (it) ; we can use mapcan because map creates new conses
  		 (map (fn (,y)
  			  (funcall ,f it ,y))
  		      ,ys))
  	     ,xs)))
  
negative.code:        (get-setf-expansion place)
      (w/uniq (val win)
        `(withs (,@(mappend #'list vars forms))
           (mvb (,val ,win) ,access
             (let ,(car var) (if (or ,val ,win) ,val ,new)
               ,set))))))
  
  (mac in (x &rest choices)
    "Checks if the result of evaluating x is the result of
  