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:                (rotate middle-rotor))
               (rotate right-rotor))
         :collect (char *alphabet*
                        (left-fold char-num
                          (convert plugboard)
                          (convert right-rotor)
                          (convert middle-rotor)
  
negative.code: ;;;; Last modified : 2013-08-04 00:06:57 tkych
  
  ;; cl-enigma/enigma.lisp
  
  