anchor.diff:  			 (if (or (null val) (not (eq (car val) ':|Spec|)))
   			     (format t "Not a spec!")
   			     (let ((spc (cdr val)))
  -			       (process-transform-shell-command 'undo "all")
  +			       (undo-command "all" t)
   			       (setq *transform-spec* spc)
  -			       (format t "Restarting Transformation Shell.")))))
  +			       (format t "Restarting Transformation Shell.")
  +			       (redo-command "all")))))
   		      (values))
   	   (t (process-sw-shell-command command argstr))))
   	((and (constantp command) (null argstr))
  
positive.code:     (if (null new-term)
  	()
  	(progn
  	  (push-state)
  	  (setq *transform-term* (cons new-term new-term))
  	  (push #'(lambda (future-steps)
  		    (if (null future-steps)
  
negative.code: 
  (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 (reverse *transform-commands*))))
    (setq *current-command-processor* 'process-sw-shell-command)
    (setq *prompt* "* ")
    (emacs::eval-in-emacs "(setq *sw-slime-prompt* \"* \")")
  