anchor.diff:  
   (defun finish-transform-session ()
     (finish-previous-multi-command)
  +  (setq *redos* (reverse (loop for el in *undo-stack* collect (fourth el))))
     (if (null *transform-commands*)
         (format t "No transformations")
  -      (Script::printScript (Script::mkSteps *transform-commands*)))
  +      (Script::printScript (Script::mkSteps (reverse *transform-commands*))))
     (setq *current-command-processor* 'process-sw-shell-command)
     (setq *prompt* "* ")
     (emacs::eval-in-emacs "(setq *sw-slime-prompt* \"* \")")
  
positive.code: 			 (if (or (null val) (not (eq (car val) ':|Spec|)))
  			     (format t "Not a spec!")
  			     (let ((spc (cdr val)))
  			       (process-transform-shell-command 'undo "all")
  			       (setq *transform-spec* spc)
  			       (format t "Restarting Transformation Shell.")))))
  		      (values))
  	   (t (process-sw-shell-command command argstr))))
  	((and (constantp command) (null argstr))
  
negative.code:     (if (null new-term)
  	()
  	(progn
  	  (push-state `(at-command ,qid))
  	  (setq *transform-term* (cons new-term new-term))
  	  (push #'(lambda (future-steps)
  		    (if (null future-steps)
  