anchor.diff: -;;;; Last modified : 2013-08-03 13:45:39 tkych
  +;;;; Last modified : 2013-08-03 14:59:21 tkych
   
   ;; cl-enigma/enigma.lisp
   
  
positive.code:   (:nicknames #:enigma)
    (:use :cl)
    (:export #:machine
             #:make-rotor
             #:make-reflector
             #:*alphabet*
  
negative.code:        :for char-num := (position char *alphabet* :test #'char-equal)
         :do (progn
               (when (turnover-p middle-rotor)
                 (rotate left-rotor)
                 ;; double stepping
                 (rotate middle-rotor))
               (when (turnover-p right-rotor)
                 (rotate middle-rotor))
               (rotate right-rotor))
  