anchor.diff:             (format-time s "Autosave on %Y-%m-%d %H:%M:%S"
                           (get-universal-time) nil))))
   
  +(defun maybe-restore-configurations ()
  +  "If configurations list empty and *CONFIGURATIONS-FILE* exists in
  +home directory restore configuration list from it"
  +  (when (and (null *configurations*)
  +             (probe-file (merge-pathnames *configurations-file*
  +                                          (user-homedir-pathname))))
  +    (setq *configurations* (read-configurations-from-file))))
  +
   (defun restore (&optional configuration from-end)
     "Restore logging configuration CONFIGURATION, which can be a name,
   a CONFIGURATION instance, or a number indicating Nth (zero
  
positive.code: 
  (defun list-configurations (&optional (stream *standard-output*))
    "Prints the *CONFIGURATIONS* list"
    (loop for cnt from 0 
          for cnf in *configurations*
          do (format stream "~4:<~d.~> ~A~%" cnt cnf)))
  
negative.code: If CONFIGURATION is NIL restores first element of *CONFIGURATIONS* that is
  not equivalent to the current configuration. So successive (RESTORE) will
  swap last two configurations"
  
    (maybe-restore-configurations)
    
    (let* ((current (make-autosave-configuration))
           (current-dup (find current *configurations* :test #'same-configuration-p))
  