anchor.diff:    (apply #'join (mapf f xs)))
   
   (mac w/uniq (names &body body)
  -  "binds each element in names (or names if it is just a symbol), with
  +  "Binds each element in names (or names if it is just a symbol), with
      a unique symbol"
     (lf (consp names)
         `(with ,(mappend (fn (n) `(,n (uniq (symbol-name ',n))))
  
positive.code:   `(lflet it ,expr ,@branches))
  
  (mac awhen (expr &body body)
     "analog of alf but for when"
    `(lets it ,expr (lf it (progn ,@body)))) ; change name of progn
  
  (mac aand (&rest args)
    (lf (no args)
          t
        (no (cdr args))
  
negative.code:       expr))
  
  (mac whenlet (var expr &body body)
    "Analog of lflet but for when"
    `(lflet ,var ,expr (progn ,@body))) ; change name of progn
  
  (mac alf (expr &body branches)
  