anchor.diff: -;;;; Last modified : 2013-08-03 20:39:15 tkych
  +;;;; Last modified : 2013-08-04 00:06:57 tkych
   
   ;; cl-enigma/enigma.lisp
   
  
positive.code:                  `(,(car first) ,x ,@(cdr first))
                   `(,first ,x))))
            (t
             `(left-fold (left-fold ,x ,(car forms)) ,@(cdr forms)))))
  
    ) ;end of eval-when
  
  
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.
  