anchor.diff:                   `(,(car first) ,x ,@(cdr first))
                    `(,first ,x))))
             (t
  -           `(left-fold (left-fold ,x ,(car forms)) ,@(cdr forms)))))
  +           `(-> (-> ,x ,(car forms)) ,@(cdr forms)))))
   
     ) ;end of eval-when
   
  
positive.code: ;;;; Last modified : 2013-08-03 20:39:15 tkych
  
  ;; cl-enigma/enigma.lisp
  
  
negative.code: 
  (eval-when (:compile-toplevel :load-toplevel :execute)
  
    (defmacro -> (x &body forms)
      "Inserts x as the second item in the first forms,
  making a list of it if it is not a list already. If there are more
  formss, inserts the first forms as the second item in second forms, etc.
  